Startblatt beim öffnen per Makro?
02.03.2006 09:55:08
Ines
wie kann ich bei diesem Makro noch einbauen, dass beim öffnen der Mappe ein bestimmtes Blatt angezeigt werden soll?
Private Sub Workbook_Open()
Dim myWorksheet As Worksheet
For Each myWorksheet In ThisWorkbook.Worksheets
With myWorksheet
If .Name <> "StartSeite" Then
.Visible = xlSheetVisible
End If
.Protect Password:="cgn5729", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Next
Worksheets("StartSeite").Visible = xlSheetVeryHidden
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myWorksheet As Worksheet
For Each myWorksheet In ThisWorkbook.Worksheets
With myWorksheet
If .Name <> "StartSeite" Then
.Visible = xlSheetVeryHidden
Else
.Visible = xlSheetVisible
End If
ThisWorkbook.Save
End With
Next
End Sub
Das Makro verhindert, dass jemand die Mappe ohne "Makros aktivieren" öffnen kann. Jedoch möchte ich dass der User immer auf meinem Übersichtsblatt landet, wenn er die Datei öffnet, egal wie sie geschlossen wurde.
Meine Idee mit
Private Sub Workbook_Open()
Worksheets("Contents").activate
End Sub
klappt nicht so richtig..
Hat jemand eine Idee und kann mir helfen?
DANKE
Ines