Question

excel有没有办法利用vba实现当文档保存退出时自动加密？

加密的文件在解密编辑后时常忘了加密，这个问题有没有自动解决？

Answer 1

你问的不是加密文件吧（打开文件时候提示密码），加密文件除非你另存删除密码，否则保存的时候默认是加密的啊，所以，你应该是指是保护工作表吧。
确实可以通过编程来让文件退出时候自动设置保护，但问题在于：
设置/切换保护状态，实际上标记了文件被修改，正常退出会应该会提示你保存文件。
如果你在VBA里强制保存的话可能会有问题，因为也许你之前做的改动并不想保存的。
而如果不保存呢，也一样，你的保护状态就不能被保存了。
并且在禁用宏的情况下，也很难保证，这样就容易混乱。

Answer 2

给文件加密，我建议您使用超级加密3000试试。

超级加密3000有临时解密功能，正好可以解决您编辑好忘记加密的问题。

Answer 3

在thisworkbook的beforeclose事件中加上密码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Password = "abcd1234"
End Sub
下次打开时就会要求密码

Answer 4

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Password = "你的密码"
End Sub