Gruppe
Allgemein
Problem
Wie kann ich eine Tabelle von der Bearbeitung und dem Kopieren von Zellen schützen?
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