Office: Tabellen schützen

Hallo,

ich möchte die nachfolgende Datei wie folgt schützen:

Variante01:
alles schützen außen den Bereich B3:B5 (nur in diesem Bereich sollen Eingaben möglich sein)
(auch keine Spalten und Zeilen einfügen)

Variante02:
nur im Bereich B3:D3 und die komplette Zeile 5 sollen geschützt sein;
im Bereich A1:E6 dürfen weder Spalten noch Zeilen eingefügt werden

Variante03:
dieses Sheet soll vollständig geschützt werden.


Wie lautet der VBA-Code dazu? ich führe Aktualisierungen der Tabellen mittels VBA-Code durch und muss dazu dann bestimmt die Tabellen am Beginn der Prozedur vollständig freigeben und am Ende wieder entschprechend schützen.

Vielen Dank und liebe Grüße

p.s. es handelt sich bei der Datei um eine Beispieldatei ohne Sinn. Nur das ich das Prinzip verstehe... und dann auf meine Dateien anwenden kann.

 

Hallo!

Hilft dir dieser Ansatz weiter?

Code:

Sub xyz()
With Sheets("Tabelle1")
.Unprotect Password:="Passwort" 'hebt den Blattschutz auf
.Cells.Locked = True 'schützt alle Zellen
.Range("A5:C5").Locked = False 'hebt den Schutz für diesen Bereich auf
.Protect Password:="Passwort" 'setzt den Blattschutz
End With
End Sub

 

du möchtest Dir vielleicht mal in der Online-Hilfe (aus dem VBA-Editor heraus) das Beispiel zur "Locked"-Eigenschaft (Verweis dahin auch über die "Protect"-Methode) ansehen.

Gruß, Michael