如何用vba编程对word和excel进行文件保护？

Question

使用户不能随意对文档进行编辑
使得用户如果没有相应的密码读取不了内容

期末的作业，但现在还是没什么头绪~
最好能有比较详细的解答和代码
因为学校的教育网，上公网太慢，很多资料也查讯不了~
只能拜托大家帮忙了~谢谢！

Answer 1

保护工作簿(Protect方法)
Sub ProtectWorkbook()
MsgBox "保护工作簿结构,密码为123"
ActiveWorkbook.Protect Password:="123", Structure:=True
MsgBox "保护工作簿窗口,密码为123"
ActiveWorkbook.Protect Password:="123", Windows:=True
MsgBox "保护工作簿结构和窗口,密码为123"
ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True
End Sub
示例说明：使用Protect方法来保护工作簿，带有三个可选参数，参数Password指明保护工作簿密码，要解除工作簿保护应输入此密码；参数Structure设置为True则保护工作簿结构，此时不能对工作簿中的工作表进行插入、复制、删除等操作；参数Windows设置为True则保护工作簿窗口，此时该工作簿右上角的最小化、最大化和关闭按钮消失。

解除工作簿保护(UnProtect方法)
Sub UnprotectWorkbook()
MsgBox "取消工作簿保护"
ActiveWorkbook.Unprotect "123"
End Sub

word的应该一样吧

Answer 2

用加密代码，能把里面的文字边成乱码

Answer 3

这个问题震得很奇怪啊，因为word和excel本来就要保护文档设置密码的功能，比方excel就在工具菜单里面可以选择保护工作表，用VBA是多此一举。问题的原文就是这样吗？