Blattschutz-DisplayAlerts deaktivieren
28.09.2007 09:32:00
Gröbi
habe eine Prozdedur geschrieben, die den Blattschutz aktiviert, wenn sich der Curosor in einer Zelle mit einer Formel befindet. Wenn der Benutzer die Zelle editieren will, erscheint immer eine lästige Meldung: "Zelle ist geschützt...". Wie kann ich dies Meldung ausschaltung. "DisplayAlerts" ist wirkungslos.
Hier der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.HasFormula = True Then
Application.DisplayAlerts = false
ActiveSheet.Protect
Else:
ActiveSheet.unprotect
Application.DisplayAlerts = true
End If
usw....
Anmerkung: Mit der Blatteigenschaft "EnableSelection = 1", Disablen der geschützten Zellen, habe ich nur eingeschränkte Funktionen, kommt daher ´nicht in Betracht.
Wie kann ich diese Meldung abstellen?
Danke für Hinweise!
Gröbi