Blatt schützen, Zellen schützen

Computer: Software & Programmierung Office Software
1

Hallo Experten / Reinhard,

ich denke mal ihr könnt mir weiterhelfen.

Wir haben vor ca. 1 Woche über den Blattschutz gesprochen. Siehe Forum.
Mine Ausgangssituation: Habe eine Arbeitsmappe mit folgenden Blättern Einstellungen, 01, 02, …, 12, Datenblatt und Zusammenfassung. Nun funktioniert der Blattschutz jedoch will ich nachdem der Blattschutz aktiv ist. Immer noch verschiedene Zellen editieren. D.h. Zellen formatieren -> Schutz -> nicht gesperrt gesetzt. Das funktioniert auch und es ergeben sich keine Probleme.

Nun zu meiner Frage. Ih will mittels Button_onclick() eine Funktion aufrufen. Die die Zellen sperrt, die nicht gesperrt sind. Also die Bereiche die die Benutzer editiert haben, zu sperren um das komplette Tabellenblatt zu schützen. Habe es mit Union und Selection.Lock versucht. jedoch ohne erfolg.

hoffe mir kann jemand weiterhelfen.

Um Antworten wäre ich sehr dankbar.

Gruß und schönen Tag,

2

Hallo,

du musst zunächst den Blattschutz per Makro aufheben, dann die Zellen mit .locked formatieren, dann das Blatt wieder schützen.

Gruß, Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hi,
'Das Makro legt eine Bitmap-Kopie vom Bereich B2-H10 mit Blattschutz
'über den Bereich und löscht ihn wieder.
'Logischerweise dürfen die Schaltflächen nicht innerhalb des Bereiches sein! Ich würde es deshalb aber nicht mit Schaltflächen machen. ;-}
Sub SchutzEIN()
Range(„B2“).Select
Range(„B2:H10“).CopyPicture _
Appearance:=xlScreen, _
Format:=xlBitmap
ActiveSheet.Paste
ActiveSheet.Protect
End Sub
Sub SchutzAUS()
ActiveSheet.Unprotect
ActiveSheet.Pictures(1).Delete
End Sub
Gruß
Rainer