Welche Abfrage? Das Passwort muss nicht abgefragt werden. Die Blätter sind geschützt und Eingaben können nur über den VBA Code gemacht werden. Wofür also die Abfrage eines Passworts?
-Stimmt, das war ein Denkfehler meinerseits, sorry dafür :/
Ich habe es jetzt einfach mal über den Button "Blatt schützen" manuell in Excel gemacht.
Über den VBA-Code habe ich es leider nicht hinbekommen.
Ich habe ihn immer direkt auf dem Sheet ausgeführt. Also mit dem anderen Button zsm. so:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sub Schaltfläche1_Klicken()
UserForm1.Show
End Sub
Private Sub Blaetter_schuetzen()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:= "AF21" , UserInterfaceOnly:= True
Next sh
End Sub
|
Ist das denn korrekt so? Oder liegt hier vllt mein Fehler?
|