我有一个在 vba 中创建的用户表单,我想在打开我的 excel 时只显示用户表单......有没有办法做到这一点......我已经尝试过代码,例如
application.visible = false , activewindow.visible= false
Run Code Online (Sandbox Code Playgroud)
如果我在打开已经打开的文件之前在模块中使用此代码,将与我正在打开的文件一起隐藏, 有人可以告诉我我如何特别隐藏我想打开的文件并显示用户表单
尝试这样的事情
1- 创建一个带有 2 个按钮的用户表单(见下图)
2- 此工作簿代码
Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub
Run Code Online (Sandbox Code Playgroud)
3- 表格代码
Private Sub CommandButton1_Click()
If Workbooks.Count > 1 Then
Windows("Test.xlsm").Visible = True
Else
Application.Visible = True
End If
End Sub
Private Sub CommandButton2_Click()
If Workbooks.Count > 1 Then
Windows("Test.xlsm").Visible = False
Else
Application.Visible = False
End If
End Sub
Private Sub UserForm_Initialize()
If Workbooks.Count > 1 Then
Windows("Test.xlsm").Visible = False
Else
Application.Visible = False
End If
End Sub
Private Sub UserForm_Terminate()
If Workbooks.Count > 1 Then
Windows("Test.xlsm").Visible = True
Else
Application.Visible = True
End If
End Sub
Run Code Online (Sandbox Code Playgroud)
这只会显示或隐藏表单的工作簿。打开的任何其他工作簿将不受影响。
| 归档时间: |
|
| 查看次数: |
9027 次 |
| 最近记录: |