如何使EXCEL应用程序锁定不让人打开

后勤部长

请问我以下的操作应再如何修改成如密码输入错误则退出EXCEL.这是我编写在PERSONAL.XLS中的一个模块.代码如下,请各高手帮忙为小弟指点一二,不甚感激!

Sub auto_Open()

MsgBox "热列欢迎来海源,你吃饱了吗？"

If Application.InputBox("请输入操作权限密码:123") = 123 Then

Else

'.....(在这一步中,我想退出EXCEL,但无法实现请高手指点一二)

End If

End Sub

解答：Private Sub Workbook_Open()

MsgBox "热列欢迎来海源,你吃饱了吗？"

If Application.InputBox("请输入操作权限密码:123") = 123 Then

Exit Sub

Else

Application.Quit

End If

End Sub

程香宙的修改：

Sub auto_Open()

MsgBox "程香宙欢迎你的到来", vbQuestion, "联系电话：013838751304"

If Application.InputBox("请输入操作权限密码:", "系统登陆") = 123 Then

Else

MsgBox "密码错误,请重输", vbCritical + vbOKOnly, "你还有两次机会"

If Application.InputBox("请输入操作权限密码:", "系统登陆") = 123 Then

Else

MsgBox "密码错误,再给你一次机会!", vbCritical + vbOKOnly, "你还有一次机会"

If Application.InputBox("请输入操作权限密码:") = 123 Then

Else

MsgBox "你无权进入本系统!请向程香宙申请密码!", vbCritical + vbOKOnly, "你没有机会啦!"

Application.Quit

End If

End If

End If

End Sub

housex

谢谢楼主分享，学习了

zhewin

学习一下