启动工作簿没有隐藏窗口,窗体也没有出现

ls

Private Sub Workbook_Open()
    Application.Visible = False
UserForm1.Show
   
End Sub

没有反应


12.rar (8.12 KB, 下载次数: 16)

2012-5-26 23:17 上传

点击文件名下载附件

yiguo

你是不是没有运行啊

无聊的疯子

代码没问题,你测试一下是不是你把事件程序关闭了呢???
用个事件代码测试一下就知道了!

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. msgbox "123"
   
4. End Sub
   
5. 
   

复制代码

ls

无聊的疯子 发表于 2012-5-27 09:08
代码没问题,你测试一下是不是你把事件程序关闭了呢???
用个事件代码测试一下就知道了!

无聊的疯子

ls 发表于 2012-5-27 09:11

我这里测试你的代码是没问题的,
在open事件里按F8可以运行不呢??

或者用下面的代码试试??正常的话,会提示你变量未声明,这时候可以调试代码的!!

1. 
   
2. Option Explicit
   
3. Private Sub Workbook_Open()
   
4.   abc
   
5.     Application.Visible = False
   
6. UserForm1.Show
   
7.      Application.Visible = True
   
8. End Sub
   
9. 
   

复制代码

ls

无聊的疯子 发表于 2012-5-27 09:26
我这里测试你的代码是没问题的,
在open事件里按F8可以运行不呢??

按f8,提示 abc没有申明

其余可以运行

ls

Workbook_Open()
打开不能自动运行代码

无聊的疯子

ls 发表于 2012-5-27 09:54
Workbook_Open()
打开不能自动运行代码

使用

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3. abc
   
4.     Application.Visible = False
   
5. UserForm1.Show
   
6.      Application.Visible = True
   
7. End Sub
   
8. 
   

复制代码

打开没有提示么??

ls

无聊的疯子 发表于 2012-5-27 13:22
使用

打开没有提示么??

去掉了密码攻略,解决了

无聊的疯子

ls 发表于 2012-5-28 00:19
去掉了密码攻略,解决了

{:051:}{:051:}{:051:}{:051:}