Vba Windows(“ETY Tracker V1.2.xlsm”)。屏幕更新=False

Vba Windows(“ETY Tracker V1.2.xlsm”)。屏幕更新=False,vba,excel,userform,Vba,Excel,Userform,你能帮我解决我遇到的问题吗?当我运行程序时,它会向我抛出一个错误“objectdosen不支持此属性或方法” 请帮助…我也尝试了这两个应用程序。可见,但它将关闭我们所有的活动工作簿,并且应用程序。屏幕更新将不允许我编辑或打开除当前用户表单以外的任何其他工作表。Excel.application.ScreenUpdate不会阻止用户与Excel交互,它只是阻止他们看到互动 请尝试Application.Interactive=False,但请记住将其设置回true,否则您将不得不关闭excel应用

你能帮我解决我遇到的问题吗?当我运行程序时,它会向我抛出一个错误“objectdosen不支持此属性或方法”


请帮助…我也尝试了这两个应用程序。可见,但它将关闭我们所有的活动工作簿,并且应用程序。屏幕更新将不允许我编辑或打开除当前用户表单以外的任何其他工作表。

Excel.application.ScreenUpdate
不会阻止用户与Excel交互,它只是阻止他们看到互动


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

是否要隐藏工作簿并仅显示表单

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()
对象没有
.ScreenUpdating
属性。谢谢Darren,我正在尝试隐藏工作簿并仅显示带有此工作簿的程序的表单。Windows(1)。Visible=False很有帮助。非常感谢有一种方法可以通过任何更改将ThisWorkbook.Windows(1).Visible=False指定为特定文件名。非常感谢您的互动,但我正在尝试隐藏背景数据。我正在使用此工作簿。Windows(1)。Visible=False。非常感谢你。
Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
End Sub