excel中使用vba来设置密码

excel中使用vba来设置密码

工具/原料

1
首先我们打开一个工作样表作为例子。
2
我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Sub UsePassword()

Dim wb As Workbook

Set wb = Application.ActiveWorkbook

wb.Password = InputBox("请输入密码:")

wb.Close
End Sub
2
相关内容未经授权抓取自百度经验
3
我们首先声明wb为工作薄对象，并将其赋值为对象应用程序为活动工作薄。这里其实是为了简写所以声明一个变量，可以直接使用对象的password方法进行设置。
4
也就是说Application.ActiveWorkbook.password 与wb.password是等价的。我们使用inputbox来输入密码，并运行下一步保存。
5
这里运行代码会弹出输入框，输入的密码是明文显示，我们点击确定后，Excel工作薄关闭。
6
重新打开该工作薄，弹出输入密码对话框，我们需要输入正确的密码才能打开工作薄进行工作。
7
如果需要解除密码，我们在文件-信息中找到保护工作薄选项，然后点击密码保护去掉其中的密码即可解密。
END