Windows("ETY Tracker V1.2.xlsm").ScreenUpdating = False

Question

当我运行程序向我抛出错误时，你能帮我解决我面临的问题吗 "Object dosen't support this property or method"

Private Sub Workbook_Open()
   'Application.Visible = False
   'Application.ScreenUpdating = False
   Windows("ETY Tracker V1.2.xlsm").ScreenUpdating = False
   UserForm1.Show
End Sub

请帮忙...我也尝试了两个应用程序 .visible，但它会关闭我们拥有的所有活动工作簿，并且 application.screenupdating 不允许我编辑或打开任何其他 sheet 其他比现在的用户表单。

Answer 1

Excel.Application.ScreenUpdating 不会阻止用户与 Excel 交互，它只是阻止他们看到交互。

尝试 Application.Interactive = False，但记得将其设置回 true，否则您将不得不关闭您的 excel 应用程序。

Answer 2

您是否要隐藏工作簿而只显示表格？

Private Sub Workbook_Open()
    ThisWorkbook.Windows(1).Visible = False
    UserForm1.Show
End Sub

或隐藏Excel并显示表格？这不会关闭工作簿 - 它们只是在本身隐藏的应用程序中。

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

Windows("ETY Tracker V1.2.xlsm").ScreenUpdating = False

Windows("ETY Tracker V1.2.xlsm").ScreenUpdating = False

excel

vba

userform