Kann mir bitte wer sagen, wie ich es machen kann, damit ich in der Inputbox gleich das Passwort drinnenhabe und nicht immer eingeben muss ?
Danke für die Hilfe
chris
Hier ein Ausschnitt des codes: oder braucht ihr mehr ?
With WBQuelle
If MappeSicher(WBQuelle) Then
PwMappe = Application.InputBox("Passwort eingeben", "Mappe geschützt!", , , , , , 2)
MappeS = True
On Error Resume Next
.Unprotect PwMappe
If Err > 0 Then
MsgBox "Mappenschutz-Passwort falsch!", vbCritical, "Abbruch"
Exit Sub
End If
End If
End With