两段代码分别为:
Private Sub Workbook_Open()
Workbooks.Open Filename:=ThisWorkbook.FullName, UpdateLinks:=0
'打开文件时跳过宏安全提示
End Sub
Sub xxx()
ActiveWindow.DisplayWorkbookTabs = False
'工作表标签不显示
End Sub
把第二段代码放到第一段代码里后就报错,有什么办法可实现“打开文件时跳过宏安全提示”和“工作表标签不显示”同时执行?
捕捉到ThisWorkbook.FullName的窗口存在时,再调用第二段程序xxx
Dim wind As Window, lWind As Boolean
lWind = False
For Each wind In Application.Windows
If wind.Caption = ThisWorkbook.FullName Then
lWind = True
Exit For
End If
Next
If lWind = True Then
ActiveWindow.DisplayWorkbookTabs = False
End If
打开文件时跳过宏安全提示?是不是将宏的安全级另降为低?要不然宏的提示是为保护文件安全性而设的,不会跳过吧。
Dim wind As Window, lWind As Boolean
lWind = False
For Each wind In Application.Windows
If wind.Caption = ThisWorkbook.FullName Then
lWind = True
Exit For
End If
Next
If lWind = True Then
ActiveWindow.DisplayWorkbookTabs = False
End If
打开文件时跳过宏安全提示?是不是将宏的安全级另降为低?要不然宏的提示是为保护文件安全性而设的,不会跳过吧。
温馨提示:答案为网友推荐,仅供参考
第1个回答 2009-03-20
楼主,应该是跳过自动更新连接提示吧.