Assalamu alaikum
bagaimana cara menyembunyikan memproteksi module vba sehingga di window VBA editor tidak tampak
Makasih sebelumnya
Luthfi - Kalsel
Assalamu alaikum
bagaimana cara menyembunyikan memproteksi module vba sehingga di window VBA editor tidak tampak
Makasih sebelumnya
Luthfi - Kalsel
bisa gan.tapi pakai trik
triknya:
hanya mengizinkan workbook tertentu(i.e: workbook1 & workbook2) yg bisa dibuka berbarengan dg workbook tsb .
Karena metode untuk break vba password,harus ke workbook lain.
so,codenya dg cara menghitung semua workbook yg terbuka,jika lebih dari 1 atau jumlah workbook yg diperbolehkan(limit),maka file tsb akan tertutup tanpa disave(bisa disesuaikan).
dan penempatan codenya di workbook open dan di workbook deactivate ...jadi kalaupun di bikin workbook barupun,file tsb akan otomatis ditutup.
'####Code on workbook####
Private Sub Workbook_Deactivate()
If Workbooks.Count = 1 Or ActiveWorkbook.Name = "workbook1.xlsm" Or ActiveWorkbook.Name = "workbook1.xlsm" Then Exit Sub
If Workbooks.Count > 1 Then Call Closeall
End Sub
Private Sub Workbook_Open()
If Workbooks.Count = 1 Or ActiveWorkbook.Name = "workbook1.xlsm" Or ActiveWorkbook.Name = "workbook1.xlsm" Then Exit Sub
If Workbooks.Count > 1 Then Call Closeall
End Sub
'####Code on module####
Sub Closeall()
Dim Wb As Workbook
Dim wb1, wb2
wb1 = "workbook1.xlsm"
wb2 = "workbook2.xlsm"
Dim i
For i = 1 To Workbooks.Count
If Workbooks(i).Name = wb2 Or Workbooks(i).Name = wb1 Then
Else
MsgBox "Hanya diperbolehkan membuka 2 file!!,silahkan tutup terlebih dahulu file lainnya", vbCritical
Workbooks(i).Close savechanges:=false
End If
Next i
End Sub
monggo dicoba,
tapi hati hati,karna file itu akan force close tanpa save excel file kita yg lain .
itu bisa di sesuaikan /dibalikkan condition nya agar close 2 atau 1 file yg ditentukan(i,e workbook1.xlsm saja) .
sy coba koq runtime error 91 mas...
trus kalo sy end, code di workbook nya hilang
mas,coba di cek ..nama workbook yg ente buka "workbook1(1).xlsm" ..sedangkan yg dimacro "workbook1.xlsm" ya jelas ga bisa lah.Penyebabnya ente saveas/download di folder yg sama yg sudah ada nama file yg sama sebelumnya. coba rename sesuai macro atau download lagi di folder yg berbeda.
thanks
untuk keperluan pertanyaan td sy download ulang, td pas sy buka workbook1.xlsm kasusnya seperti itu
untuk keperluan pertanyaan td sy download ulang, td pas sy buka workbook1.xlsm kasusnya seperti itu
rename dan makesure nama filenya workbook1.xlsm dan workbook2.xlsm saja mas.
sdh sy coba beberapa kali tetap runtime error 91 mas
terlampir gan
test.zip
Saking asiknya belajar dan nyoba sampai lupa bilang terima kasih....
makasih banyak mas....coba sy pelajari step by step, maklum masih pentium 1
sama sama gan,selamat berkreasi,btw,jangan lupa lock projectnya ya :D .klo ga dilock,percuma...bisa dibuka dari sana.
jadi hanya di workbook1 dimasukin code diatas atau workbook2 jg harus dimasukin code nya mas?
iya mas.sebanyak yg kita tentukan
klo hanya mau single workbook,ya 1 aja mas
Sebenarnya ada lagi mas dg menggunakan software 'unviewable+' agar project file(excel)nya tdk dapat dilihat/unlock sama sekali,sekalipun memiliki password .
Google it
makasih infonya mas.....