excel kennwort entfernen

irgendwo im netz gefunden. immer wieder gebraucht. hier nochmal festgehalten.

blattschutz entfernen:

– vb editor oeffnen (alt+f11)
– neues modul in die arbeitsmappe einfuegen

dann diesen code einfuegen:

Sub SchutzEntfernen()
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 "Schutz abgeschaltet"
End Sub

– vb editor schliessen
– mit alt+f8 modul auswaehlen und ausfuehren.

aehnlich geht das mit dem kennwort auf die komplette arbeitsmappe… gleiches vorgehen, nur statt “ActiveSheet.Unprotect” ein:

ActiveWorkbook.Unprotect Chr(i) & _

Author: sd

Leave a Reply

Your email address will not be published.