HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Variablen

Variablen
15.02.2005 22:25:21
Marcel
Ich habe Dank Eurer Hilfe nachstehende Zeilen eingefügt:

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?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Variablen
15.02.2005 22:31:49
Josef
Hallo Marcel!

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
Sheets("Welcome").Activate
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Variablen
15.02.2005 22:52:12
Marcel
Vielen Dank! Funktioniert bestens.
Gruss Marcel

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!