Variablen

Bild

Betrifft: Variablen
von: Marcel
Geschrieben am: 15.02.2005 22:25:21
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?
Bild

Betrifft: AW: Variablen
von: Josef Ehrensberger
Geschrieben am: 15.02.2005 22:31:49
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!
Bild

Betrifft: AW: Variablen
von: Marcel
Geschrieben am: 15.02.2005 22:52:12
Vielen Dank! Funktioniert bestens.
Gruss Marcel
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Variablen"