Question

请你帮忙解决我面临的问题，当我运行程序时，它给我一个错误＆＃34;对象不支持这个属性或方法＆＃34;

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将不允许我编辑或打开除当前用户表单之外的任何其他工作表。

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（＆＃34; ETY Tracker V1.2.xlsm＆＃34;）。ScreenUpdating = False

2 个答案: