Tak jarang kita temui beberapa file excel yang kita dapatkan, terkunci dengan password yang tidak kita ketahui, sementara kita membutuhkannya untuk edit beberapa cell dari file tersebut.
Tidak usah putus asa, kami coba bagikan trik sederhana me-reset password dari file excel tersebut, dengan catatan trik ini tidak berlaku jika VBA-nya di kunci.
1. buka excel yang di password, tekan Cancel untuk permintaan password.
2. tekan Alt + F11, dan akan muncul jendela seperti berikut:
3. lalu copy paste kan script berikut ke jendela General Windows:
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 usable 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
4. Pilih Run atau tekan F5
5. Close and Return to Microsoft Excel atau tekan Alt+Q
NB : TIDAK BISA DILAKUKAN JIKA VBA EXCEL TERSEBUT DIKUNCI
Tidak usah putus asa, kami coba bagikan trik sederhana me-reset password dari file excel tersebut, dengan catatan trik ini tidak berlaku jika VBA-nya di kunci.
1. buka excel yang di password, tekan Cancel untuk permintaan password.
2. tekan Alt + F11, dan akan muncul jendela seperti berikut:
3. lalu copy paste kan script berikut ke jendela General Windows:
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 usable 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
4. Pilih Run atau tekan F5
5. Close and Return to Microsoft Excel atau tekan Alt+Q
Selamat Mencoba..!!!!!
NB : TIDAK BISA DILAKUKAN JIKA VBA EXCEL TERSEBUT DIKUNCI
0 Komentar untuk "Reset Password Excel"