Ich habe eine Arbeitsmappe mit mehreren Tab.Blättern.Wenn ich die Arbeitsmappe öffne möchte ich nur 1 Tab.geöffnet haben "Hauptblatt".
Könnte mir bitte jemand den Code verraten ?
Danke Heinz
Private Sub Workbook_Open()
Worksheets("Hauptblatt").Select
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Visible = (ws.Name = "Hauptblatt")
Next ws
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' ausblenden aller Register außer Tabelle1 mit
' Sheets("....").Visible = xlVeryHidden aus
' dies hat den Vorteil Sie können nur per VBA eingeblendet werden.
Dim Ini As Integer
For Ini = Sheets.Count To 1 Step -1
If Sheets(Ini).Name <> "Tabelle1" Then Sheets(Ini).Visible = xlVeryHidden
Next Ini
ThisWorkbook.Close True
End Sub