Sub Password_Cracker()
   
  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 
      
   Kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   ActiveSheet.Unprotect Kennwort
   
   If ActiveSheet.ProtectContents = False Then
     Debug.Print Kennwort
     MsgBox "Done" & vbCr & "enjoy it )"
     Exit Sub
   End If
   
  Next: Next: Next: Next: Next: Next
  Next: Next: Next: Next: Next: Next
 
End Sub