Thema: Blattschutz

manche werden lache... ich hab ne excel-datei mit einem blattschutz auf dem tisch und kenne das passwort nicht. der programmieren weilt aber leider nicht mehr zum fragen unter uns ;-(
gibt es irgendeine möglicheit den blattschutz auszuschalten, ohne das passwort zu wissen - oder ist das passwort irgendwo im programm gespeichtert.
schon mal ein dank im voraus

Hallo David,

Sub PW_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
End Sub

Gruß Matthias

Du bist ein Excel - Tier!! hat super funktioniert!!!
Danke

-

manche werden lache... ich hab ne excel-datei mit einem blattschutz auf dem tisch und kenne das passwort nicht. der programmieren weilt aber leider nicht mehr zum fragen unter uns ;-(
gibt es irgendeine möglicheit den blattschutz auszuschalten, ohne das passwort zu wissen - oder ist das passwort irgendwo im programm gespeichtert.
schon mal ein dank im voraus

Hallo David,

Sub PW_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
End Sub

Gruß Matthias

Du bist ein Excel - Tier!! hat super funktioniert!!!
Danke

-