331 Aufrufe
Gefragt in Tabellenkalkulation von
Hallo
ich habe eine umfangreicheDatei mit mehreren Tabellen zum
weiterleiten erstellt
Nun wollte ich einige Tabellen vor unbeabsichten löschen der Einträge
mittels Makro sichern und auch eine Sperre im VBA für dieses makro
einrichten
Leider sind meine VBA Kenntnisse nicht ausreichend
wer kann mir helfen
MfG

2 Antworten

0 Punkte
Beantwortet von
So was?

Blattschutz an
Sub Blattschutz()
ActiveSheet.Protect Password:="Passwortname", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Blattschutz aus
Sub BlattschutzAus()
ActiveSheet.Unprotect Password:="Passwortname"
End Sub
0 Punkte
Beantwortet von fedjo Experte (2.2k Punkte)
Hallo,
da die Datei mehrere Tabellen hat, müsste ja jedes Blatt mit einem Makro geschützt werden.
Eine andere Lösung wäre die Datei ohne Makro schreibgeschützt speichern.

Speichern unter
Tools
Allgemeine Optionen
Kennwort zum Ändern (Kennwort)
Schreibschutz empfehlen
OK
Kennwort wiederholen

Ein Benutzer kann die Datei ohne Kennwort schreibgeschützt öffnen,
kann dann auch Einträge verändern, aber nicht speichern.

Gruß
fedjo
...