Kennwortabfrage, aaaber ...
19.12.2015 16:48:45
Uwe
mit dem nachfolgenden Code lege ich mittels Inputbox eben ein individuelles Kennwort fest, das eben als Name der Zelle A1 eines Tabellenblattes festgehalten, sprich gespeichert wird. Soweit so gut. Warum aber "meckert" der Code stets, bei der Abfrage, so ich ein Kennwort mit Zahlen (z.B. test123) vergeben habe? Wie umgehe ich dieses Problem? Oder handelt es sich hier erneut um eine der Einschränkungen via VBA? Für sachdienliche Hinweise, na, Ihr wisst schon, bin ich seeehr dankbar.
Gruß
Uwe
Der Code zum guten Schluss:
Sub Kennwortänderung()
Dim pWort$, Pass$
pWort = InputBox("Bitte Passwort festlegen:", Application.UserName)
Pass = InputBox("Bitte Passwort wiederholen:", Application.UserName)
If pWort = "" Then
MsgBox "Passwort konnte nicht geändert werden!"
Exit Sub
End If
If Pass = "" Then
MsgBox "Passwort konnte nicht geändert werden!"
Exit Sub
End If
If pWort Pass Then
MsgBox "Passwort konnte nicht geändert werden!"
Exit Sub
End If
If pWort = Pass Then
On Error Resume Next
With Worksheets(1).Range("A1")
.Name.Delete
.Name = pWort
.Name.Visible = True
End With
End If
ActiveWorkbook.Save
MsgBox "Ihr Passwort wurde geändert!"
End Sub
Anzeige