HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Tabellenblatt Visible Eigenschaft bei Dateiöffnung
MG_Learning

Hallo,
ich hätte eine Frage zu Tabellenblättern und deren Eigenschaft Visible.
Ich steuere das EIn-/Ausblenden von Arbeitsblättern über 2 Command Button!
Unter Worksheet open möchte ich sie generell bei Dateiöffnung erstmal ausblenden!
Wenn ich aber die Datei öffne dann bringt er mir die Fehlermeldung:
Laufzeitfehler "1004"
"Die Visible-Eigenschaft des Worksheet Objektes kann nicht festgelegt werden!"
Hinweis dazu: ich habe unter "Extras" - "Schutz" - "Arbeitsmappe schützen" die Struktur mit Passwort geschützt, damit keiner übers Menü die Arbeitsblätter einblenden kann!
Wie kann ich den Fehler oben umgehen bzw. aufheben!
Danke im Voraus
Martin

AW: Tabellenblatt Visible Eigenschaft bei Dateiöffnung
werni

Hi Martin
Eine Tabelle muss immer sichtbar sein.
Gruss Werner
AW: Tabellenblatt Visible Eigenschaft bei Dateiöffnung
MG_Learning

Hallo Werner!
Ich blende drei von vieren aus! eins ist immer sichtbar!
Es muss an etwas anderem liegen!
Gruß Martin
AW: Workbook_Open
dieter(drummer)

Hi Martin,
hier ein Beispiel, dass beim öffnen der Mappe, die Tabelle2 und Tabelle3 ausblendet:
  • 
Private Sub Workbook_Open()
Range("B34").Select
Sheets(Array("Tabelle2", "Tabelle3")).Select
Sheets("Tabelle2").Activate
ActiveWindow.SelectedSheets.Visible = False
Range("A1").Select 'Tabelle 1
End Sub


    • Kannst es evtl. auf Button anpassen. EINBLENDEN = ...Visible=True
    Gruß
    Dieter(drummer)
    AW: Workbook_Open
    MG_Learning

    Hallo Dieter,
    Code ist eingesetzt und angepasst!
    Leider bringt er mir auch hier eine Fehlermeldung:
    Ebenfalls Laufzeitfehler 1004:
    "Die Select-Methode des Sheets-Objektes konnte nicht ausgeführt werden.!"
    In Bezug auf diese Zeile:
    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
    Tabellennamen stimmen!
    Danke
    Martin
    AW: Workbook_Open
    dieter(drummer)

    Hi Martin,
    EIN Tabellenblatt MUSS immer eingeblendet bleiben. Nenn mir mal ALLE Tabellenblattnamen der gesamten Mappe und die, die AUSGEBLENDET werden sollen, oder lade die Mappe mal hoch.
    Gruß
    Dieter(Drummer)
    AW: Musterdatei anbei ...
    dieter(drummer)

    Hi Martin,
    anbei mal ein Muster hochgeladen, evtl. hilft's:
    https://www.herber.de/bbs/user/66743.xls
    Gruß
    Dieter(Drummer)
    AW: unprotect
    hary

    Moin
    Ihr muesst erstmal den Schutz aufheben und anschliessend wieder setzen. Fuer beide Buttons!! 
    
ActiveWorkbook.unprotect
'hier dein Code
ActiveWorkbook.protect

    @ Dieter: Mach mal in Deine Mappe den Mappenschutz(Martin hat den Schutz drin) rein. Da kommt auch der Fehler.
    Gruss hary
    AW: Hast natürlich Recht ...
    dieter(drummer)

    Danke Hary,
    ich konnte nicht wissen, dass dei Mappe geschützt ist. Ich hatte nur die beiden auszublendenden Tabellenblätter geschhütz und da gings problemlos. Wieder ein Tag mit Lerneffekt.
    Gruß
    Dieter(Drummer)
    AW: Hast natürlich Recht ...
    hary

    Hallo Dieter
    doch, im kleingedruckten ;-) schrieb Martin:
    "Hinweis dazu: ich habe unter "Extras" - "Schutz" - "Arbeitsmappe schützen" die Struktur mit Passwort geschützt, damit keiner übers Menü die Arbeitsblätter einblenden kann!"
    Gruss hary
    AW: Wer lesen kann ...
    dieter(drummer)

    ... ist immer im Vorteil ;-)
    Werbe mich bemühen, die Fragen genauer zu lesen. DANKE für Hinweis.
    Gruß
    Dieter(Drummer)
    AW: Wer lesen kann ...
    MG_Learning

    Hallo Werni, Dieter und Hary!
    Vielen Dank für eure Unterstützung, mit dem finalen Tip von Hary war es möglich jetzt
    die Arbeitsblätter ein- bzw. auszublenden, trotz aktiviertem Schutz. Allerdings war das mit der
    Select-funktion nicht möglich, aber mit einer For-Schleife. Code ist inklusive Passwortsetzung.
    Finaler Code ist:
    Private Sub Workbook_Open()
Dim a As Byte
ActiveWorkbook.Unprotect "Test"
For a = 2 To Sheets.Count
Sheets(a).Visible = False
Next a
ActiveSheet.cmdAus.Enabled = False (zum deaktivieren des Commandbuttons)
ActiveSheet.cmdEin.Enabled = True  (zum aktivieren des Commandbuttons)
ActiveWorkbook.Protect "Test"
End Sub

    Danke an alle für Zeit und Aufwand!
    Gruß
    Martin