用vbs给excel设密码如何回避宏被禁止问题?

发布网友发布时间：2022-04-23 23:11

共2个回答

热心网友时间：2023-10-13 05:35

找到C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART文件夹，里面有个*.slsm文件（如果没有，则新建一个）。把你的代码复制到这个excel的新模块中去。
保存的时候注意，不能直接保存到这个文件夹。可以保存到另外的地方，再移动到C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART文件夹里。保存的时候保存为*.slsm文件。
如下代码可做参考：
Sub auto_open()
Dim i As Integer
For i = 1 To 3
Dim password As String
password = InputBox("请输入密码")
If password = "kelvin" Then 'kelvin就是你要设置的密码
MsgBox "欢迎"
Exit For
ElseIf i < 3 Then
MsgBox "请输入正确密码，你还有" & 3 - i & "次输入机会！"
Else
MsgBox "错误，系统即将关闭"
Application.Quit
End If
Next
End Sub

热心网友时间：2023-10-13 05:35

VBS还是VBA？