möchte gerne das folgende Makro erweitern.
Private Sub Worksheet_Activate()
ScrollArea = [BF30].Text
End Sub
Wenn Zelle BF30 leer, dann soll der Schreibschutz aufgehoben werden. Wenn befüllt, dann soll der Schreibschutz aktiv sein. Das Kennwort soll blank sein.
Kann mir jemand helfen?
Viele Grüße aus Köln
Markus