如何通过超链接打开vbmodeless用户表单?

时间:2018-03-02 04:28:15

标签: excel vba excel-vba

我有一个用户窗体在通过电子表格打开时打开vbmodeless但是当我通过另一个工作簿中的超链接打开同一个电子表格时,表单会打开,电子表格在其后面可见。

经过一番研究后,这是由于Private Sub Workbook_Open()因其他进程被阻止而没有被解雇。

如何解决这个问题,以便像通常隐藏excel一样打开用户窗体?我正在使用excel 2010。

*编辑 - 已添加代码

“ThisWorkbook'

中的代码
Private Sub Workbook_Open()

frm_Option_Menu.Show vbModeless

End Sub

以上打开的形式的代码:

Private Sub UserForm_Initialize()

Application.Visible = False

Dim tbl As ListObject
Dim check As Variant
Dim tRows As Range
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Current Accounts")
Set tbl = ws.ListObjects("Accounts")
Set tRows = ws.ListObjects("Accounts").ListColumns(1).DataBodyRange

For Each check In tRows
With Me.cboPart
.AddItem check.Value
End With
Next check

DTPicker2.Value = DateAdd("ww", -2, Date - (Weekday(Date, vbMonday) - 6))
DTPicker1.Value = DateAdd("ww", -2, Date - (Weekday(Date, vbMonday) - 0))

End Sub

令人讨厌的是,唯一没有初始化的是Application.visible = false ......

JR。

0 个答案:

没有答案