如何保護excel文件中另一個單元格的範圍（哪個containt vba代碼）？

Question

我要保護的範圍，從另外一個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 

Answer 1

下將鎖定的單元格區域"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