1、首先我们打开一个工作样表作为例子。
2、我们捂执涡扔使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub UsePassword()Dim wb As WorkbookSet wb = Applic锾攒揉敫ation.ActiveWorkbookwb.Password = InputBox("请输入密码:")wb.CloseEnd Sub
3、我们嚼但匙噻首先声明wb为工作薄对象，并将其赋值为对象应用程序为活动工作薄。这里其实是为了简写所以声明一个变量，可以直接使用对象的password方法进行设置。
4、也就是说Application.ActiveWorkbook.password 与wb.pass嘛术铹砾word是等价的。我们使用inputbox来输入密码，并运行下一步保存。
5、这里运行代码会弹出输入框，输入的密码是明文显示，我们点击确定后，Excel工作薄关闭。
6、重新打开该工作薄，弹出输入密码对话框，我们需要输入正确的密码才能打开工作薄进行工作。
7、如果需要解除密码，我们在文件-信息中找到保护工作薄选项，然后点击密码保护去掉其中的密码即可解密。
