tanya VBA lupa password

  1. 8 bulan yang lalu

    Assalamualaikum..master2 excel, khususnya abang caton yg terus mengawal forum ini
    saya ingin tanya masalah VBA tentang "memunculkan password sheet yg lupa" krena password sheet yg dibuat lupa.
    dari searching di gogle sya menemukan VBA yg bisa membuat password yg lupa jadi muncul tapi pas di eksekusi ada error di VBA tersebut.dan ini VBA yg saya dapat itu

    Sub PasswordBreaker()
    Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 As Integer
    On Error Resume Next
    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
    Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    If ActiveSheet.ProtectContents = False Then
    MsgBox “One unable password is ” & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)_
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

    mohon petunjuknya dari rumus VBA tersebut kenapa tidak bisa tereksekusi/error
    atas jawaban yg diberikan saya sampaikan banyak2 terimakasih

  2. Caton

    26 Mar 2021 Terverifikasi Indonesia + 17.741 Poin
    Di sunting 8 bulan yang lalu oleh Caton

    Halo mas @farud ...

    Errornya dimana mas? :D Pada script hasil salinan di atas, baris :

    ...
    Breaks worksheet password protection.
    ...

    jelas bukan sebuah perintah, jadi harus diberikan komentar atau dihapus saja. Terus masalah kedua, ada pada baris berikut :

    ...
    If ActiveSheet.ProtectContents = False Then
        MsgBox “One unable password is ” & Chr(i) & Chr(j) & _
        Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
        Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)_
        Exit Sub
    End If
    ...

    Perhatikan tanda kutip ganda setelah keyword MsgBox, seharusnya diganti dengan tanda " bukan . Lihat bedanya! Tanda " memiliki kode ASCII 34 (dan ini yang standar VBA), sedangkan tanda “ memiliki kode ASCII 147.

    Kemudian pada akhir baris, notasi _ (undescore) tidak bisa digunakan jika tidak ada baris perintah ekstra (notasi _ digunakan sebagai penyambung sebuah baris perintah jika harus dipisahkan dalam beberapa baris).

    jadi, untuk baris tersebut di atas, seharusnya diganti menjadi :

    ...
    If ActiveSheet.ProtectContents = False Then
        MsgBox "One unable password is" & Chr(i) & Chr(j) & _
        Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
        Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
        Exit Sub
    End If
    ...

    Demikian.

  3. terimakasih atas jawabannya mas @caton...
    ketika saya coba ke aplikasi yg saya dapat dari kantor tetap gak bisa, hanya muncul icon loading yg saya tunggu sampai lama gak bisa2.tapi ketika saya coba ke file lain langsung tereksekusi.apa karena filenya yg besar sehingga tidak tereksekusi,aplikasi yg dari kantor saya sertakan juga dibwah.rencanya di sheet "jadwal kegiatan" mau saya tambahkan lagi daftar kegiatannya yg mana sheet2 yg lain datanya ngambil dari sheet "jadwal kegiatan" tersebut.
    jika mas @caton dan master2 excel yg lain berkenan membantu saya sampaikan terimaksih yg sebesar2nya

  4. Caton

    1 Apr 2021 Terverifikasi Indonesia + 17.741 Poin

    Halo mas @farud ...

    Sudah saya coba file yang dilampirkan, dan sama dengan yang Anda alami, Excel saya juga jadinya Not Responding... :D Saya coba salin Worksheet yang ditargetkan ke Workbook baru, hasilnya tetap sama. Saya tidak tahu pasti apa masalahnya, mungkin enkripsi proteksinya susah ditembus... :)

    — Solusinya bisa dicoba menggunakan Text Editor seperti Notepad++, atau aplikasi Text Editor lainnya. Prosesnya akan sedikit kompleks, tapi tidak terlalu sulit. Caranya bisa dicari di internet.

    — Solusi lainnya bisa juga menggunakan aplikasi dari Proxoft (bisa menggunakan versi trial).

    Terlampir contoh yang sudah dibuka dengan menggunakan Notepad++.

    Demikian.

  5. Di sunting 8 bulan yang lalu oleh farud

    waaachh terimaksih banyak mas @caton...2 tahun lebih gak gangguin mas @caton dgn pertanyaan2 saya, mas @caton tetap kayak dulu selalu membantu menjawab pertanyaan yg sulit bagi saya. mungkin ke depannya saya akan banyak tanyak lagi mas karena rencanya mau buat aplikasi lagi,jangan bosan ya mas hehehehe....dan semoga mas @caton sekeluarga diberkahi panjang umur dan bnyak rejekinya.aamiinn

  6. Caton

    1 Apr 2021 Terverifikasi Indonesia + 17.741 Poin

    Sama-sama mas @farud... Semoga mas @farud sekeluarga juga diberkahi dan dirahmati Allah Ta'ala. Aamiin. InsyaAllah, akan saya bantu kalau saya sempat dan mampu membantu... :)

 

atau Mendaftar untuk ikut berdiskusi!