Locked von Zellen
27.03.2009 11:51:20
Zellen
Ich habe in einigen Sheets diesen Code hinterlegt.
Da ich mit einem Makro in einigen Sheets die Clear.Contents und Copy anwende habe ich durch den untenstehenden Code einen Debugfehler.
Ich wollte bevor ich das Makro laufen lasse in allen Tabellen den untenstehenden Code kurzfristig aussetzen und danach wieder aktivieren.
Wie mache ich das?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
For Each Zelle In Target
If Zelle.Locked Then Me.Protect ("wsr21"): Exit Sub
Next
Me.Unprotect ("wsr21")
End Sub
Gruss Stefan
Anzeige