Hallo Sebastian,
warum zeigst du denn deinen Code der Sub XY nicht? Den sollte man kennen bzw. man sollte wissen was der Code macht. Unter Umständen ist es gar nicht erforderlich den Blattschutz raus zu nehmen. Man kann beim Setzen des Blattschutzes das auch so regeln, dass das Schreiben von Daten auf ein geschütztes Passwort per Code auch möglich ist, ohne den Blattschutz raus zu nehmen.
Zum Beispiel so:
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5", "Tabelle6"
ws.Protect "Passwort", Contents:=True, UserInterfaceOnly:=True
Case Else
End Select
Next ws
End Sub
Beim Öffnen der Datei wird für die Blätter 2, 3, 4, 5, 6 der Blattschutz gesetzt und zwar so (UserInterfaceOnly:=True), dass ein Schreiben von Daten über ein Makro auch bei gesetztem Blattschutz möglich ist.
Gruß Werner
|