Hi,

also in deinem Code ist ein Kompilierungsfehler - da fehlt offensichtlich ein Teil der Codezeile (habe den Teil markiert).

Du kannst versuchen, die Meldungen zu unterdrücken, wenn du DisplayAlerts ausschaltest - nach diesem Prinzip (ungetestet):

Code:
Private Sub Workbook_Open()
    Application.DisplayAlerts = False
    With ThisWorkbook.Worksheets("Tabelle1")
        .Unprotect
        .Range("J5") = .Range("J5") + 1
        .Save
        ChDir "P:\Werkstattaufträge\2018"
        .SaveAs Filename:="P:\Werkstattaufträge\2018\WS2018_" & .Range("J5") & ".xlsx" _
            , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        .Protect DrawingObjects:=False, Contents:=True, Scenarios:=suli_  '<==Kompilierungsfehler!!!
    End With
    Application.DisplayAlerts = True
End Sub
Bis später,
Karin