您的位置:首页 > 其它

Excel只能输入不能修改

2015-03-16 15:07 477 查看
一、选择需要加密的单元格,右键→设置单元格格式→保护→锁定;

二、按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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐