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的启动表中可以对电脑中所有工作簿加密。 望测试,并采纳~