如何用vba对excel表有内容的加密空单元格可以使用
发布网友
发布时间：2022-04-23 23:11
共1个回答
热心网友
时间：2023-10-21 13:59
依次打开：工具-宏-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属性就可以了。
把上面的代码改成：
