Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt Visible Eigenschaft bei Dateiöffnung

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

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblatt Visible Eigenschaft bei Dateiöffnung
21.12.2009 10:58:01
werni
Hi Martin
Eine Tabelle muss immer sichtbar sein.
Gruss Werner
AW: Tabellenblatt Visible Eigenschaft bei Dateiöffnung
21.12.2009 11:08:00
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
21.12.2009 11:29:38
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)
    Anzeige
    AW: Workbook_Open
    21.12.2009 13:16:17
    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
    21.12.2009 13:37:09
    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 ...
    21.12.2009 14:03:36
    dieter(drummer)
    Hi Martin,
    anbei mal ein Muster hochgeladen, evtl. hilft's:
    https://www.herber.de/bbs/user/66743.xls
    Gruß
    Dieter(Drummer)
    Anzeige
    AW: unprotect
    21.12.2009 14:59:36
    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 ...
    21.12.2009 15:31:12
    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 ...
    21.12.2009 15:51:52
    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
    Anzeige
    AW: Wer lesen kann ...
    21.12.2009 15:59:32
    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 ...
    21.12.2009 16:25:58
    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
    Anzeige

    Links zu Excel-Dialogen

    CommandButton

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige