VBA不跳出儲存警示訊息
當寫好VB執行「儲存檔案」時,卻跳出警示訊息-「無法儲存在無巨集的活頁簿」,需要點選「是」才能儲存,要怎麼不讓他不跳出儲存警示訊息呢?

問題描述
當你寫了儲存檔案語法
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & “\檔案名稱.xlsx” _
, FileFormat:=xlOpenXMLWorkbook

執行巨集後則會跳出警示訊息-「無法儲存在無巨集的活頁簿」。

我們只需要將VB前後加兩段語法:
Application.DisplayAlerts = False
‘將警告顯示關閉
Application.DisplayAlerts = True
‘將警告顯示開啟
修改語法
※輸入以下指令※
Sub 另存新檔()
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & “\檔案名稱.xlsx” _
, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
End Sub

執行巨集則不會跳出警示訊息-「無法儲存在無巨集的活頁簿」,直接忽略完成另存新檔。
