Hallo Ulrich,
erst einmal vielen Dank für deine Antwort.
Aber wird durch die Schleife zu beginn nicht jedes Worksheet angesprochen, sodass sowohl ein Passwort abgefragt wird, als auch das keine Eingabe in die Datei möglich ist sollte das Passwort falsch sein?
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Protect userinterfaceonly:=True
Next sh
Arbeite erst seit kurzem mit Excel.
Vielen Dank falls jemand eine Lösung für mein Problem hat.
|