How Much Coconut Oil In Popcorn Machine 4 Oz

Excel sheet to remove protection from unknown password

I just had an inquiry from an employee who has forgotten in Excel, the password for the blade guard. I
After a short search on Google I found the following solution.

Man created in the document, with the forgotten password, a new macro (Alt + F11, then "Insert" - "module")
This new module is then added the following text:

      
   Sub  Blattschutz_löschen ()  
    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   n = 65   To   66 
              For   o = 65   To   66 
                For   p = 65   To   66 
                  For   q = 65   To   66 
                    For   r = 65   To   66 
                      For   s = 65   To   66 
                        For   t = 32   To   126 
  
 ActiveSheet.Unprotect Chr(i) &  Chr(j) & Chr(k) & Chr(l) & Chr(m) & _ 
  Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t) 
  
                        Next   t 
                      Next   s 
                    Next   r 
                  Next   q 
                Next   p 
              Next   o 
            Next   n 
          Next   m 
        Next   l 
      Next   k 
    Next   j 
    Next   i 
 MsgBox   "Fertig"   
     End     Sub     
            

Nun führt man das Modul aus und nach einiger Zeit wird die Message Box "Fertig" angezeigt.
Der Blattschutz sollte nun entfernt sein. Bei mir hat es Jedenfalls geklappt (Excel 2003)

Quelle: http://excelabc.de/excel/mt/makro.php?Seite=mt00003

--------------------------------------------------