用vba加密excel工作簿

我似乎找不到一个简单的解决办法。如何创建一个宏来使用密码和另一个将删除密码的单独宏对当前活动工作簿进行加密？

我自己没有这样做，但谷歌似乎很容易做到：

下面是链接页面的简单复制粘贴摘录

加密：

“使用打开所需的密码保存文件”
ThisWorkbook.SaveAs密码：=“fileOpenPassword”
'保存文件以允许访问，但需要密码才能修改
ThisWorkbook.SaveAs writeResPassword:=“modifyFilePassword”
'使用打开和修改文件所需的密码保存文件
ThisWorkbook.SaveAs密码：=“fileOpenPassword”_
writeResPassword:=“modifyFilePassword”

解密：

“打开受密码保护的文件
工作簿。打开文件名：=“C:\Users\marks\Documents\PasswordProtectedFile.xlsm”_
密码：=“fileOpenPassword”，writeResPassword:=“fileModifyPassword”

---

有关捕获错误等的更多信息，请参阅链接页面。

不过我不一定要解密它。我想把它去掉altogether@pandasnew123455如果文件已加密，Excel将无法打开该文件，首先需要密码对其进行解密才能打开该文件。然后在没有密码的情况下再次保存它的副本（

SaveAs

），并且该副本的密码已被删除。或者您正在寻找完全不同的工作簿/工作表保护？ActiveWorkbook.Password=“Password”将设置一个。我现在如何删除它？如果我离开。密码=“”。它移除了它