Blatt schützen
13.05.2017 18:31:11
Matthias
ich habe einen Code geschrieben mit dem ich Berechnungen durchführen kann. Da ich nicht möchte dass die Formeln in den Zellen gelöscht werden hab ich das Tabellenblatt mit einem Blattschutz versehen. Um den Makrocode aber dennoch ausführen zu können hab ich den Befehl
Worksheets("Tabelle1").Unprotect Password 123
... dann mein code
... und dann Worksheets("Tabelle1").Protect Password 123
in den Code eingefügt.
Funktioniert prima, nur: Wenn die Tabelle leer ist, wenn sich keine Daten darin befinden und jemand auf den Button drückt der meinen Code für die Berechnungen ausführten soll, dann kommt eine Fehlermeldung (Error 400), is nicht weiter schlimm, aber der Blattschutz wird aufgehoben. Kann man das irgendwie verhindern? Vielleicht in der Form: IfIsError Then Worksheets("Tabelle1").Protect ? Ich hab schon was ausprobiert, aber geklappt hats leider nicht. Vielleicht weiß jemand Rat.
Gruß