Question

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

我希望没有人可以手动更改特定单元格的值，但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）用密码锁定。

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

更改锁定的单元格

1 个答案: