Folgendes Listing habe ich dankenswerterweise hier über das Forum erhalten. Das Listing funktioniert auch sehr gut!
Was aber, wenn ich mehrere Mappen mit mehreren Passwörtern öffnen will? Also wenn ich PW 1 eingebe soll sich Mappe xy öffnen, bei PW 2 die Mappe yz usw....
Wäre sehr nett von Euch zu hören!!!!!!!!!
Viele Grüsse
Klaus
Sub FrageUndSchutz()
Dim Frage As String
Frage = InputBox("Passwort:")
If Frage = "1111" Then
Workbooks.Open FileName:="C:\Test\Mappe1.xls"
Workbooks("Mappe1.xls").Unprotect Password:=Frage
Else
MsgBox ("PW ist falsch"): Exit Sub
End If
End Sub