Klick auf Zelle bringt App.Caller="Schaltfläche 1"
13.12.2005 16:36:25
Reinhard
zur Beantwortung von https://www.herber.de/forum/messages/708147.html habe ich die Datei:
Die Datei https://www.herber.de/bbs/user/29212.xls wurde aus Datenschutzgründen gelöscht
Sie hat eine Schaltfläche (aus Formular) und u.A. folgenden Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
MsgBox Application.Caller
If Application.Caller = "Schaltfläche 1" Then Exit Sub
Set Bereich = Application.Union(Range("C9:G9"), Range("C10:G10"), Range("C11:G11"))
If Not Application.Intersect(Target, Bereich) Is Nothing Then
eing = InputBox("Passwort")
If eing <> "xyz" Then Exit Sub
'Blattschutz aufheben
End If
End Sub
Ein Klick auf eine Zelle im überwachten Bereich führt dazu dass workshheet_Selectionchange gleich verlassen wird durch die Application.Caller Abfrage.
Wieso ist der Application.Caller = "Schaltfläche 1" *staun*
Und wieso klappt der pre-Tag hier nicht?
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen