一、选择需要加密的单元格，右键→设置单元格格式→保护→锁定；
二、按Alt+F11键进入VBE环境，在左侧的相应sheet名称上（如sheet1）右键→查看代码；
三、选择Worksheet的SelectionChange事件，写入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With TargetIf .Value <> "" ThenPW = InputBox("要修改内容，请输入密码！")If PW <> "123" ThenCells(1, 1).SelectElseExit SubEnd IfEnd If
End With
End Sub
)
：.NET7 Preview3)
