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.

Advertisements

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s