Das Archiv des Excel-Forums
Register über VBA auschalten
Betrifft: Register über VBA auschalten
von: Bernd
Geschrieben am: 14.10.2003 17:00:53
Hallo erstmal,
ich möchte alle Registerblätter der Tabellen dauerhaft ausblenden, bis auf eine. Auf der verbleibenden Tabelle habe ich eine Schaltfläche für Druckvorschau und eine zum drucken selbst.
Habe folgenden Code in "diese Arbeitsmappe" eingebaut.
Worksheets("XYZ").Visible = xlVeryHidden
Problem ist, wenn ich den Button "Druckvorschau" anklicke werden alle Register wieder angezeigt.
Wie kann ich das verhindern?
Vielen Dank im Voraus
Gruss Bernd
Betrifft: AW: Register über VBA auschalten
von: GraFri
Geschrieben am: 14.10.2003 17:59:27
Hallo
Sub Registerkarten_ausblenden()
Application.ActiveWindow.DisplayWorkbookTabs = False
CommandBars(1).Controls("Extras").Controls("Optionen...").Visible = False
End Sub
Sub Registerkarten_einblenden()
Application.ActiveWindow.DisplayWorkbookTabs = True
CommandBars(1).Controls("Extras").Controls("Optionen...").Visible = True
End Sub
Code eingefügt mit
Syntaxhighlighter 2.4
mfg, GraFri
Betrifft: AW: Register über VBA auschalten
von: Bernd
Geschrieben am: 14.10.2003 18:17:01
Hallo GraFi,
vielen Dank für deine Antwort.
habe deinen Code im Original eingefügt und erhalte beim öffnen der Datei "Fehlermeldung: Laufzeitfehler 91"
Private Sub Workbook_Open()
Application.ActiveWindow.DisplayWorkbookTabs = False
CommandBars(1).Controls("Extras").Controls("Optionen...").Visible = False
End Sub
Wat nu???
Fällt dir etwas dazu ein?
Gruss Bernd
Betrifft: AW: Register über VBA auschalten
von: GraFri
Geschrieben am: 14.10.2003 18:41:01
Hallo
Sorry - kleiner Fehler.
Füge 'Application.' vor CommandBars(1)... ein, dann funktioniert es.
mfg, GraFri
Betrifft: Danke für den Hinweis, klappt!!!
von: Bernd
Geschrieben am: 14.10.2003 18:48:34
.