Sub deleteAnySheetPassword() 'Макрос позволяет в некоторых случаях снять защиту с активного листа независимо от того, какой там был пароль.
 'Макрос написан 12 мая 2005 года (автор Djon Player).
 
 On Error Resume Next
 ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
 ActiveSheet.Unprotect Password:=""
 On Error GoTo  0 
 
End Sub

Sub Подбор_аналога_пароля_листа()
'Макрос написан 20 декабря 2003 года (автор Djon Player).
'Программа предназначена для подбора пароля, для снятия защиты активного листа.
 
 Dim str_pass As String
 Dim s As String
 Dim ls As Integer
 Dim i As Integer
 Dim j As Integer
 Dim ch As String * 1
 Dim found As Boolean
 Dim bit0 As String * 1
 Dim bit1 As String * 1
 Dim kolichestvoBit As Integer
 
 bit0 = "0" 'Символ соотвествующий нулевому биту.
 bit1 = "1" 'Символ соотвествующий единичному биту.
 kolichestvoBit = 20 'Максимальное количество бит в числе.
 
 s = "" '
 
 ls = Len(s)
  
 While ls < kolichestvoBit
   
   found = False 'Переменная используется как индикатор нахождения очередного двоичного числа.
   
   While Not found
     For i = ls To 1 Step -1
      ch = Mid(s, i, 1)
      If ch = 0 Then
       Mid(s, i, 1) = bit1
       For j = i + 1 To ls
        Mid(s, j, 1) = bit0
       Next j
       found = True
       Exit For
      End If
     Next i
     If Not found Then
      s = bit0 & s
      ls = ls + 1
      found = True
     End If
     
   Wend
   
   str_pass = s 'Строка, в которой формируется число в двоичном представлении.
   
   On Error Resume Next
   
   ActiveSheet.Unprotect Password:=str_pass 'Попытка снятия защиты листа.
   
   If Err.Number <> 0 Then
     Err.Clear 'Очистить ошибку.
    Else
     MsgBox "Подобран пароль листа: " & str_pass
     Debug.Print "Подобран пароль листа: " & str_pass
     Exit Sub
   End If
   
 Wend
 
 On Error GoTo 0
 
End Sub