tabellenblatt schützen vor Veränderung
28.05.2020 11:54:24
Rolf
ich habe eine Frage betreffend Schreibschutz einer Tabelle. Das untenstehende Makro funktioniert soweit.
Das erste unschöne daran ist aber, dass er mich zuerst fragt ob ich wirklich ohne Makros im xlsx speichern will.
das zweite ist dass wenn ich trotzdem in Versuchung komme in der Tabelle "Anfrage" etwas zu ändern, zuerst eine Meldung erscheint, dass ich den Blattschutz aufheben soll usw. und er dann in einem Laufzeitfehler 1004 endet.
Gibt es eine andere elegante Möglichkeit die Tabelle "Anfrage" gegen Veränderung zu schützen ohne nervige Meldung und natürlich auch ohne Laufzeitfehler.
Hier nun der Code
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Workbooks.Add Template:= _
"\\Serverxy\Kalkulationsvorlage mit Grundlagen.xltx"
Sheets(Array("Grundlagen", "Kalkulation")).Select
Sheets("Kalkulation").Activate
Sheets(Array("Grundlagen", "Kalkulation")).Move After:=Workbooks( _
"Checkliste Neuteil.xlsm").Sheets(1)
Sheets("Anfrage").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs Filename:= _
"C:\Kalkulation2.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Liebe Grüsse
Rolf