Ich deaktiviere mit dem Befehl
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
das Doppelklicken auf die Zellen. Das mache ich anstelle des Blattschutzes, um Änderungen in meiner Datei zu unterbinden. Das Funktioniert auch, da ich alle Menüleisten in der Datei ausblende. Nun möchte ich aber, dass wenn auf irgend eine Zelle in dem Blatt doppelt geklickt wird, eine Passwortabfrage gestartet wird, die mir, solange die Datei geöffnet ist, dauerhaft das deaktivieren des Doppelklicks der Zellen ausschaltet. Wenn das Passwort falsch ist oder die Abbruchtaste gedrückt wird, soll das Doppelklicken deaktiviert bleiben. Ich habe es schon mit dem Code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strWks As String
strWks = InputBox(Prompt:="Bitte Passwort eingeben:", Default:="")
If strWks <> "Mein Passwort" Then
MsgBox "Falsches Passwort"
Cancel = True
Else
Cancel = False 'Doppelklick auf Zelle wird deaktiviert
End If
End Sub
ausprobiert. Funktioniert auch, außer, dass bei jedem Doppelklick auf irgendeine Zelle die Passwortabfrage erneut gestartet wird. Das ist aber sehr lästig, da ja jemand der das Passwort richtig eingegeben hat berechtigt ist, Änderungen vorzunehmen und somit für die Dauer an der an der Datei gearbeitet wird und diese geöffnet ist, keine Passwortabfrage mehr erfolgen muss.
Ich hoffe, Ihr könnt mir dabei helfen. Schon mal im Voraus besten Dank für die Hilfe,
Oliver