在vba excel中鎖定單元格

Question

我想鎖定VBA Excel中的單元格。我讀了以前的答案並使用它們。但單元格不鎖。 這是我的代碼：

Number = Range("A1") 
If Number < 5 Then 
    Cells(1, 1).Locked = True 
Else 
    Cells(1, 1).Locked = False 
End If 

子程序運行後的cells(1,1)是不受保護的。

Answer 1

當您切換工作表的保護時，鎖定的單元格受保護。您需要添加

Cells(1, 1).Worksheet.Protect 

這會使所有鎖定的單元受到保護（請參閱example）。

P.S.默認情況下，所有單元格are locked