[已解决]关于打开工作簿运行窗体问题.

coco_lin

当我在ThisWorkook下编写如

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

这是一个运行工作簿时之间打开我之前设置好的窗体,可有问题,就是它会把其他工作簿隐藏和不能打开其他工作簿.这个有办法解决嘛

我打开设置窗体运行与其他没设置的互不干涉!

最佳答案

月排行榜 / 总排行榜

amulee

2010-9-27 09:43

QUOTE:

以下是引用coco_lin在2010-9-26 17:14:00的发言：

2VBQnrs1.rar (21.61 KB, 下载次数: 172)

2010-9-27 09:43 上传

点击文件名下载附件
关于打开工作簿运行窗体问题.

跳转到最佳答案楼层

wayy

Application.Visible = False

这句设置的是程序隐藏，是指所有的Excel文件，没法设置单个的。

coco_lin

QUOTE:

以下是引用wayy在2010-9-26 13:44:00的发言：

Application.Visible = False

这句设置的是程序隐藏，是指所有的Excel文件，没法设置单个的。

版主发了权威语音,我只能死心喇.

amulee

可以搞个变通的

Private Sub Workbook_Open()
    ThisWorkbook.IsAddin = True
    UserForm1.Show
End Sub

coco_lin

QUOTE:

以下是引用amulee在2010-9-26 14:00:00的发言：

可以搞个变通的

Private Sub Workbook_Open()
    ThisWorkbook.IsAddin = True
    UserForm1.Show
End Sub

NAsKqCny.zip (23.39 KB, 下载次数: 26)

2010-9-26 17:12 上传

点击文件名下载附件
关于打开工作簿运行窗体问题.

怎么我这个附件中会提示1004错误么?

而我新建一个工作簿测试则成功,是否我附件中有错误呢?请老师帮忙修改..

wayy

QUOTE:

以下是引用amulee在2010-9-26 14:00:00的发言：

可以搞个变通的

Private Sub Workbook_Open()
    ThisWorkbook.IsAddin = True
    UserForm1.Show
End Sub

学习了。

IsAddin 属性

参阅应用于MSITStore:D:\Program%20Files\Microsoft%20Office\OFFICE11\2052\VBAXL10.CHM::/html/xlproIsAddin1.htm#example">示例特性

如果指定工作簿作为加载宏运行，则该值为 True。Boolean 类型，可读写。

说明

如果将本属性设为 True，则指定工作簿将有下列特征：

• 如果打开该工作簿发生了更改，将不提示保存该工作簿。
• 工作薄窗口不可见
• 该工作簿中的任何宏都不在“宏”对话框中显示（指向“工具”菜单中的“宏”项，并单击“宏”命令可显示该对话框）。
• 尽管该工作簿中的宏在“宏”对话框中不可见，仍然可以通过“宏”对话框运行该工作簿中的宏。另外，宏名无须使用工作簿名称进行标识。
• 在打开工作表时按着 Shift 是没有作用的。

amulee

QUOTE:

以下是引用coco_lin在2010-9-26 17:14:00的发言：

2VBQnrs1.rar (21.61 KB, 下载次数: 172)

2010-9-27 09:43 上传

点击文件名下载附件
关于打开工作簿运行窗体问题.