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"