Das Archiv des Excel-Forums

Register über VBA auschalten

Bild

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
Bild


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


Bild


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


Bild


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


Bild


Betrifft: Danke für den Hinweis, klappt!!!
von: Bernd
Geschrieben am: 14.10.2003 18:48:34

.


 Bild