Getagged: Excel

Blattschutz bei Excel entfernen

Dokument aufrufen, mit Alt-F11 den Visual Basic Editor aufrufen,

Rechte Maustaste in das Projektfeld auf der linken Seite, Einfügen -> Modul.

Dort diesen Text einfügen:

Sub Blattschutz_entfernen()
     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 "PW removed"
 End Sub

Dann auf Ausführen (kleiner grüner Pfeil) gehen und warten, am Ende ist der Blattschutz weg.