EXCE如何用VBA代码加入启动时对所有工作表加密,并设指定密码?

Question

比如我一工作簿里有20张工作表，如何在启动EXCEL时自动对所有工作表设保护密码，比如我想设密码为“123456”，如何在一启动时就自动对20张工作表全部设密码为“123456”，还有怎么加入一句，如果EXCEL的宏没有开启的话，就自动关闭并退出工作簿，必须检测本机一定要开启宏才能启动工作溥？

Answer 1

Sub auto_open()
Dim Password As String
Dim i As Integer
For i = 1 To 3
Password = InputBox("请输入密码：")
If Password = "123456" Then '设置密码
MsgBox ("欢迎")
Exit For
ElseIf i < 3 Then
MsgBox "请输入正确密码," & "你还有" & 3 - i & "次输入机会。"
Else: MsgBox ("密码错误，即将关闭")
Application.Quit
End If
Next
End Sub
复制代码进C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART的启动表中可以对电脑中所有工作簿加密。
望测试，并采纳~

Answer 2

都没有开启宏，那你还怎么启用宏呢？加一句肯定是不行的，得要个宏表函数才行

至于密码嘛，你在open事件写个

for each sht in sheets
    sht.protect password:=123456
next

这样就设置密码了

Answer 3

用open事件不就完成了吗？