如何用VBA单独锁定单个单元格？工作表保护冲突问题求助

要实现仅锁定H2单元格、允许VBA写入其他单元格且用户可编辑其他单元格的需求，需调整工作表保护逻辑，核心是利用UserInterfaceOnly参数并先解锁所有非目标单元格：

1. 解锁所有单元格：Excel默认所有单元格处于锁定状态，直接保护工作表会禁止所有单元格编辑，因此需先解锁全部单元格。
2. 单独锁定H2：仅将目标单元格H2设置为锁定状态。
3. 带UserInterfaceOnly参数保护工作表：此参数允许VBA在工作表保护状态下修改单元格，避免LeerArchivoFichas等写入函数报错，同时仅限制用户界面的编辑操作。

修改后的代码如下：

Private Sub Workbook_Open()
    If Environ$("computername") = "09-PC-0154" Then PCdeposito = "F:" Else PCdeposito = "\09-PC-0154"
    Ruta = Me.Path
    If Me.Name = Form62 Then
        Worksheets("Hoja1").bNuevo.Enabled = True
        Worksheets("Hoja1").Vale.Enabled = True
        Limpiar
    Else
        Worksheets("Hoja1").bNuevo.Enabled = False
        Worksheets("Hoja1").Vale.Enabled = False
        
        ' 解锁所有单元格
        Worksheets("Hoja1").Cells.Locked = False
        ' 仅锁定H2单元格
        Worksheets("Hoja1").Range("H2").Locked = True
        ' 带UserInterfaceOnly参数保护工作表
        Worksheets("Hoja1").Protect UserInterfaceOnly:=True
        
        NombreAnterior = Worksheets("Hoja1").Range("E11").Value
    End If
    LeerArchivoFichas
    LeerArchivoAgentes
    LeerArchivoLegajos
    Worksheets("Hoja1").Range("A1").Select
End Sub

注意事项 #

• UserInterfaceOnly参数不会随工作簿保存，每次打开工作簿时需重新设置，因此在Workbook_Open事件中执行是正确的做法。
• 确保Form62是新工作簿的正确名称标识，若为变量需提前定义。

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