Question

我有一个excel（2013）文件，可以自动打开用户表单。我希望它只显示用户窗体并仅隐藏一个特定的工作簿，但它要么隐藏之前打开的所有工作簿，要么显示所有工作簿，包括我想隐藏的工作簿。我试着用：

Application.visible = false

With ActiveWindow
Application.visible=false
End with

ActiveWindow.application.visible = false

ActiveWindow.visible = false

Windows("workbookname.xlsm").visible = false

没有用。如果有人有任何想法，我会非常感激。谢谢。

Answer 1

即使其他工作簿处于打开状态，它也会隐藏并显示特定的工作簿：

char *q1 = strchr(line, '\"'); /* needs error checking */
char *q2 = strchr(q1 + 1, '\"');
char *q3 = strchr(q2 + 1, '\"');
char *q4 = strchr(q3 + 1, '\"');

/* allocate (q4 - q3) bytes for res */
sprintf(res, "%.*s", (int)(q4 - q3 - 1), q3 + 1);

请注意，必须打开工作簿才能使其正常工作。如果尚未打开，请使用：

Sub test()
    Dim wb As Workbook
    Set wb = Workbooks("Myworkbook.xlsm")
    wb.Windows(1).Visible = False
    'code
    wb.Windows(1).Visible = True
End Sub

VBA显示userform并仅隐藏一个特定的工作簿（继续显示其他工作簿）

1 个答案: