Solusi Lupa Password Sheet Excel

Aplikasi Excelku. Hallo Sobat Blogger semuanya, selamat datang kembali di blog sederhana Saya ini. Dan tak lupa Saya ucapkan banyak-banyak terimakasih kepada Anda semuanya yang sudah mengunjungi Blog Sederhana Saya ini.

Pada kesempatan kali ini, kembali Saya akan memberikan sebuah tutorial sederhana lagi mengenai Aplikasi Ms. Excel, tutorial yang akan Saya sampaikan melalui artikel/postingan kali ini adalah mengenai Solusi Lupa Password Sheet Excel.

Pernah Sobat Blogger memberikan sebuah password didalam lembar kerja Ms. Excel dan ternyata Sobat Blogger lupa, apa password yang sudah Sobat Blogger inputkan didalamnya??? jangan panik dan jangan khawatir, karena ada sebuah code/script Macro yang bisa kita gunakan untuk mengatasi hal tersebut, nah karena ada kaitannya dengan code/script Macro jadi pastinya kita harus mengakses halaman/lembar kerja VBA Project Ms. Excel kita, dan langsung saja kita praktekkan, berikut ini langkah-langkahnya :

1. Buka file Excel yang sudah terpassword dan lupa passwordnya tadi;

2. Silahkan tekan tombol kombinasi Alt+F11 atau juga bisa dengan klik pada Menu Developer kemudian klik lagi pada Sub Menu Visual Basic, maka secara otomatis akan terbuka halaman VBA Project Ms. Excelnya;

3. Didalam halaman VBA Project tersebut, silahkan Sobat Blogger sisipkan sebuah module, caranya dengan klik pada Menu Insert, kemudian klik pada opsi module;

4. Silahkan Sobat Blogger Copy code/script Macro di bawah ini :

Sub PasswordBreaker()
    'https://aplikasiexcelku.blogspot.com.

    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 "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

Sehingga akan menjadi seperti gambar di bawah ini :

5. Selanjutnya silahkan Sobat Blogger klik pada tombol yang belogo segita berwarna hijau, atau bisa juga dengan menekan tombol F5 pada keyboard :

Tunggu hingga proses penghapusan Password seselai, dan jika proses penghapusan Password tersebut selesai, akan ditandai dengan munculnya pop up seperti di bawah ini :

Silahkan klik saja tombol OK, dengan demikian Sheet yang tadinya terpassword sekarang sudah tidak lagi (sudah hilang passwordnya).

 

Demikian pembahasan mengenai Solusi Lupa Password Sheet Excel, mudah-mudahan apa yang sudah Saya sampaikan melalui artikel/postingan kali ini bisa bermanfaat untuk kita semuanya. Sekian, dan terimakasih.

#Unprotect_Password_Excel

#Password_Breaker

Share :