Re: code per code ändern
02.08.2002 19:28:38
bernd
hallo mattis,
ich dachte mit einem ansatz komme ich zurecht, aber ich breche mir die ohren.ich habe folgendes problem. mein code:
Sub blattschutz_deaktivieren()
Dim Password As String
Dim Mld, Titel, Vor As String
Mld = "Bitte Passwort eingeben!"
Titel = "Passwortabfrage"
Vor = "*****"
Password = InputBox(Mld, Titel, Vor)
If Password = "3" Then
ActiveSheet.Unprotect Password:="passwd"
Range("a1").Select
Else
MsgBox "passwort ist nicht korrekt", vbOKOnly + vbCritical, "Falsches Passwort"
Range("a1").Select
End If
End Sub
nun möchte ich einen code haben, der per inputbox nach dem passwort ( die 3 ) fragt, wenn passwort korrekt, in einer neuen inputbox ein neues password haben will und dieses password anstatt der 3 einsetzt. also einen passwortwechsel vollzieht.
ich hoffe du kannst mir nochmal helfen. vielen dank
gruss bernd