如何通过VBA仅锁定Excel单个单元格（A4）而非整个工作表？

Excel默认所有单元格的Locked属性为True，但只有在启用工作表保护后，锁定设置才会生效。你的代码只设置了A4的Locked=True，但没有先解锁其他单元格，也未开启工作表保护，所以无法实现仅锁定A4的效果。

修改后的代码如下：

Public Sub utente()
    Dim userName As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Foglio1")

    userName = Application.userName
    ws.Range("A4").Value = userName
    
    ' 先解锁工作表所有单元格
    ws.Cells.Locked = False
    ' 单独锁定A4单元格
    ws.Range("A4").Locked = True
    ' 启用工作表保护，可添加密码（可选）
    ws.Protect Password:="yourpassword" ' 替换为实际密码，或省略Password参数
End Sub

关键步骤说明： #

• ws.Cells.Locked = False：解除所有单元格的默认锁定状态，确保后续只有明确设置Locked=True的单元格会被锁定。
• ws.Range("A4").Locked = True：单独标记A4为锁定状态。
• ws.Protect：启用工作表保护，这是锁定规则生效的必要条件。如果不需要密码验证，直接写ws.Protect即可。

若需要取消工作表保护，可执行以下代码：

ws.Unprotect Password:="yourpassword" ' 需对应保护时设置的密码

内容的提问来源于stack exchange，提问作者Lendy345