InputMessage
22.11.2012 21:01:58
Mister-B
mittels folg. Makro blende ich ein InputMessage in der aktiven Zelle ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection.Validation
.Add Type:=xlValidateInputOnly
.InputTitle = "Message Title Goes Here"
.InputMessage = "Message Contents Go Here"
End With
End Sub
Funktioniert gut aber nur solange der Blattschutz nicht gesetzt ist. Kann man trotzdem den Blattschutz irgendwie per VBA einschalten, sodass das o.g. Makro noch funktioniert. Beim Blattschutz sollen die nicht gesperrten zellen ausgewählt werden dürfen.
Gruß
Martin