Passwortschutz auf alle Tabellen
12.12.2012 08:32:43
nuernberg@esm-ept.de
ich habe mir in der Personl.xls zwei Makros eingebaut. Das eine soll alle Tabellenblätter mit _ einem Passwort versehen können - es sieht so aus:
Sub Blattschutz_setzen()
For Each sh In Sheets
sh.Protect Password = "7917"
Next sh
MsgBox "Tabelle ist nun geschützt !", 48 + 0, "Hinweis:"
End Sub
Das andere soll sie alle wieder entsperren können - es sieht so aus:
Sub Blattschutz_entsperren()
For Each sh In Sheets
sh.Unprotect Password = "7917"
Next sh
MsgBox "Tabelle ist nun entspertt !", 48 + 0, "Hinweis:"
End Sub
Die funktionieren auch gut und ich kann damit jede geöffnete xls Datei mit Blätterschutz versehen - Nun mein Problem, ich kann ein Tabellenblatt das mit dem Code geschützt worden ist, leider nicht mehr manuell bzw. einzeln entperren - es kommt immer bei Eingabe des Passwortes die Meldung - Passwort ist falsch ......
Warum ist das so - ich habe doch ein ganz bestimmtes Passwort vergeben und so müsste ich doch auch die Tabellen manuall (ohne Code) und auch einzel entsperren können?
Für alle Hilfe währe ich sehr Dankbar
Mit freundlichen Gruss