Thema Datum  Von Nutzer Rating
Antwort
Rot Fehlermeldung beim erstmaligen Öffnen
14.11.2021 10:08:54 Lukas
NotSolved
14.11.2021 13:29:14 Gast43930
Solved
15.11.2021 09:47:09 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Lukas
Datum:
14.11.2021 10:08:54
Views:
67
Rating: Antwort:
  Ja
Thema:
Fehlermeldung beim erstmaligen Öffnen

Guten Morgen zusammen,

ich habe eine Blanko-Datei, welche ich für die jeweiligen Zwecke dann dupliziere und umbenne.
Wenn ich die Datei dann zum ersten Mal öffne und "Bearbeitung aktivieren" bestätige, bekomme ich beim unprotecten der Arbeitsmappe einen Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt.

Wenn ich allerdings auf Beenden klicke, die Datei speicher und schließe, kommt dieser Fehler nicht mehr wieder.
Was kann ich also tun, dass auch beim erstmaligen öffnen der Datei nicht dieser Fehler kommt?

Option Explicit
Private Sub Workbook_Open()
    ActiveWorkbook.Unprotect Password:="xyz"
    Dim Blatt As Worksheet
    For Each Blatt In ActiveWorkbook.Worksheets
        Blatt.Visible = True
        Blatt.Unprotect Password:="xyz"
        Blatt.Shapes("CheckBox1").Visible = Not Blatt.Range("P4") = "Wahr"
        Range("B6").Select
        Blatt.Protect Password:="xyz"
    Next Blatt
    Dim wks
    For Each wks In Me.Sheets
        If wks.Name <> Format(Date, "dd") Then wks.Visible = False
    Next
    If Format(Date - 1, "dd") <> "31" Then Sheets(Format(Date - 1, "dd")).Visible = True
    If Format(Date + 1, "dd") <> "01" Then Sheets(Format(Date + 1, "dd")).Visible = True
    If Range("P6") <> Range("P7") Then
        Call alle_Tage
        Sheets("01").Activate
    End If
    ActiveWorkbook.Protect Password:="xyz"
    MsgBox "Willkommen zurück "
End Sub

Danke für Eure Hilfe im Voraus!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehlermeldung beim erstmaligen Öffnen
14.11.2021 10:08:54 Lukas
NotSolved
14.11.2021 13:29:14 Gast43930
Solved
15.11.2021 09:47:09 Nobody
NotSolved