[已解决]VBA80集之19集的EXCEL程序事件自己写的不对！！！

小志

看了兰老师的V80中的第19集的EXCEL事件后，自己写了个，但是运行的不对，请各位大虾指导！！
就是打开EXCEL文件后，虽然输入的密码错误（INPUTBOX的值为123），但是还能打开EXCEL文件， 虽然运行了MsgBox "对不起，你没有使作本机EXCEL程序权限"，但是后面的  Wb.Close没有运行哇。。
请高手指点。
先谢了。
新建文件夹.rar (9.02 KB, 下载次数: 6)

2013-5-4 17:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-4 17:53

1. Private Sub EXC_WorkbookOpen(ByVal Wb As Workbook)
   
2.     Dim A
   
3.     If Wb.Name = ThisWorkbook.Name Then Exit Sub
   
4.     A = Application.InputBox("请输入密码", Wb.Name)
   
5.     If A = 123 Then
   
6.         MsgBox "欢迎使用本机EXCEL程序"
   
7.     Else
   
8.         MsgBox "对不起，你没有使作本机EXCEL程序权限"
   
9.         Wb.Close False
   
10.     End If
    
11. End Sub

复制代码

第一次打开EXCEL时，第一个打开的文档会要提示两次输入密码。再打开就正常了。

跳转到最佳答案楼层

无聊的疯子

关于权限设置问题，不建议这样使用加载宏的方式，

一般都是把代码直接写到需要应用的文件中，

你这样做的加载宏，每打开一个Excel文件都会运行一下该文件，

关于你的错误，你可以测试一下

1. 
   
2. MsgBox "对不起，你不能登陆 " & Wb.Name & " 文件！！"
   
3. EXC.Quit
   

复制代码

Wb.Name   用于返回工作薄的名称，看看能不能正确返回
EXC.Quit  用于退出Excel程序

hwc2ycy

你要对WB.NAME做下过滤，第一次弹出来的，是打开.XLA时的对话框，如果你密码错了，加载宏就关闭了。

hwc2ycy

1. A = Application.InputBox("请输入密码", Wb.Name)

复制代码

对话框那行，你改成上面这样，看对话框的标题，就会明白了。

hwc2ycy

1. Private Sub EXC_WorkbookOpen(ByVal Wb As Workbook)
   
2.     Dim A
   
3.     If Wb.Name = ThisWorkbook.Name Then Exit Sub
   
4.     A = Application.InputBox("请输入密码", Wb.Name)
   
5.     If A = 123 Then
   
6.         MsgBox "欢迎使用本机EXCEL程序"
   
7.     Else
   
8.         MsgBox "对不起，你没有使作本机EXCEL程序权限"
   
9.         Wb.Close False
   
10.     End If
    
11. End Sub

复制代码

第一次打开EXCEL时，第一个打开的文档会要提示两次输入密码。再打开就正常了。

小志

hwc2ycy 发表于 2013-5-4 17:53
第一次打开EXCEL时，第一个打开的文档会要提示两次输入密码。再打开就正常了。

谢谢老师，明白了。
我再捉摸下。。。
再次感谢。。。

小志

hwc2ycy 发表于 2013-5-4 17:53
第一次打开EXCEL时，第一个打开的文档会要提示两次输入密码。再打开就正常了。

谢谢老师，你这个INPUTBOX中的WB.NAME，让我明白了为什么代码为什么出错了。
不加第一个判断的话，那么这个.XLA的文件就不会运行了。。。
代码看着明白，就是一些细节没有注意到。
谢了。。
{:35:}