hidden/protect module VBA

  1. 7 tahun lalu

    Assalamu alaikum
    bagaimana cara menyembunyikan memproteksi module vba sehingga di window VBA editor tidak tampak

    Makasih sebelumnya
    Luthfi - Kalsel

    terlampir gan
    [attachment:589946d92f4d5]

  2. 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

    workbook1.xlsm
    workbook2.xlsm

  3. 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) .

  4. sy coba koq runtime error 91 mas...
    trus kalo sy end, code di workbook nya hilang

  5. 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

  6. untuk keperluan pertanyaan td sy download ulang, td pas sy buka workbook1.xlsm kasusnya seperti itu

  7. untuk keperluan pertanyaan td sy download ulang, td pas sy buka workbook1.xlsm kasusnya seperti itu

  8. rename dan makesure nama filenya workbook1.xlsm dan workbook2.xlsm saja mas.

  9. sdh sy coba beberapa kali tetap runtime error 91 mas

  10. Fujiansyah92

    7 Peb 2017 Terverifikasi Jawaban Terpilih + 4.131 Poin

    terlampir gan
    test.zip

  11. Saking asiknya belajar dan nyoba sampai lupa bilang terima kasih....

  12. makasih banyak mas....coba sy pelajari step by step, maklum masih pentium 1

  13. sama sama gan,selamat berkreasi,btw,jangan lupa lock projectnya ya :D .klo ga dilock,percuma...bisa dibuka dari sana.

  14. jadi hanya di workbook1 dimasukin code diatas atau workbook2 jg harus dimasukin code nya mas?

  15. iya mas.sebanyak yg kita tentukan

    klo hanya mau single workbook,ya 1 aja mas

  16. Sebenarnya ada lagi mas dg menggunakan software 'unviewable+' agar project file(excel)nya tdk dapat dilihat/unlock sama sekali,sekalipun memiliki password .

    Google it

  17. makasih infonya mas.....

 

atau Mendaftar untuk ikut berdiskusi!