Office: VBA - Ausblenden aller Tabellenblätter außer X

Guten Morgen,

ich bin ziemlicher VBA Neuling und habe aktuell Probleme mit einer Datei, die ich entwickelt habe.

Zu der Datei:
Es handelt sich um Daten, auf die lediglich ein bestimmter Personenkreis Zugriff haben soll.
Beim Aufruf der Datei sollen daher alle Tabellenblätter, mit Ausnahme einer Startseite, ausgeblendet werden. Auf dieser Startseite ist eine Passworteingabe notwendig, um Zugriff auf alle Tabellenblätter zu erhalten.

Die Datei funktioniert so, wie sie aktuell programmiert ist, gut.
Einzige Problematik, die im Alltag etwas stört: Beim Start der Datei kommt jedes mal die folgende Fehlermeldung.


Den Zugriff aufs Debuggen kriege ich zwar via Passwortschutz des vba-Projekts unterdrückt, am liebsten wäre es mir aber, wenn die Meldung gar nicht erst kommen würde.

Der Fehler dürfte darin liegen, dass er versucht alle Tabellenblätter auszublenden, wobei er beim letzten Tabellenblatt auf die Problematik stößt, dass es ansonsten keine offenen Tabellenblätter mehr geben würde. Ich müsste im Code also hinterlegen, dass es für das Ausblenden der Tabellenblätter eine Ausnahme gibt. Hierfür habe ich bisher nicht die für mich funktionierende Lösung gefunden.

Bitte seid nachsichtig, ich bin wie gesagt ziemlich neu was VBA betrifft. Mir ist bewusst, dass die Lösung über Excel nicht optimal ist und es bessere Programme dafür gibt. Arbeitgeber- bzw. Admin-seitig sind wir aber sehr eingeschränkt, was Programme und Lizenzen abgeht, sodass wir uns einen Work-Around für unser Problem basteln mussten.

Vielen Dank bereits jetzt für eure Unterstützung!

Code:

Private Sub Workbook_Open()
    ActiveWorkbook.Unprotect ("")
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        Sh.Visible = xlSheetVeryHidden
    Next Sh
    ActiveWorkbook.Protect ("")
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Protect ("")
    ThisWorkbook.Save
End Sub

 

Moin!
Dann frag halt den Namen des Sheets ab, welches nicht ausgeblendet werden soll:

Code:

Private Sub Workbook_Open()
    ActiveWorkbook.Unprotect ("")
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        If Sh.Name <> "Dingens" Then Sh.Visible = xlSheetVeryHidden
    Next Sh
    ActiveWorkbook.Protect ("")
End Sub

Zur Sicherheit dieses Vorgehens hast Du dankenswerterweise ja bereits etwas geschrieben.

Gruß Ralf

 

Hi
du versuchst in deinem Code, alle Blätter auszublenden. Es muss aber immer eins sichtbarbleiben
dh du solltest erst die Startseite einblenden (sicherheitshalber) und dann die anderen ausblenden:

Code:

dim sh as Worksheet
with Sheets("Startsteite")
    .visible = xlsheetvisible
     for each sh in worksheets
        if sh.name <> .Name then sh.visible = xlsheetveryhidden
     next
end with

kleiner Tipp, damit dein Vorhaben nicht ganz so einfach auszutricksen ist:
- mach das Ausblenden im BeforeSave-Event.
dann wird die Datei mit ausgeblendeten Blättern gespeichert. Wenn du das Ausblenden erst im Workbook.Open-Event machst, dann kann man sie sie anschauen, wenn man die Makros zum öffnen deaktiviert.

Gruß Daniel

 

Vielen Dank für eure Antworten! Beides hat funktioniert und die Datei lässt sich jetzt zunächst ohne das Fehlerfenster öffnen.

Jetzt kommt das gleiche Fenster leider beim nächsten Makro, nämlich beim Makro zum Einblenden der Blätter nach Passworteingabe. Den Fehler schmeißt er mir bei Sh.Visible = xlSheetVisible. Komischerweise lief das vorher ohne Fehlermeldung durch.

Code:

Sub BlätterEinblenden()
Dim Sh As Worksheet
    For Each Sh In Worksheets
        Sh.Visible = xlSheetVisible
    Next Sh
Sh0.Activate
End Sub

 

Ist
Sh0.Activate
ein Tippfehler?

 

"Sh0" ist das Tabellenblatt, welches nach dem Einblenden aller Tabellenblätter angezeigt werden soll.

 

Wenn du im davor laufenden Makro den Mappenschutz aktivierst (ActiveWorkbook.Protect), dann musst du ihn hier wieder aufheben.
mit aktivem Mappenschutz kannst du keine Blätter ein- oder ausblenden.

 

Der Wald und die Bäume ... Danke! So simpel, aber nicht gesehen :D