Inputabfrage
serge
Meine Arbeitsmappe ist mit einen Passwort geschützt.
Ich möchte mit meinem Makro ein Passwort-Abfrage starten und dieses dann einsetzen.(siehe unten)
Bei falscher Angabe soll sie wiederholtt werden.
Wie stelle ich das an?
Danke für eure Hilfe
Serge
anbei mein makro:
Public rngBackLink As Range
---------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
If Target.Column = 34 And Target.Row 'hier soll die Abfrage eingestzt werden
Sheets("crédit d'impots").Visible = True
Set rng = Sheets("crédit d'impots").Range(Target.Text)
On Error GoTo 0
If Not rng Is Nothing Then
Application.Goto rng, True
Set rngBackLink = Target
End If
End If
End Sub