Hallo Leute,
bitte helft mir. Ich möchte den Editor über eine Schaltfläche nach vorheriger Passwortabfrage aufrufen können. Das habe ich jetzt, aber es funktioniert nicht.
Vorher hatte ich Excel 5.0, daher Sheets("Modul1").
Dim Kennwort As String
Meldung = "Bitte Kennwort eingeben:"
Titel = "Sicherheitsabfrage !"
Kennwort = InputBox(Meldung, Titel)
If Kennwort = "1234" Then Sheets("Modul1").Select: Exit Sub
End Sub
Wäre nett, wenn Ihr mir weiterhelft.
Gruß
Stefan