Arbeitsmappenschutz
28.12.2021 14:08:02
Guesa
Mal wieder ein Problem. Habe meine Datei mit Arbeitsmappe schützen aktiviert damit Tabellenblätter einblenden verhindert wird
Beim öffnen der Datei habe ich in Arbeitsmappe folgendes stehen und wird ein Fehler angezeigt
Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Name "Bestellung" Then 'hier Blatt Name welches sichtbar bleiben soll
wks.Visible = xlSheetHidden hier gelb markiert
End If
Next
Maske.Show
If Worksheets("Stück").Cells(1, 6).Value = 1 Then
Hilfegs.Show
End If
End Sub
Wie muss was geändert werden damit das mit dem Arbeitsmappenschutz funktioniert
Schon mal ein Danke für Eure Hilfe
Gruß, Guesa