Postingan kali ini akan membahas bagaimana cara membuka worksheet yang di protect tanpa memiliki password.
ceritanya ada file workbook yang didalamnya terdapat worksheet yang di password, jika kamu lupa passwordnya atau tidak tahu dan ingin membukannya, ikuti langkah berikut.
contoh worksheet yang di protect:
Worksheet di ProtectTekan ALT+F11, untuk melihat kode worksheet, klik dua kali sheet yang di protect. (disini Sheet1 yang di protect):
ALT+F11masukan kode dibawah di layar putih tersebut, jangan diganti-ganti hanya copy-paste:
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
sekarang klik tombol run atau tekan F5:
Klik Tombol Run atau Tekan F5dan taraaaa…! sekarang sheetnya unprotected dan kamu akan mendapatkan popup password yang bisa digunakan untuk membuka password sheet di workbook yang sama.
Unprotectedsekian, dan DO WITH YOUR OWN RISK!!!
Komentar ditutup.