更改locking的单元格

我正在使用VBA代码来获得总和，但是当单元格被locking时它不起作用。

我希望没有人可以手动更改特定单元格的值，但VBA代码可以更改该值。

我的代码是

Sub Get_Sum() Dim LastRow As Long LastRow = Range("B5000").End(xlUp).Row Range("D" & LastRow + 1) = "Total Amount" Range("E" & LastRow + 1).Formula = "=SUM(E4:E" & LastRow & ")" Range("F" & LastRow + 1).Formula = "=SUM(F4:F" & LastRow & ")" Range("G" & LastRow + 1).Formula = "=SUM(G4:G" & LastRow & ")" End Sub 

其中单元格E（E列）用密码locking。

Answer 1

也许你可以这样做：

 Sub Get_Sum() Dim LastRow As Long Sheets("Sheetname").Unprotect Password:= "password" LastRow = Range("B5000").End(xlUp).Row Range("D" & LastRow + 1) = "Total Amount" Range("E" & LastRow + 1).Formula = "=SUM(E4:E" & LastRow & ")" Range("F" & LastRow + 1).Formula = "=SUM(F4:F" & LastRow & ")" Range("G" & LastRow + 1).Formula = "=SUM(G4:G" & LastRow & ")" Sheets("Sheetname").Protect Password:= "password" End Sub