Cara Membuka Proteksi Sheet Microsoft Excel tanpa password

Cara Membuka Proteksi Sheet Microsoft Excel tanpa password

Cara Membuka Worksheet Yang Terproteksi Mengunci cells atau sheet di dalam Excel berguna untuk mengamankan data yang terdapat dalam cells tersebut agar tidak bisa diubah atau dimodifikasi orang lain, atau agar mencegah terhapusnya data secara tidak sengaja. Sekarang bagaimanakah jika password yang digunakan untuk mengunci cell atau sheet tersebut lupa atau tidak ingat, sehingga file tersebut tidak bisa dimodifikasi atau dipakai lagi. Nah untuk membuka file Excel yang terkunci, ada cara untuk membuka password tersebut, ikuti langkah-langkah sebagai berikut: Buka File Excel dimana Worksheet tersebut ada sheet atau cell yang terproteksi.


Lalu buka Visual Basic (Alt+F11), dan klik Insert dan klik Module.


Kemudian copy-kan syntax VBA berikut ini ke dalam Module tersebut:

 Sub UnprotectSheet()

 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 Crack Yang Sudah Termodifikasi Adalah : " & 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

Setelah itu aktifkan Tools dan klik Macros, setelah terbuka jendela Macros aktifkan UnprotectSheet dan klik Run


Biarkan system bekerja beberapa saat dan akan muncul pesan sebagai berikut:


Lalu tutup program Visual Basic, maka Sheet yang tadinya terkunci dapat dimodifikasi atau ditulis lagi. Selamat mencoba semoga bermanfaat…


form blog : http://blogamka.blogspot.com.tr/