Scribd
Upload
34 views1 page

Remove Password Excel

This code attempts to remove a password from a protected Excel sheet by iterating through all possible 6-character password combinations using characters from 65-66 (A-Z) and 32-126. If the sheet becomes unprotected during the process, it displays a message and exits. Otherwise, it continues iterating through all combinations in nested For loops.

Uploaded by

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

Remove Password Excel

This code attempts to remove a password from a protected Excel sheet by iterating through all possible 6-character password combinations using characters from 65-66 (A-Z) and 32-126. If the sheet becomes unprotected during the process, it displays a message and exits. Otherwise, it continues iterating through all combinations in nested For loops.

Uploaded by

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

Sub sbRemoveSheetPassword()

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 "Complete"
Exit Sub
End If

Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

You might also like