Scribd
Upload
32 views1 page

Alt f11 Insert Module Copas Teks Pilih Sheet Tujuan Run Macro (f5) Run Close Layar Visual Basic

The document contains a VBA code that attempts to automatically unlock a workbook and worksheet by iterating through all possible combinations of characters between ASCII codes 65-66 and 32-126 to use as passwords. It checks if the workbook structure, windows, and worksheet contents are unlocked after each attempt and exits the subroutine if any of them are successfully unlocked.

Uploaded by

cucu sugandi
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
32 views1 page

Alt f11 Insert Module Copas Teks Pilih Sheet Tujuan Run Macro (f5) Run Close Layar Visual Basic

The document contains a VBA code that attempts to automatically unlock a workbook and worksheet by iterating through all possible combinations of characters between ASCII codes 65-66 and 32-126 to use as passwords. It checks if the workbook structure, windows, and worksheet contents are unlocked after each attempt and exits the subroutine if any of them are successfully unlocked.

Uploaded by

cucu sugandi
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

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

Alt f11
Insert module
Copas teks
Pilih sheet tujuan
Run macro (f5)
Run
Close layar visual basic

You might also like