Frage-Meldung unterdrücken: Blattschutz
16.12.2002 16:22:31
Kristin
Hallo,weiß einer von euch auch, warum es mit diesem Alert nicht funktioniert?
Habe schon mal im Archiv gesucht, aber immer wenn einer diese Frage gestellt hat, wurde sie nicht beantwortet. Es geht dabei um die Meldung bei Änderung einer geschützten Zelle:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Dim rng As Range
For Each rng In Target.Cells
If rng.HasFormula Then
Application.DisplayAlerts = True
ActiveSheet.Protect
Exit Sub
Else
ActiveSheet.Unprotect
Application.DisplayAlerts = True
End If
Next rng
End Sub
"Bitte Hilfe"
Gruß Kristin