Hier eine kurze Anleitung:
VBA-Entwicklungsumgebung öffnen: ALT + F11
Markieren Sie die Tabelle unter dem Eintrag VBA-Project, die Sie verstecken möchten. Wenn bei Ihnen das Eigenschaftenfenster nicht erscheint, aktivieren Sie es über "Ansicht"->"Eigenschaftenfenster ausführen (F4)". Excel zeigt im Dialogfenster die Attribute der Tabelle an. Im Listenfeld Visible wählen Sie den zweiten Eintrag "xlsheetVeryHidden" aus. Excel Tabellenblatt unsichtbar machen
Nun wird das Excel-Tabellenblatt nicht mehr zum Einblenden angezeigt. Wer noch einen Schritt weiter gehen will, kann den Schutz mit einem Passwort weiter erhöhen. Das geht so:
Klicken Sie per Rechtsklick auf VBAProject und dann auf "Eigenschaften von VBAProject". Alle ausgeblendeten Tabellenblätter in einer Arbeitsmappe auf einmal einblenden (VBA) - exceltricks. Unter "Schutz" klicken Sie auf "Projekt für Anzeige sperren" und vergeben ein Kennwort. Hinweis: Selbst jetzt besteht kein 100%iger Schutz. Mit einem Passwortknacker kann der Schutz schnell aufgehoben werden. Solche Tools sind kostenfrei im Internet erhältlich. Navigieren im Excel Tutorial:
Zur Übersicht: ⇑ Excel Tutorial
Zur Lektion 16: ⇐ Excel SVerweis: Nützliche Funktion
Zur Lektion 18: Arbeiten mit einer Pivot-Tabelle in Excel ⇒
- Alle ausgeblendeten Tabellenblätter in einer Arbeitsmappe auf einmal einblenden (VBA) - exceltricks
- Aus- oder Einblenden von Arbeitsblättern
Alle Ausgeblendeten Tabellenblätter In Einer Arbeitsmappe Auf Einmal Einblenden (Vba) - Exceltricks
13. 02. 2008, 08:25
# 1
MOF Koryphäe
Registrierung: 01. 09. 2002
Karma:
VBA - Mehrere Tabellenblätter ein-/ausblenden
Hallo zusammen,
habe eine kleinere Aufgabe zu bewältigen, die ich alleine so nicht hinbekommen. Ich habe eine Arbeitsmappe, in der alle Tabellenblätter ausgeblendet werden. Über eine selbstgestrickte Symbolleiste rufe ich nun die einzelnen Tabellenblätter auf. Dazu mal eben hier der Code
Code:
Option Private Module
Sub hide(shname As String)
Dim Sh
Sheets(shname). Visible = True
For Each Sh In Sheets
If <> shname Then sible = xlVeryHidden
Next
End Sub
Sub Preise()
hide ("Preise")
Sub Deckblatt()
hide ("Deckblatt")
Jetzt möchte ich aber nicht nur 1 Tabellenblatt aufrufen,
sondern direkt 3 Tabellenblätter durch drücken auf einen Menüpunkt meiner Symbolleiste. Kann man das irgendwie auch mit einer For Schleifen lösen? Über Hilfe würde ich mich sehr freuen. __________________
Office 2010, W7, 2008R2 Server
Wer fragt, weiß viel! 13. Aus- oder Einblenden von Arbeitsblättern. 2008, 08:59
# 2
MOF Guru
Registrierung: 10.
Aus- Oder Einblenden Von ArbeitsbläTtern
DisplayAlerts = False
'For-Each Schleife über alle Tabellenblätter
For Each Ws In heets
'Visibility des Tabellenblatts speichern und Tabellenblatt einblenden
vis = sible
sible = xlSheetVisible
'Tabellenblatt in neue Arbeitsmappe kopieren, abspeichern und Arbeitsmappe schließen
& "" &
'Tabellenblatt wieder ausblenden, falls es vorher ausgeblendet war
sible = vis
Next Ws
'ScreenUpdating und PopUps aktivieren
reenUpdating = True
Application. DisplayAlerts = True
'Bereitgestellt von VBATrainer:
End Sub
QR-Code
Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung
Mehr lesen »
Outlook-Termin
Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>
Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar. Persönliche Empfehlungen
Klicken Sie auf Speichern oder Fertig. Klicken Sie auf Ansicht Geschützte Bereiche, um geschützte Zellen zu sehen. Diese werden daraufhin mit einem gestreiften Hintergrund gekennzeichnet. Wer kann Zellenbereiche oder Tabellenblätter schützen? Wenn Sie Eigentümer einer Tabelle sind: Sie können festlegen, wer Tabellenblätter und Zellenbereiche bearbeiten darf. Wenn Sie Tabellen bearbeiten können: Sie können festlegen, wer Tabellenblätter und Zellenbereiche bearbeiten darf. Sie können jedoch nicht Eigentümern die Berechtigung zum Bearbeiten entziehen. Wenn Sie eine Tabelle ansehen oder kommentieren können: Sie können gar keine Änderungen vornehmen. Kopien von geschützten Tabellenblättern bearbeiten
Wenn Sie Tabellen bearbeiten können: Sie können eine Kopie des geschützten Tabellenblatts oder der Arbeitsmappe anfertigen oder eine neue Version hochladen. Wenn Sie eine Tabelle ansehen, aber nicht bearbeiten können: Sie können eine Kopie des Tabellenblatts erstellen. Tabellenblätter ausblenden
Sie können Tabellenblätter ausblenden, die nicht mehr aktuell sind oder anderen Tabellenblättern als Platzhalter für Berechnungen dienen.