TENTANG KONCI MENGONCI PADA APLIKASI MACRO EXCEL BIKINAN SAYA 11 April 2012
Posted by excellerates in Excel.Tags: CODE, EXCEL, konci, macro, macro excel, office
trackback
menindaklanjuti banyaknya request tentang hal ihwal perihal teknik KONCI MENGONCI🙂 yang saya pakE pada beberapa aplikasi saya … banyak respon dari sOdara2 sekaliYan yang sedikit penasaran dengan metode yang saya pakE … sebenarnya metode yang saya pakai sangat sederhana … dua hal yang perlu mendapat perhatian lebih dalam KONCI MENGONCI ini adalah:
1. KODE KONCI
kode ini yang akan dipakE sebagE dasar pembuatan KONCI … lalu bagEmana cara bikin KODE KONCI ini😕 … KODE KONCI bisa kita bikin dengan berbagE cara … berdasarkan pengalaman saya pernah menggunakan UserName Excel dan Drive Serial Number sebagE dasar pembuatan KODE KONCI … pada contoh file yang bisa sOdara donlot saya pake KODE KONCI 5 digit terakhir dari Drive Serial Number … Drive Serial Number ini saya simpan dalam satu cell pada Sheet khusus yang nantinya akan disembunyikan … sheet khusus tersebut saya namakan SheetKonci dan cell untuk menyimpan Drive Serial Number adalah cell A1
2. KONCI
untuk bikin KONCI harus punya ToekangKonci yang akan merubah KODE KONCI menjadi KONCI, ToekangKonci ini merupakan sebuah fungsi yang bisa dibuat pakE macro atau pakE formula … kalO saya pilih pakE macro aja … misalkan dari 5 digit KODE KONCI akan diubah menjadi 10 digit KONCI … untuk menyulap dari KODE KONCI menjadi KONCI ini sangat tergantung pada kreatifitas sOdara2 … saya hanya bisa ngasi contoh sederhana fungsi ToekangKonci dalam file contoh yang bisa sodara donlot … dengan penampakan kode sebagE berikot
Private Function ToekangKonci(KodeKonci As Long) As String
Dim Digit10 As Variant
Dim i As Integer
Dim Konci(9) As Variant
Konci(1) = "Q"
Konci(2) = "R"
Konci(3) = "I"
Konci(4) = "D"
Konci(5) = "J"
Konci(6) = "L"
Konci(7) = "Z"
Konci(8) = "V"
Konci(9) = "N"
Konci(0) = "A"
Digit10 = Right("12345" & KodeKonci, 5)
Do
If Len(Digit10) >= 10 Then Exit Do
Digit10 = Digit10 * KodeKonci
Loop
For i = 1 To 10
ToekangKonci = ToekangKonci & Konci(Mid(Digit10, i, 1))
Next i
End Function
dengan menggunakan fungsi ToekangKonci tersebut masing2 KODE KONCI yang 5 digit akan dikalikan secara berulang2 sampai jumlahnya menjadi >= 10 Digit … setelah itu masing2 digit angka akan dikonversi menjadi satu abjad yang telah ditentukan … sehingga pada akhirnya akan didapat KONCI yang berupa 10 Digit Hurup
Prosedur dan Fungsi yang dipakE saya kelompokkan seperti beriKot :
1. Prosedur Auto_Close
yaitu prosedur yang akan dijalankan pada saat WorkBook ditutup … langkah2 yang dilakukan dalam prosedur ini adalah menghapus Custom Menu “KonciMengonci” dari Worksheet Menu Bar dan menyembunyikan sheet “SheetKonci”
2. Prosedur Auto_Open
prosedur ini akan dijalankan pada saat WorkBook dibuka … langkah2 yang dijalankan dalam prosedur ini secara bodo dapat digambarkan dalam FlowChart berikOt🙂
3. Fungsi untuk mbikin KONCI
alias ToekangKonci … kodenya sudah nongol diatas … silahkan discroll halamannya kalau mau liYat😉
4. Prosedur2 yang akan dijalankan pada saat menu diceKlik
pada aplikasi yang tidak dipasangi KonciMengonci setelah menu diceklik akan langsung diteruskan ke langkah2 yang akan dijalankan dalam menu tersebut tanpa melalui pemeriksaan KONCI … pada aplikasi dengan KonciMengonci setelah menu diceKlik Menu2 diberikan nomor unik (Variabel MacroID) … setelah itu dilanjutkan dengan pemeriksaan KonciMengonci dalam kelompok prosedur nomor 5
5. Prosedur untuk memeriksa KonciMengoncinya
prosedur ini akan mengatur apakah prosedur dari menu yang di ceKlik akan dilanjutkan ke prosedur berikutnya atau tidak …. syarat prosedur dilanjutkan adalah
Cell “SheetKonci!A2” telah berisi KONCI YANG BENAR
atau
tanggal pada cell SheetKonci!A3 BELUM TERLAMPAUI
kalO syarat tersebut tidak terpenuhi maka prosedur akan dihentikan tidak dilanjutkan … kalO syaratnya terpenuhi maka prosedur akan dilanjutkan ke kelompok prosedur nomor 6 sesuai Variabel MacroID menu tersebut … flowchart berikut mungkin akan bikin sOdara tambah bingung🙂
6. Prosedur2 lanjutan
Prosedur2 dalam kelompok ini sebenarnya adalah prosedur utama dari menu … kalO ndak pakE KonciMengonci menu2 yang sOdara bikin bisa langsung dihubungkan ke macro2 disini … prosedur2 ini akan dijalankan setelah lolos dalam pemeriksaan Konci dalam prosedur nomor 5 … macro yang akan dijalankan tentunya sesuai dengan MacroID dari menunya
seperti biyasa kode2 diatas bisa dilihat pada file KonciMengonci.xls yang bisa sOdara download … kodenya sudah saya kasi terjemahan biar sOdara2 tambah mumet🙄 … sOdara jugaK bisa donlot file MasterKonci.xls yang dapat berguna sebagE Konci Generator😆 … sOdara tinggal masukkan kode permintaan koncinya dan MasterKonci akan membuWatkan Koncinya untuk sOdara
deminkiYan penjelasan singkat yang ndak bikin jelas ini😉 … semoga sOdara2 sekaliYan ndak tambah bingung … semoga manpaat dan MDLMDL
Salam KonciMengonci😉
Woww…..ini dia yg kunanti.
Minta ijin pake tekniknya MasBro….🙂
siiiip Pak Guru
Mas tolong kunci utk kode UNP1.3165
download yang versi 2 aja yah😉
Mas untuk konci mengoncinya jika masa telah habis tapi file masih bisa terbuka dimana cara mengatasinya
terim kasih
hapus kode berikut dari prosedur AUto_Open
ThisWorkbook.Close SaveChanges:=FalseMas, mohon pencerahannya, saya ingin mengkunci sel/kolom, dengan menggunakan macro. kira-kira perintah modulnya apa ya Mas. Terima Kasih sebelumnya.
kalau yang dimaksud adalah untuk memprotect sheetnya bisa pakai code berikut
activesheet.protect("Passwordnyah")Mas, terima kasih atas jawaban utk memprotect sheetnya. sekarang saya mempunyai masalah lagi di excel. di workbook saya banyak rumus yang saya pakai hingga kerja excel jadi lambat. mohon pencerahannya utk mengatasi ini. Terima Kasih
pengalaman saya sih solusinya ada 3 :
1. set calculation ke manual … calculation hanya dilakukan saat kita pengen dengan pencet F9 … jadi workbook kita tidak selalu melakukan calculation saat data berubah
2. upgrade spek komputernya … solusi ini perlu tambahan ongkos “dikit”🙂
3. ganti formula dengan macro … babat semua formulanya ganti dengan macro … solusi agak repot nih tapi hasilnya menurut saya paling bagus
silahkan pilih
Mas, terima kasih atas solusinya, kayaknya cuma solusi yang pertama yang bisa saya ikuti. tapi bagaimana caranya utk merubah calculation ke manual. Maaf mas merepotkan.
xl 03 Tool>>Option>>Calculation
xl 07 Excel Option>>Formula
Mas, saya punya rumus di excel =IF(L2=”LUNAS”;0;IF(AND(SEWA!B2:B22>0;DATA!L2=”BELUM”;NOW()-SEWA!B2:B22>=_BTS01;NOW()-SEWA!B2:B220;DATA!L2=”BELUM”;NOW()-SEWA!B2:B22>_BTS02;NOW()-SEWA!B2:B220;DATA!L2=”BELUM”;NOW()-SEWA!B2:B22>_BTS03;NOW()-SEWA!B2:B220;DATA!L2=”BELUM”;NOW()-SEWA!B2:B22>_BTS04;NOW()-SEWA!B2:B220;DATA!L2=”BELUM”;NOW()-SEWA!B2:B22>_BTS05;TRUE);UMRO5;0)))))). utk dimasukkan ke perintah macro. kira-kira bagaimana ya. Hatur nuhun atas Ilmunya.
sebenarnya mirip dengan fungsi IF … seperti berikut
If Kondisi1 then
Prosedur yang akan dijalankan jika BENAR
Else
Prosedur yang akan dijalankan jika SALAH
End If
jika kondisinya lebih dari satu
If Kondisi1 then
Prosedur yang akan dijalankan jika kondisi 1 BENAR
ElseIf Kondisi2 then
Prosedur yang akan dijalankan jika kondisi 2 BENAR
Else
Prosedur yang akan dijalankan jika SALAH
End If
Maaf mas, saya mau buat control button yang bila saya klik tombol tersebut rumus yang saya tulis dalam pertanyaan sebelumnya akan jalan otomatis ke cell A2 dan seterusnya kebawah. kira-kira perintah VBA nya apa? Mohon bantuannya. Kalau memang perintah agak panjang, mohon diberikan satu contoh saja, dan selanjutnya saya teruskan. Mas, mohon jangan bosan menjawab pertanyaan dari saya. Terima kasih banyak.
coba gunakan For … Next
contoh kode berikut akan mengisikan nomor urut sampai 100 pada kolom A
For i = 1 to 100
Nomor = Nomor +1
Cells(i,1).value = Nomor
Next i
Assalamu’alaikum, mas Syukron saya sudah coba hapus “ThisWorkbook.Close SaveChanges:=False” supaya file tidak bisa dibuka jika melewati tanggal yg telah ditentukan, tapi setelah saya hapus file tsb masih bisa di buka mas. Mohon bantuannya soalnya saya juga baru belajar di macro. terimakash mas
oom kok ini koncinya ga bisa dijebol ya? http://goo.gl/PVIrz dan metodenya beda kayaknya
InsyaAllah bisa aja … tapi SESAMA BIS KOTA DILARANG SALING MENDAHULUI …😉
nyumbang ide Pak, biasanya kalo pake fungsi yang njelimet (agak panjang) dan digunakan untuk banyak baris, misal fungsi ada di cell A2 dan akan diaplikasikan ke range A3 s/d A 1000 biasanya penggunakan perualangan malah lebih lambat ketimbang copy paste special formula, alternatifnya pake berikut
sippp usulnya … tapi jangan lupa cell A2 harus bener formulanya
bang, minta tolong konci untuk kode ini ya: SSP3.8707 makasih bang..
SSP3.8707 KONCINYA : RVHAW69DBZ
Mas tolong kunci utk kode UNP1.7179
coba download lagi yang versi 2 yah
mas, sya minta kunci untuk UNP2.3985
minta updte
mksh
UNP2.3985 KONCINYA : 8T0AIGV0YP
mas, kuncinya dari PSD1.3185 apa yak?
PSD1.3185 KONCINYA : 9Y8IVATWYB
Mas tolong kunci utk kode UNP1.1028
Syukron…
download lagi aja yang versi 2 lebih baguss … ok😉
MAS TOLONG KUNCINYA
UNP1.3051
download ulang yang versi 2 … lebih bagus🙂
mas tolong kuncinya UNP1.4666
download laghi yang versi 2 aja .. lebih bagus😉
keren om….
Blog yg mantab om…
Excellent…
Moga2 Maju Jaya…
Tanks ilmunya…
sipppppppppppppppp
Mas Tolong Kunci untuk UNP1.3499
download lagi yang versi 2 … lebih lengkap😉
mas Syukron tolong MINTA KONCI UNP2.1974
UNP2.1974 KONCINYA : S1KLDH2DES
bang , nanya donk
tau VB macro excel yang bisa transfer file excel ke FTP (filezilla)
soalnya ane pernah liat tu file yang bisa kayagitu namun di lock jadi gak bisa ane bongkar VBnya
saya jarang bikin aplikasi excel yang melibatkan aplikasi lain selain excel
Kang…minta ijin n mohon maaf…klo password vbnya aq reset pake code vb juga,gmn? boleh ya biar bisa belajar lbh banyak,…katanya berbagi itu indah “sampaikan walau hanya satu ayat”,matur nuhun
pada dasarnya tidak ada maksud untuk menyembunyikan ilmu … wong file form dan modulenya juga saya bagi gratis … kalOpun sOdara berminat untuk memodip aplikasinya silahkan saja selama tidak untuk komersial dan tidak menghilangkan sumber aslinya … terim kasih
Mas, Tolong konci untuk UNP1.3165. Terima Kasih
download lagi yah .. yang versi 2 lebih kumplit
boleh ya kang…plissss…,aq ini masih bodho jd hrs banyak belajar dari orang2 seperti kang Syukron
mas minta konci UNP1.5616 keren masbro…joss
downloads yang versi 2 lebih bagus
Mas, tolong link nya donk utk versi 2 nya.
Terima Kasih
coba cari di april 2011
mas, KONCI nya UNP1.300 dong mas. please
download lagi versi 2
mas, konci untuk UNP2.1715 apa ya mas? suwun
UNP2.1715 KONCINYA : QHI4NNCGX5
mas, minta kode untuk UNP2.4568 dong. terima kasih
UNP2.4568 KONCINYA : O5CAZXSFJQ
mas, konci untuk UNP2.4568 apa ya mas? terima kasih
Mas, boleh minta konci untuk UNP1.3860?
Makasih b4.
mas, minta konci UNP1.930,,, trims
download lagi yang versi 2
mas.admin kalo mo download lepas koncian add-in v.2 linknya apa y mas,,,,??
Mas, tolong minta kunci UNP2.7132
Terima kasih
UNP2.7132 KONCINYA : RIJE5QF5GE
Walah … filenya aku pindahin jadinya minta kode lagi Mas, Nyuwun sewu … minta UNP2.6176.
Matursuwun
UNP2.6176 KONCINYA : AWLR9AEUWV
mas UNP1.6900
unp2.2421
UNP2.2421 KONCINYA : IFRCXH4ZEG
MINTA KUNCI UNP2.1593
UNP2.1593 KONCINYA : RY292LLLME
MINTA KUNCI UNP1.7178
Versi 2 sudah ada download lagi aja
Mas minta kunci UNP2.2452….
UNP2.2452 KONCINYA : MDVIGGGAHY
mas unp2.1516 apa,
UNP2.1516 KONCINYA : E7O7YTGQ7F
Minta Tolong Kunci UNP2.5523
UNP2.5523 KONCINYA : A6RZ3UNMUV
Mas Syukron yg baek.
sy punya kode UNP2.9255. mohon dibagi koncinya dong
Mas Syukron
kode saya UNP2.7672. kunci berapa mas….
makasih banyak mas
Assalamu’alaikum Mas.
Saya dah donlot file, trus saya bikin file baru skrip macronya saya copy ke file saya tapi cara simpannya gemana ya mas. Saya buta sekali tentang macro. Tolong yo mas.
Hatur nuhun.
mas minta konci PSD2.1523
tambah keblinger nehh… Ampuunn
Mas..minta konci UNP2.1898
bagi yang jadi mahaciwa , itu bisa jadi skripsi yang lumayan siip
om syukron bade tangklet, pripun carane supados ndhamel macro excel ngisi otomatis yen enten data seng sami sak derenge,,
conto ne :
A1 : Buku Gareng
B1 : 25000
A2 : Buku Komik Konan
B2 : 35000
……….. lan sak terusipun.
A570 : Buku Gareng
B570 : Otomatis keisi kiambak 25000
Suwun…
mas,, niki rekaman macrone,, tulong didamelke seng asli macro.. hehe..
ActiveCell.FormulaR1C1 = _
“=IF(RC[-1]=””””,””””,IF(ISNA(vookup(RC[-1],R1C[-1]:R[-1]C,2,FALSE)),””””,VLOOKUP(RC[-1],R1C[-1]:R[-1]C,2,FALSE)))”
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range(“A1:A2058”), Type:= _
xlFillDefault
ActiveCell.Range(“A1:A2058”).Select
ActiveWindow.SmallScroll Down:=-39
Minta tlg konci UNP2.7650 terima kasih
Mohon Bantuannya Master
file yang sy kasih code Expaire seperti di bawah ini tidak bisa di buka,,,
mohon bantuannya agar file penting sy bisa di buka kembali
Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format(“09/09/2013”, “DD/MM/YYYY”) ‘ Replace this with the date you want
If Date > Edate Then
MsgBox (“This worksheet was valid Are You will be closed”)
ActiveWorkbook.Close
End If
If Edate – Date < 4 Then
MsgBox ("This worksheet expires on " & Format(Edate, "dd-mmm-yyyy") & " You have " & Edate – Date & " Days left ")
End If
End Sub
terimaksih banyak sebelumnya atas bantuannya mas,,
semoga sukses selalu
Amii,,,,
gimana kalo mau buat alarm atau bel yang bisa di setting bunyi satu kali atau dua kali berdasar jam. katakanlah seperti bel sekolah. gimana makronya kalo pake form control. makasiiiiiih sekali
Salam Mas Syukron
mas syukron barangkali sudi kiranya membantu kesulitan saya,
saya punya masalah buat vba excel di userform “cara membuat penomoran otomastis berdasakan tahun bulan tanggal dan urutan nomor berdasarkan tanggal”
formatnya kayak gini mas “20131225-0001”
jadi ketika awal masuk ke “userform” di kolom nomornya langsung muncul / terisi sehingga sebelum menekan button simpan nomornya sudah dapat terlihat, selanjutnya ketika pergantian tanggal / bulan / tahun nomor urutnya kembali ke awal ato ke no 0001 lagi
mohon petunjuk mas Syukron, semoga permohonan saya ini jelas bagi mas syukron,
catatan catatan n petunjuk di blog mas Syukron sangat membantu saya dan tentunya banyak pihak pun sangat terbantu dengan adanya blog mas syukron, terima kasih banyak atas share ilmu nya semoga sodaqoh ilmu nya mas syukron dapat terbalas dengan ribuan kebaikan dari yang maha kuasa,
Salam Mas Syukron
mas syukron barangkali sudi kiranya membantu kesulitan saya,
saya punya masalah buat vba excel di userform “cara membuat penomoran otomastis berdasakan tahun bulan tanggal dan urutan nomor berdasarkan tanggal”
formatnya kayak gini mas “20131225-0001″
jadi ketika awal masuk ke “userform” di kolom nomornya langsung muncul / terisi sehingga sebelum menekan button simpan nomornya sudah dapat terlihat, selanjutnya ketika pergantian tanggal / bulan / tahun nomor urutnya kembali ke awal ato ke no 0001 lagi
mohon petunjuk mas Syukron, semoga permohonan saya ini jelas bagi mas syukron,
catatan catatan n petunjuk di blog mas Syukron sangat membantu saya dan tentunya banyak pihak pun sangat terbantu dengan adanya blog mas syukron, terima kasih banyak atas share ilmu nya semoga sodaqoh ilmu nya mas syukron dapat terbalas dengan ribuan kebaikan dari yang maha kuasa,
amiin
Mas tolong konci UNP1.6707
mas konci untuk UNP2.1590 nya dong
Bagaimana kalo unprotect sheetnya kagak aktif/buram? saya bingoeng mau unprotectnya
mas, alamat emailnya apa ya? saya mau mohon bantuan, tks