Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.unprotect password:="xxx"
.EnableSelection = xlUnlockedCells
.EnableOutlining = True
.Protect Contents:=True, Password:="xxx", userInterfaceOnly:=True
End With
Next
End Sub
Nun möchte ich zusätzlich, dass sich beim öffnen der Arbeitsmappe immer ein bestimmtes Arbeitsblatt zuerst erscheint. Habe im Archiv folgenden Script gefunden:
Private Sub Workbook_Open()
Sheets("Welcome").Activate
End Sub
Private Sub Workbook_Open () wird 2x aufgeführt und führt zu Fehler. Was muss ich da tun?