Office: Makro ausführen trotz Blattschutz

Hallo liebe Forumsteilnehmer,

ich habe einen Code, der mir bei Eingaben automatisch die Summe der leeren Zellen bildet. Er funktioniert auch, solange kein Blattschutz aktiviert ist. Sobald der Blattschutz aktiviert ist, kommt die Fehlermeldung: Laufzeitfehler 1004 - die Zelle, die Sie ändern möchten befindet sich auf einem schreibgeschützten Blatt.

Wie muss ich den Code abändern, dass das Makro trotz des Blattschutzes läuft?


Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Ende ' Blinken abschalten
If BoZustand = False Then Start ' Blinken einschalten
Dim r As Long 'Row
Dim c As Long 'Column
Dim sw As Boolean 'Switch
Dim z As Integer
If Not Intersect(Target, Range("c6:c53")) Is Nothing Then
c = 3
GoSub Summen_bilden

ElseIf Not Intersect(Target, Range("f6:f53")) Is Nothing Then
c = 6
GoSub Summen_bilden

ElseIf Not Intersect(Target, Range("i6:i53")) Is Nothing Then
c = 9
GoSub Summen_bilden

ElseIf Not Intersect(Target, Range("l6:l53")) Is Nothing Then
c = 12
GoSub Summen_bilden

ElseIf Not Intersect(Target, Range("O6:O53")) Is Nothing Then
c = 15
GoSub Summen_bilden

ElseIf Not Intersect(Target, Range("r6:r53")) Is Nothing Then
c = 18
GoSub Summen_bilden

End If
Exit Sub
Summen_bilden:
sw = False
z = 0
Application.EnableEvents = False
Application.ScreenUpdating = False
Range(Cells(6, c + 2), Cells(53, c + 2)).ClearContents
For r = 6 To 53
If Cells(r, c) = "" Then
If sw = True Then z = z + 1
Else
sw = True
If z > 0 Then
Cells(r - 1, c).Offset(0, 2) = z
z = 0
End If
End If

Next r
Application.ScreenUpdating = True
Application.EnableEvents = True
Return
End Sub

Wer kann mir hier weiterhelfen?

Viele Grüße,

Maggus

:)

 

Hallo
Kannst du für die Makrolaufzeit den Blattschutz aufheben?

Dann versuche mal dies:

Worksheets("Dienstplan 2007").unprotect Password:="Password"
'
'
Worksheets("Dienstplan 2007").protect Password:="Password"



Gruss,

Tinker Bell

 

Hallo Maggus,

die Protect-Methode des Arbeitsblattes hat noch 1en Parameter UserInterfaceOnly:=True
Damit sind für den User die geperrten Zelle bei gesetztem Blattschutz geschützt, Vba darf aber nach wie vor die Zellinhalte nach Lust & Laune verändern.
Einziger Nachteil: diese Einstellung muß beim erneuten Öffnen der Arbeitsmappe wiederholt werden!

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi,

danke für deinen Hinweis.

Kann man den Code so einfügen, dass er automatisch beim nächsten Öffnen wieder ausgeführt wird?*confused.gif*

Wie genau geht das?
Kannst du mir mit einem Codevorschlag weiterhelfen?

Viele Grüße,

Maggus