worksheet.visible ??

Forumthread: worksheet.visible ??

22.01.2004 14:52:17

Sebastian

Hallihallo,
ich habe da ein Problem mit dem Verstecken von Worksheets. Mein Quellcode:


Sub Auto_Open()
Sheets("Hauptübersicht").Activate
Range("A1").Select
Worksheets("Vorschau").Visible = False
Worksheets("Hilfe").Visible = False
End Sub

Der Code hat eine ganze Weile lang funktioniert obwohl die beiden Sheets beim Verlassen (inkl. Speichern) und wieder neu starten öfters mal schon versteckt waren. Jetzt auf einmal habe ich den
Run-time-error '1004':
Unable to set the Visible property of the Worksheet class
sowas hatte ich schon öfter, kann das sein, dass Excel etwas instabil ist und die Codes von einem Versuch auf den nächsten mal Fehler verursachen? Oder habe ich plötzlich doch was falsch gemacht?
Sebastian

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: worksheet.visible ??

22.01.2004 14:56:30

Andi_H
AW: worksheet.visible ??

22.01.2004 15:01:22

Sebastian

AW: worksheet.visible ??

22.01.2004 14:56:30

Andi_H

Hi Sebastian
Worksheets("Vorschau").Visible = xlsheetvisible oder xlsheethidden oder xlsheetveryhidden
das muß gehen.
GRuß
Andi

AW: worksheet.visible ??

22.01.2004 15:01:22

Sebastian

Hi Andi,
das hat auch nicht geholfen. ich hab aber rausgefunden woran das gelegen haben müsste: die protection für das workbook war eingeschaltet! Aber trotzdem dankeschön!
gruß,
Sebastian

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Sichtbarkeit von Worksheets in Excel VBA zu steuern, kannst du die Visible-Eigenschaft der jeweiligen Arbeitsblätter verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne den VBA-Editor: Drücke Alt + F11 in Excel.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (dein Dokument)" und wähle Einfügen > Modul.

Schreibe den Code: Verwende folgenden Code, um die Sichtbarkeit von Arbeitsblättern zu steuern:

Sub Auto_Open()
    Worksheets("Hauptübersicht").Activate
    Worksheets("Vorschau").Visible = xlSheetHidden ' oder xlSheetVeryHidden
    Worksheets("Hilfe").Visible = xlSheetHidden
End Sub

Führe den Code aus: Drücke F5, um das Makro zu starten. Jetzt sollten die angegebenen Blätter unsichtbar sein.

Häufige Fehler und Lösungen

Fehler: "Unable to set the visible property of the Worksheet class"
Dieser Fehler kann auftreten, wenn das Workbook geschützt ist. Stelle sicher, dass der Schutz deaktiviert ist, bevor du die Sichtbarkeit änderst.
Lösung: Deaktiviere den Schutz des Workbooks mit folgendem Code:
```
ThisWorkbook.Unprotect "DeinPasswort"
```
Fehler: Worksheet ist nicht gefunden
Stelle sicher, dass die Namen der Arbeitsblätter korrekt sind und existieren.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, die Sichtbarkeit von Sheets in Excel VBA zu steuern:

Sichtbarkeit auf "Visible" setzen:

Worksheets("Hilfe").Visible = xlSheetVisible

Verwendung von Sheets anstelle von Worksheets:
Du kannst auch Sheets verwenden, um sowohl Arbeitsblätter als auch Diagramme zu adressieren.
```
Sheets("Vorschau").Visible = xlSheetVisible
```

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die Sichtbarkeit von Arbeitsblättern steuern kannst:

Ein Arbeitsblatt sichtbar machen:

Sheets("Daten").Visible = xlSheetVisible

Ein Arbeitsblatt sehr verborgen machen (nicht über das Menü sichtbar):
```
Sheets("GeheimeDaten").Visible = xlSheetVeryHidden
```

Alle Arbeitsblätter sichtbar machen:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.Visible = xlSheetVisible
Next ws

Tipps für Profis

Verwende xlSheetVeryHidden: Damit ist das Arbeitsblatt nicht einmal im Menü sichtbar, was für sensible Daten nützlich sein kann.
Verwende Fehlerbehandlung: Baue Fehlerbehandlungsroutinen ein, um Probleme beim Setzen der Sichtbarkeit zu vermeiden:
```
On Error Resume Next
Worksheets("Vorschau").Visible = xlSheetVisible
On Error GoTo 0
```
Testen in einer geschützten Umgebung: Wenn du mit VBA-Codes arbeitest, teste diese immer in einer Kopie deiner Datei, um Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich alle Arbeitsblätter gleichzeitig unsichtbar machen?
Benutze eine Schleife, um die Sichtbarkeit aller Arbeitsblätter in deinem Workbook zu ändern.

2. Was sind die Unterschiede zwischen xlSheetHidden und xlSheetVeryHidden?
xlSheetHidden macht das Arbeitsblatt im Excel-Menü sichtbar, während xlSheetVeryHidden es vollständig verbirgt, sodass es nicht wiederhergestellt werden kann, ohne VBA zu verwenden.

3. Wie kann ich die Sichtbarkeit eines aktiven Arbeitsblatts ändern?
Verwende ActiveSheet.Visible = xlSheetVisible oder ActiveSheet.Visible = xlSheetHidden, um das aktive Arbeitsblatt sichtbar oder unsichtbar zu machen.

Beliebteste Forumthreads (12 Monate)