如何保护excel文件中的一系列单元格不受另一个单元格（包含vba代码）的影响？

我想保护excel文件中的一系列单元格不受其他单元格的影响，我尝试使用以下代码，但无效：

ActiveWorkbook.Sheets("Rapport1").Select
Range("O26,A:N,P:P,R:R,T:T").Select
    Range("T1").Activate
    ActiveWindow.SmallScroll ToRight:=3
    Range("O26,A:N,P:P,R:R,T:T,V:V,X:X").Select
    Range("X1").Activate
    ActiveWindow.SmallScroll ToRight:=2
    Range("O26,A:N,P:P,R:R,T:T,V:V,X:X,Z:Z,AB:AB").Select
    Range("AB1").Activate
    ActiveWindow.SmallScroll ToRight:=3
    Range("O26,A:N,P:P,R:R,T:T,V:V,X:X,Z:Z,AB:AB,AD:AD").Select
    Range("AD1").Activate
    Selection.Locked = True
    Selection.FormulaHidden = False
    Sheets("Rapport1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

---

下面将锁定单元格范围

“A:N，p:p，R:R，T:T，V:V，X:X，Z:Z，AB:AB，AD:AD”

，并应用工作表保护以防止对这些列进行更改。所有其他列（如O列、Q列、S列等）将保持解锁状态：

With ActiveWorkbook.Sheets("Rapport1")
    .Cells.Locked = False
    With .Range("A:N,P:P,R:R,T:T,V:V,X:X,Z:Z,AB:AB,AD:AD")
        .Locked = True
        .FormulaHidden = False
    End With
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With

---

你到底想保护什么范围？