Blattregister ausschalten und Extras deaktivieren

Bild

Betrifft: Blattregister ausschalten und Extras deaktivieren
von: Uli
Geschrieben am: 14.09.2015 17:37:44

Hallo liebe VBA-Experten,
ich habe bereits im hier recherchiert und folgendes gefunden.
worksheets("Tabelle1").visible = xlveryhidden
ich habe sehr viele Tabellenblätter und möchte diese komplett ausblenden, und zwar so, das der Anwender diese nicht wieder über den Menüpunkt Extras-Optionen einblenden kann.
Gibt es dafür außer den o.g. Befehl auch einen, der für alle Tabellenblätter zutrifft?
lg
Uli

Bild

Betrifft: AW: Blattregister ausschalten und Extras deaktivieren
von: Hajo_Zi
Geschrieben am: 14.09.2015 17:47:25
Hallo Uli,
NEIN


Bild

Betrifft: AW: Blattregister ausschalten und Extras deaktivieren
von: Daniel
Geschrieben am: 14.09.2015 19:59:48
Hi
in einer Exceldatei muss immer mindestens ein Blatt sichtbar sein.
daher gibt es auch keinen Befehl, um alle Blätter auszublenden.
was du machen kannst, ist eine Schleife über alle Blätter, allerdings musst du sicherstellen, dass ein Blatt sichtbar bleibt, hier beispielsweise das erste:

Sub test()
Dim i As Long
For i = 2 To Worksheets.Count
    Worksheets(i).Visible = xlSheetVeryHidden
Next
End Sub
oder wenn das letzte sichtbar bleiben soll:
Sub test()
Dim i As Long
For i = 1 To Worksheets.Count - 1
    Worksheets(i).Visible = xlSheetVeryHidden
Next
End Sub
Die Ausnahme wäre, wenn du ein eigenständiges Diagrammblatt hast.
wenn dieses sichtbar bleibt, kannst du mit For i = 1 to Worksheets.count dann alle Tabellenblätter ausblenden.
Gruss Daniel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blattregister ausschalten und Extras deaktivieren"