Ook wel eens een probleem gehad  je hebt een bladbeveiliging gedaan op een excel document. Maar je bent het wachtwoord vergeten. Geen nood maak een makro aan en kopieer de onderstaande visualbasic code, en run deze.  Het kan even duren maar naar verloop van tijd komt er een melding met het wachwoord.  Ideal voor vergeet achtige mensen. 

Sub test() 

  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)

   Sheets.Add.Name = “wachtwoord”

   ActiveWorkbook.Sheets(”wachtwoord”).Select

   Range(”a1″).FormulaR1C1 = 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