Ich möchte gern einige Spalten gegen Bearbeitung und Kopieren schützen.
Das Beispiel habe ich gefunden:
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
Nur leider kann ich damit nicht viel anfangen.
Bei mir sollen die Spalten A bis E vor Bearbeitung und Kopieren geschützt werden.
Habt ihr vllt einen passenden kurzen Quelltext?
Besten Dank im Voraus!