Question

excel VBA 录入一个锁定一个

录入一个锁定一个代码如下，我想在以下代码的基础上增加一个功能。现在这段代码如果想要修改已经锁定的内容，就只能审阅-撤销工作表保护-输入密码-确认，能不能加个判断条件，当我要编辑已经锁定的单元格时，自动弹出密码输入框让我输入密码后就编辑了，而不是先由excel提示被锁定，然后审阅-撤销工作表保护-输入密码-确认？或者把这个功能单独分裂出来也可以

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1").Locked = True Then
If Range("a1") = "" Then
Cells.Select
Selection.Locked = False
End If
End If
Me.Unprotect ("1") '撤销工作表保护，123为密码
If Target <> "" Then
Target.Locked = True
End If
Me.Protect ("1") '保护工作表
ActiveSheet.Unprotect
End Sub

Answer 1

'试试这样看行不行
Private Sub Worksheet_Change(ByVal Target As Range)
  If Range("a1").Locked = True Then
     If Range("a1") = "" Then
        Cells.Select
        Selection.Locked = False
     End If
   End If
    Me.Unprotect ("1") '撤销工作表保护，123为密码
    If Target <> "" Then
        Target.Locked = True
    End If
    Me.Protect ("1") '保护工作表
    ActiveSheet.Unprotect
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target <> "" Then
        ActiveSheet.Unprotect
    End If
End Sub

追问

不行的哦，我要编辑已锁定的单元格时，还是弹出这个，还得到审阅里面撤销保护才能改

追答

这个代码我测试了一下，在双击有内容的单元格做修改时，会弹出输入密码的对话框。
您要是方便的话，可以上传个附件，再帮您看看吧……

追问

我把“允许直接在单元格内编辑”勾选后可以了