heribertoct

Attribute VB_Name = "PasswordBreaker"
Sub PasswordBreaker()
'Breaks worksheet password protection.
    
    Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer
    Dim g As Integer, h As Integer, i As Integer, j As Integer, k As Integer, l As Integer
    
    On Error Resume Next
    For a = 65 To 66: For b = 65 To 66: For c = 65 To 66: For d = 65 To 66: For e = 65 To 66: For f = 65 To 66
    For g = 65 To 66: For h = 65 To 66: For i = 65 To 66: For j = 65 To 66: For k = 65 To 66: For l = 32 To 126