hane mal eine Frage kann man per Makro die Meldund unterdrücken das ein Schutz auf einer Zelle besteht ? Wäre ech eine tolle sache wenn man diese Meldung unterdrücken kann.
Vielen Dank im Vorraus für Eure hilfe
Andreas
Private Sub Worksheet_Change( ByVal Target As Excel.Range)
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$H$5" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <= 4 And Target.Row <= 10 Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Beispiel für Schutz von Spalte C:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Beispiel Zellschutz mit Undo für A1 - wenn man aber in B1 eine 1 eingibt, können dort Änderungen vorgenommen werden:
setze folgendes Makro ins Codefenster der Tabelle (dabei liegt das zu schützende Gültigkeitsdropdown in Zelle A1 - anpassen!):
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
If Range("B1").Value <> 1 Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End Sub
Blattschutz braucht nicht gesetzt zu werden, dieses Makro stellt nach dem Versuch, die Auswahl in A1 zu ändern, den vorherigen Zustand wieder her.
Will man die Zelle A1 bewußt ändern, muss man in B1 eine 1 eingeben. Für diesen Zweck kann man ja auch eine "verstecktere" Zelle vorsehen.
Gruß,
Beate