Pages

Monday, 23 November 2015

Bagaimana Cara Unprotect Worksheet Excel yang di Password

Bagaimana cara membuka worksheet yang di protect tanpa memiliki password.
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 Protect

Worksheet di Protect
Tekan ALT+F11, untuk melihat kode worksheet, klik dua kali sheet yang di protect. (disini Sheet1 yang di protect):

ALT+F11
ALT+F11

Masukan 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 F5

Klik Tombol Run atau Tekan F5
dan taraaaa…! sekarang sheetnya unprotected dan kamu akan mendapatkan popup password yang bisa digunakan untuk membuka password sheet di workbook yang sama.
Unprotected
Unprotected


By : blog.situstarget.com

No comments:

Post a Comment

GPT Protective Partition pada Hard disk

  Terkadang, setelah menyambungkan hard disk internal atau eksternal ke sistem Anda, Disk Management Windows memberi tahu bahwa hard disk te...