Excel只能输入不能修改

最新推荐文章于 2023-03-10 18:29:43 发布

刘一哥GIS

最新推荐文章于 2023-03-10 18:29:43 发布

阅读量3.9k

点赞数 2

分类专栏：《Microsoft Office/VBA》

本文为博主「刘一哥GIS 」原创文章，未经博主允许不得转载或爬取，侵权必究！

本文链接：https://blog.csdn.net/lucky51222/article/details/44306543

版权

《Microsoft Office/VBA》专栏收录该内容

8 篇文章 ¥29.90 ¥99.00

订阅专栏

本文介绍了如何在Excel中设置单元格保护，使得单元格只能输入而不能被修改。通过选择单元格并设置单元格格式为保护锁定，然后利用VBA编程在Sheet的SelectionChange事件中控制单元格的编辑权限。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

二、按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