本篇经验将通过实例和大家分享【在VBA中,如何编写代码为工作表添加密码?】
工具/原料
电脑壹台
OFFICE办公软件
方法/步骤
1、为工作表【789】加密水貔藻疽,打开时无显示内容,并跳出输入密码对话框,正确输入密码后,显示表中内容,若输入密码错误,则不显示里面的内容,也无法进行编辑操作!
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visualbasic】!
3、会进入VBA编辑界面!双击左侧栏中准备加密的工作表!
4、会弹出事件程序代码编辑窗口!
5、在事件程序界面里的左下拉菜单中选择【worksheet】,右下拉菜单中选择【activate】。
6、在事件程序窗口,输入以下代码:PrivateSubWorksheet_Acti箪滹埘麽vate()i=InputBox("请输入密码媪青怍牙")Ifi=123ThenCells.Font.Color=RGB(0,0,0)ElseSheet11.ActivateEndIfApplication.EnableEvents=flaseEndSub
7、双击左侧栏中的“thisworkbook”工作薄!右下拉菜单中选择【open】,输入以下代艨位雅剖码。Pri即枢潋雳vateSubWorkbook_Open()Application.EnableEvents=TrueSheet8.Cells.Font.Color=RGB(255,255,255)Sheet11.SelectEndSub
8、点击保存关闭工作表,我们再次打开工作簿时,点击工作表【789】,需要正确输入密码后,才能显示内容和进行编辑操作!