Objektvariable oder With-Blockvariable n. festg.
28.04.2014 10:59:56
Peter
Beim Aufstarten einer Datei (direkt als Mailattachment) erhalte ich folgenden Fehler:
"Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt.
Wenn ich in den Debugger gehe, ist die vierte Zeile meines Codes gelb markiert. Was ist mit der Zeile Set oSelSh = ActiveWindow.SelectedSheets nicht gut?
Gruss, Peter
Sub ATabellenschutz_deaktivieren_alle()
Dim WS As Worksheet, oSelSh As Object
Application.ScreenUpdating = False
Set oSelSh = ActiveWindow.SelectedSheets
oSelSh(1).Select 'oder ActiveSheet.Select
For Each WS In ThisWorkbook.Worksheets
WS.Unprotect "ABC"
Next
oSelSh.Select
Application.ScreenUpdating = True
End Sub