Gruppe
Allgemein
Bereich
Blattschutz
Thema
Tabelle vor der Bearbeitung schützen
Problem
Wie kann ich eine Tabelle von der Bearbeitung und dem Kopieren von Zellen schützen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub ProtectSheet()
Range("A1").Select
Range("A1:O20").CopyPicture _
Appearance:=xlScreen, _
Format:=xlBitmap
ActiveSheet.Paste
ActiveSheet.Protect
End Sub
Sub UnprotectSheet()
ActiveSheet.Unprotect
ActiveSheet.Pictures(1).Delete
End Sub