besteht die Möglichkeit, per VBA, wenn man eine Mappe öffnet, dass eine bestimmte Tabelle ausgeblendet wird? Damit mein keinen Zugriff darauf hat, also so als würde diese überhaupt nicht existieren?
Vielen Dank für Eure Hilfe.
Gruß amina
Private Sub Workbook_Open()
Sheets("derTabellenname").Visible = xlSheetVeryHidden
End Sub
Gruß
Chris
Um eine Excel-Tabelle beim Öffnen der Datei auszublenden, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne den VBA-Editor: Drücke Alt + F11
.
Finde das richtige Modul: Klicke im Projektfenster auf "DieseArbeitsmappe".
Füge den Code ein: Kopiere und füge den folgenden VBA-Code in das Modul ein:
Private Sub Workbook_Open()
Sheets("derTabellenname").Visible = xlSheetVeryHidden
End Sub
Speichere die Datei: Achte darauf, die Excel-Datei im .xlsm-Format zu speichern, um die Makros zu aktivieren.
Teste die Funktion: Schließe und öffne die Excel-Datei erneut. Die angegebene Tabelle sollte jetzt ausgeblendet sein.
Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen
.Wenn Du keine VBA-Lösungen verwenden möchtest, gibt es auch eine manuelle Methode, um ein Excel-Tabellenblatt auszublenden:
Dauerhaftes Ausblenden: Um die Tabelle dauerhaft und nur mit VBA wieder sichtbar zu machen, kannst Du im Direktfenster des VBA-Editors folgenden Befehl eingeben:
Worksheets("Deine_Tabelle").Visible = xlVeryHidden
Ein Beispiel für das Ausblenden einer Tabelle beim Öffnen könnte so aussehen: Wenn Du eine Tabelle namens "GeheimeDaten" hast, ersetze "derTabellenname" im Code durch "GeheimeDaten". Der angepasste Code sieht dann so aus:
Private Sub Workbook_Open()
Sheets("GeheimeDaten").Visible = xlSheetVeryHidden
End Sub
Der Code sorgt dafür, dass die Excel-Datei beim Öffnen die "GeheimeDaten"-Tabelle ausgeblendet hat, sodass sie nicht mehr sichtbar ist.
1. Kann ich mehrere Tabellen gleichzeitig ausblenden?
Ja, Du kannst mehrere Tabellen im gleichen Workbook_Open
-Sub ausblenden, indem Du mehrere Zeilen hinzufügst:
Private Sub Workbook_Open()
Sheets("Tabelle1").Visible = xlSheetVeryHidden
Sheets("Tabelle2").Visible = xlSheetVeryHidden
End Sub
2. Wie kann ich die ausgeblendete Tabelle wieder sichtbar machen?
Um eine ausgeblendete Tabelle wieder sichtbar zu machen, öffne den VBA-Editor, gehe zu "DieseArbeitsmappe" und ändere den Code:
Sheets("derTabellenname").Visible = xlSheetVisible
Mit diesen Schritten kannst Du sicherstellen, dass Deine Excel-Datei gut organisiert bleibt und sensible Daten geschützt sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen