AW: Ereignismakro
22.09.2003 17:14:50
Elmar Steigenberger
Hallo Boris,
danke für das tolle Makro.
Bevor ichs einbaue, möchte ich es verstehen:
If T.Cells.Count > 1 Then Exit Sub
ist klar, wenns mehr Zellen sind dann raus.
If T.Locked And Ash.ProtectContents Then Exit Sub
Mir Unklar - ich verstehe es so:
Wenn diese Zelle gesperrt ist und das Blatt gesperrt ist, dann auch raus
ElseIf T.Locked And Ash.ProtectContents = False Then: Ash.Protect "Kennwort":Exit Sub
Mir Unklar - ich verstehe es so:
Wenn diese Zelle gesperrt ist und das Blatt nicht gesperrt ist, dann Blatt Sperren und aus dem Makro raus.
Was ich aber bräuchte, wäre:
Wenn die Zelle nicht gesperrt ist und das Blatt gesperrt ist, dann mit Farbe füllen ansonsten Blatt sperren.
Ich habe es jetzt so gemacht - inzwischen ist es keine Farbe mehr, sondern ein Muster:
ActiveSheet.Unprotect
With Selection.Interior
.Pattern = xlSolid
End With
ActiveSheet.Protect UserInterfaceOnly:=True
So gehts doch auch, oder?
Vielen Dank fürs Lesen und Antworten!
liebe e-Grüße
Elmar