Excel只能输入不能修改

标签：

一、选择需要加密的单元格，右键→设置单元格格式→保护→锁定；

二、按Alt+F11键进入VBE环境，在左侧的相应sheet名称上（如sheet1）右键→查看代码；

三、选择Worksheet的SelectionChange事件，写入如下代码：

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

Excel只能输入不能修改

标签：

原文地址：http://blog.csdn.net/lucky51222/article/details/44306543