HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Register über VBA auschalten

Register über VBA auschalten
14.10.2003 17:00:53
Bernd
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Register über VBA auschalten
14.10.2003 17:59:27
GraFri
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
AW: Register über VBA auschalten
14.10.2003 18:17:01
Bernd
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
AW: Register über VBA auschalten
14.10.2003 18:41:01
GraFri
Hallo

Sorry - kleiner Fehler.

Füge 'Application.' vor CommandBars(1)... ein, dann funktioniert es.

mfg, GraFri
Danke für den Hinweis, klappt!!!
14.10.2003 18:48:34
Bernd
.

Meistgelesene Forumthreads (12 Monate)