不需要的打印设置

所以我在尝试打开一个新的工作簿（checkwb）时遇到了一些奇怪的行为。 当新工作簿打开时，打开工作簿中每个页面的“打印设置”对话框。 此外，点击“OK”〜200次后代码运行正常，但如果我closurescheckwb并尝试再次运行代码，则无法打开checkwb，直到完全closuresExcel并重新打开，此时打印对话框将重新出现。 这是我的（不完整的）代码：

Sub Check() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim homewb As Workbook Dim checkwb As Workbook Dim ws As Worksheet Dim namestr As String Dim checkarray() As Double Set homewb = Workbooks("BranchTable Calc B31.3.xlsm") Set checkwb = Workbooks.Open("Z:\Agrium\Redwater\E130040CP ~ Pipe Spec Update\M-Mech\20-Eng\Calcs\Final WT Calcs All Specs\New Bechtel Agrium comments.xlsm") For Each ws In homewb.Sheets If ws.Name = "Cover" Or ws.Name = "Pipe Dims" Then Else: namestr = ws.Name & " Weld" checkarray() = GetCheckValues(checkwb, namestr) End If Next checkwb.Close Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 

我读过这样奇怪的错误，可能会发生损坏的文件，但代码应该无法打开文件，如果它是由我的理解腐败。

Answer 1

将目标工作簿中所有工作表的页面视图设置为“正常”模式解决了此问题。 感谢里卡多·罗德里格斯的提示！