Beim Aufstarten einer Datei wird der
Sub DatenSchuetzen aufgerufen.
Damit ich die einzelnen Sheets schützen kann, weise ich zuerst die ausgewählten Sheets einer _
Variable zu und wähle dann nur eine Tabelle aus.
Am Schluss selectiere ich wieder die ursprüngliche Auswahl.
Bei der Zeile varSHTx.Select erhalte ich die Fehlermeldung:
Laufzeitfehler '1004': Die Methode 'Select für das Objekt 'Sheets' ist fehlgeschlagen
Ich sehe nicht, wo das Problem liegt.
Gruss, Peter
Sub DateiSchuetzen()
Application.ScreenUpdating = False
Dim wks As Worksheet
Dim varSHTx As Sheets
Set varSHTx = ActiveWindow.SelectedSheets
Sheets(1).Activate ''' Auswahl Sheet 1, damit allfällige Mehrfachauswahl aufgehoben wird
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "LUT", "Anleitung"
Case Else
wks.Protect DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=[_PW].Value
wks.EnableSelection = xlNoRestrictions
End Select
Next
varSHTx.Select ''' Selektion ursprünglich ausgewähltes Sheet oder _
Mehrfachauswahl
Application.ScreenUpdating = True
End Sub