如何用vba对excel表有内容的加密空单元格可以使用

发布网友 发布时间:2022-04-23 23:11

我来回答

1个回答

热心网友 时间:2023-10-21 13:59

用vba可以实现
依次打开:工具-宏-visual bisic编辑器,打开vba编辑器,在左侧工程中双击你要保护的工作表,然后将下列代码粘贴到编辑窗口中:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell < Then
If InputBox(请输入修改密码:, 密码) = abc ThenEndElseMsgBox 密码错误
ActiveWorkbook.Close savechanges:=FalseEnd IfEnd IfEnd Sub以后只要单元格中已经存在数据,你选择了该单元格就会要求输入密码,如果输入密码错误就会退出该工作簿,并且不进行保存。所以你要随时保存文件^-^
将上面的abc改成你自己的密码就可以了。
不过这个密码没有进行加密(别人很容易看到你输入的密码),如果你会vba你可以自己新建一个窗口,用文本框输入,将文本框的“passwordchar”属性设置成“*”号,就更好了,然后用if判断改文本框的text属性就可以了。
把上面的代码改成:

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com