excel中使用vba来设置密码
工具/原料
excel2013
更多经验请关注,如果帮到了你,请在上方给个投票谢谢支持。好人一生平安。
先顶后看年薪百万,如果帮到了你,帮忙给个好评,这对小编很重要,万分感谢。
方法/步骤
1、首先我们打开一个工作样表作为例子。
2、我们捂执涡扔使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:SubUsePassword()DimwbAsWorkbookSetwb=Applic锾攒揉敫ation.ActiveWorkbookwb.Password=InputBox("请输入密码:")wb.CloseEndSub
3、我们嚼但匙噻首先声明wb为工作薄对象,并将其赋值为对象应用程序为活动工作薄。这里其实是为了简写所以声明一个变量,可以直接使用对象的password方法进行设置。
4、也就是说Application.ActiveWorkbook.password与wb.pass嘛术铹砾word是等价的。我们使用inputbox来输入密码,并运行下一步保存。
5、这里运行代码会弹出输入框,输入的密码是明文显示,我们点击确定后,Excel工作薄关闭。
6、重新打开该工作薄,弹出输入密码对话框,我们需要输入正确的密码才能打开工作薄进行工作。
7、如果需要解除密码,我们在文件-信息中找到保护工作薄选项,然后点击密码保护去掉其中的密码即可解密。