Passwortabfrage
13.08.2007 16:43:13
Brauner
Ich benutze folgenden untenstehenden Code den mir Hajo gebaut hat
Nun hätte ich gerne bevor sich das Fenster "eingabedaten löschen" erscheint
eine Passwortabfrage eingebaut.
wenn Passwort richtig, gehts weiter,wenn falsch Meldung "Keine Berechtigung"
soll verhindern dass ein spassvogel die Daten per Knopfdruck löscht.
Ich hoffe ihr könnt mir helfen
Danke
Wolferl
Option Explicit
Sub Test()
If MsgBox("Willst Du die Eingabedaten wirklich löschen?", vbYesNo + vbQuestion, "Lö _
schabfrage ?" _
) = vbYes Then
Range("BereichA") = ""
End If
End Sub
Anzeige