VBA不跳出儲存警示訊息
當寫好VB執行「儲存檔案」時,卻跳出警示訊息-「無法儲存在無巨集的活頁簿」,需要點選「是」才能儲存,要怎麼不讓他不跳出儲存警示訊息呢?
![](https://lazyorangelife.com/wp-content/uploads/2023/10/VBA儲存警示訊息-1.png)
問題描述
當你寫了儲存檔案語法
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & “\檔案名稱.xlsx” _
, FileFormat:=xlOpenXMLWorkbook
![](https://lazyorangelife.com/wp-content/uploads/2023/10/VBA儲存警示訊息-2.png)
執行巨集後則會跳出警示訊息-「無法儲存在無巨集的活頁簿」。
![](https://lazyorangelife.com/wp-content/uploads/2023/10/VBA儲存警示訊息-1.png)
我們只需要將VB前後加兩段語法:
Application.DisplayAlerts = False
‘將警告顯示關閉
Application.DisplayAlerts = True
‘將警告顯示開啟
修改語法
※輸入以下指令※
Sub 另存新檔()
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & “\檔案名稱.xlsx” _
, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
End Sub
![](https://lazyorangelife.com/wp-content/uploads/2023/10/VBA儲存警示訊息-3.png)
執行巨集則不會跳出警示訊息-「無法儲存在無巨集的活頁簿」,直接忽略完成另存新檔。
![](https://lazyorangelife.com/wp-content/uploads/2023/10/VBA儲存警示訊息-4.png)