Membuka Protec Sheet yang dipassword - Belajar VBA Excel

          

           Kadang kita memprotec sebuah sheet dengan password namun kita lupa password yang kita gunakan sehingga kita tidak lagi bias membukanya  namun kode ini akan membantu anda membuka kembali tanpa menggunakan password

          Pastekan kode ini pada sebuah modul kemudian jalan modul  pada property vba klik run kemudian pilih f5  tunggu sesaat sheet protect sudah terbuka

Sub InternalPasswords()

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

 ActiveWorkbook.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)

 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 ActiveWorkbook.ProtectStructure = False Then

 If ActiveWorkbook.ProtectWindows = False Then

 If ActiveSheet.ProtectContents = False Then

 Exit Sub

End If

End If

End If

 Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

Demikian semoga bermanfaat!!