Почему ActiveSheet сбой

Question

WB.Sheets(2).Activate 
     WB.Sheets(2).Select 

     With WKS 
      .Range(.Cells(3, 3), .Cells(ClientRows, SavedColumn - 1)).Locked = False 
      .Range(.Cells(3, 3), .Cells(ClientRows, SavedColumn - 1)).FormulaHidden = False 
     End With 

     With WKS 
      .Range(.Cells(3, 1), .Cells(ClientRows, 1)).Locked = False 
      .Range(.Cells(3, 1), .Cells(ClientRows, 1)).FormulaHidden = False 
     End With 

     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
     ActiveSheet.EnableSelection = xlUnlockedCells 

Я просматриваю таблицу данных и создаю несколько рабочих листов Excel. Вложенный код работает отлично в первый раз, но с ошибкой «Переменная объекта или с переменной блока не установлена». Может кто-нибудь помочь. Благодаря

Answer 1

Вот мой ответ:

Option Explicit 
Sub TestActivesheet() 
    Dim WB As Workbook 'Declare de vars 
    Dim WKS As Worksheet 

    Set WB = ThisWorkbook 'Or any other workbook || set the var 
    WB.Sheets(2).Activate 
    WB.Sheets(2).Select 

    Set WKS = WB.Sheets(2) 'Again set the var 

    With WKS 
     .Range(.Cells(3, 3), .Cells(ClientRows, SavedColumn - 1)).Locked = False 
     .Range(.Cells(3, 3), .Cells(ClientRows, SavedColumn - 1)).FormulaHidden = False 
    End With 

    With WKS 
     .Range(.Cells(3, 1), .Cells(ClientRows, 1)).Locked = False 
     .Range(.Cells(3, 1), .Cells(ClientRows, 1)).FormulaHidden = False 
    End With 

    'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
    WKS.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
    'ActiveSheet.EnableSelection = xlUnlockedCells 
    WKS.EnableSelection = xlUnlockedCells 
End Sub 

Всегда в верхней части каждого модуля, это хорошая практика, чтобы использовать эту Option Explicit, таким образом, когда вы используете переменную, компилятор прошу вас объявить, и избегайте этих ошибок.