excel中使用vba来设置密码工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/7分步阅读

首先我们打开一个工作样表作为例子。

2/7

我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub UsePassword()

Dim wb As Workbook

Set wb = Application.ActiveWorkbook

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

wb.Close

End Sub

3/7

我们首先声明wb为工作薄对象，并将其赋值为对象应用程序为活动工作薄。这里其实是为了简写所以声明一个变量，可以直接使用对象的password方法进行设置。

4/7

也就是说Application.ActiveWorkbook.password 与wb.password是等价的。我们使用inputbox来输入密码，并运行下一步保存。

5/7

这里运行代码会弹出输入框，输入的密码是明文显示，我们点击确定后，Excel工作薄关闭。

6/7

重新打开该工作薄，弹出输入密码对话框，我们需要输入正确的密码才能打开工作薄进行工作。

7/7

如果需要解除密码，我们在文件-信息中找到保护工作薄选项，然后点击密码保护去掉其中的密码即可解密。

注意事项

谢谢你的观看。

你的投票是我编辑经验的动力。谢谢你。

EXCEL密码保护