Есть ли способ снять защиту листа Excel (* xls) с помощью шестнадцатеричного редактора?

Question

Я читал это post, и они описывают метод открытия защищенного паролем проекта VBA в excel (V.2003 или .xls). Мне было интересно, есть ли подобный метод для снятия защиты с листов Excel?

Большое спасибо.

Answer 1

Предположим, что Sheet2 защищен паролем. Откройте книгу. Выберите лист2. В окне vba наклеивания листа2 ниже кодов. Выберите все коды для запуска кодов. Он даст вам сообщение. Просто закройте сообщение и окно vba. Sheet2 не защищен.

Sub PasswordBreaker() 
    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 "One usable password is " & Chr(i) & Chr(j) & _ 
       Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ 
       Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) 
       Exit Sub 
      End If 

      Next: Next: Next: Next: Next: Next 
     Next: Next: Next: Next: Next: Next 

    End Sub 

Скриншот