Laufzeitfehler 1004

[CaptainNemo]

Hallo Gemeinde,

was ist da falsch?

--- von hier --- bis hier ---

ergibt "Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler"

Gruß
Uwe

Code:

Private Sub Workbook_Open()

    Application.EnableAutoComplete = False
   
    Me.Saved = True
   
    Dim xWs As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In Application.ActiveWorkbook.Worksheets
        If Me.Path <> "" Then
            On Error Resume Next
            Application.EnableEvents = False
                If xWs.Name <> "Hilfe" And xWs.Name <> "VORLAGE To-Do" And xWs.Name <> "VORLAGE Übergabe" And _
                    xWs.Name <> "VORLAGE Gruppe" And xWs.Name <> "VORLAGE NAME" Then
                    xWs.Activate
                    Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
                End If
            Application.EnableEvents = True
            On Error GoTo 0
        End If
    Next
'------------------------- von hier ----------------------------
    Sheets("Hilfe").Select
    ActiveSheet.Unprotect Password = "x"
    ActiveSheet.Range ("A2"), True
    Sheets("Hilfe").Select
    ActiveSheet.Protect Password = "x", DrawingObjects:=False, Contents:=True, Scenarios:=False
'------------------------- bis hier ----------------------------
    Sheets("Übergabe").Select
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
   
    SetStartTime
   
End Sub

[Klaus-Dieter]

Hallo,

kann es sein, dass diese Zeile: ActiveSheet.Range ("A2"), True markiert wird?

[CaptainNemo]

Würde ich vermuten. Aber leider wird nix markiert.

Wenn ich die Zeile einfach weglasse, taucht diesselbe Meldung wieder auf! Wenn ich das Passwort im Code weglasse, wird nach dem Passwort gefragt. So weit kommt er jedenfalls.

[Klaus-Dieter]

Hallo,

dann stelle die Datei hier bitte mal ein. Dann braucht man die zum Testen nicht nachbauen.

[Steffl]

Auch Hallo,

vermeide das Selektieren

Code:

With Worksheets("Hilfe")
        .Unprotect Password = "x"
        .Range ("A2"), True
        .Protect Password = "x", DrawingObjects:=False, Contents:=True, Scenarios:=False
    End With

[CaptainNemo]

Ok, ein paar Sachen werden noch ausgebaut, auch das Hilfeblatt. Einige wundern sich, warum das immer "verschwindet", daher dachte ich, warum nicht immer "erscheinen" lassen.

Beim Datei öffnen wurde die von dir erwähnte Zeile markiert.

Jetzt hat Excel beim Öffnen mal das Kennwort nicht akzeptiert, obwohl es richtig war. Der Makrorekorder hat beim Drücken von Strg+Pos1 auch einfach - Range("A2").Select - ausgegeben. Per VBA springt das Blatt aber nicht zum Anfang.

Uwe

---

Danke Steffi,

dann kommt die Meldung - Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht und - .Range ("A2"), True - wird markiert.

Bei uns (Excel 2016) funktionieren öfter mal Codes/Anweisungen nicht. Es ist zum Ko....!

[Steffl]

Hallo,

dann kommt die Meldung - Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht und - .Range ("A2"), True - wird markiert.

das hat ja Klaus-Dieter auch schon angemerkt. Was soll diese Codezeile machen?

[snb]

Bei uns (Excel 2016) funktionieren öfter mal Codes/Anweisungen nicht.

Und gerade das stimmt nicht: die Codes/Anweisungen funktionieren 100%; sie sagen selbst das du etwas falsches gemacht hast beim Code Erstellen. (wie ein Luxus !). Der Code stimmt, der Ersteller etwas weniger.