Hallo Sunny,
Ich versuche jetzt einmal das Politisieren hier herauszunehmen und einen Konstrucktiven Beitrag zu leisten:
Ich nehme an, das ein Teil deines Blattes der Schutz (Start, Schrifart, Zellen Formatierten, Schutz, Gesperrt.) wenn dort einige Zellen gesperrt sind, kommt der Fehler.
Anfang:
' Blattsperre deaktivieren
ActiveSheet.Unprotect Password:="Hallo123"
Dein Makro
Am Ende:
' Blattsperre Zeile 2 aktivieren (war bei mir so)
Workbooks(ZName).Worksheets(ZSheet).Activate
Cells.Select
Selection.Locked = False ' Hier werden erst einmal alle Zellen "Freigeschaltet" Wenn du nur einen Teil möchtest, musst du auch nur diesen Teil Freischalten und den Rest "Sperren"
' Also Cells.Select
' Selection.Locked = True
'Spalte J,K,M selektieren und mit Selection.Locked = False freischalten
Rows("2:2").Select ' Hier musst du die Zeile eintragen die du Sperren möchtest. In meinem Fall die Zeile 2
Selection.Locked = True
'Hier wird Protect wieder eingeschaltet mit dem Allow Filtering True
ActiveSheet.Protect Password:="Hallo123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Ich hoffe ich konnte dir soweit helfen.
Hatte aber jetzt nicht viel Zeit
Schönes Wochenende
Bernd
|