VBA - Problem bei gesetztem "ActiveSheet.Protect"
16.08.2016 08:41:29
Boory@gmx.net
in einer Zeiterfassung, in der die MA sich per Transponder-Scan einloggen, wird VBA-seitig der Blattschutz (hier PW: 12345) aufgehoben, der Wert eingetragen und dann wieder geschützt (ActiveSheet.Unprotect / ActiveSheet.Protect). Dies funktioniert problemlos! Nun möchte ich über ein Userform per Call ein Modul aufrufen, in dem zum Eintrag eines neuen "Monats-Ersten" alle alten Einträge gelöscht werden, da der MA ja die geschützten Zellen nicht selbst löschen kann. Dann wird ein "SaveAs" ausgeführt, in dem die Datei mit Namen des MA und aktuellem Monat gespeichert wird und sich das Userform dann schließt. So weit die Theorie... :o)
Wenn ich jetzt im Sheet selbst den VBA-Code mit "ActiveSheet.Protect" beende, bekomme ich eine Fehlermeldung -- Debuggen. Diese tritt aber nur auf, wenn die gefüllten Zellen (aktuell per Button) geleert werden, da das Sheet ja dafür ebenfalls unprotected werden muss (geschieht im Modul11). Kommentiere ich das "ActiveSheet.Protect..." am Codeende im Worksheet aus, funktioniert der Code wie gewünscht.
Was übersehe ich...? Datei hier:
https://www.herber.de/bbs/user/107639.xlsm
Blattschutz-PW: 12345
Viele Grüße - Boory