表格修改需要加密VBA

nnsea

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

With Target

If .Value<> "" Then

PW =InputBox("修改内容请输入密码：")

If PW<> "123" Then

Cells(1,1).Select

Else

Exit Sub

End If

End If

End With

End Sub

细节注意：就是选中全部，单元格格式，保护，锁定这个去掉。

哪张表格需要保护，就把此代码放到哪张表格上面就可以。