[發問] 如何設定MsgBox回傳值 vbCancel 讓他不要跳出詢問是否要存檔

av8d

vbCancel 不設定~依然會跳出詢問是否要存檔
我該如何設定讓他不跳出此詢問視窗~回到原來畫面呢?

mark15jill

回復 1# av8d


Application.DisplayAlerts = False '提示視窗消失

av8d

回復 2# mark15jill


    請問如果不想讓他將整個Excel關閉~只單純關閉MsgBox視窗~也不需要詢問是否存檔~是否有辦法? 感恩!

Hsieh

回復 3# av8d


    MsgBox視窗是設計者為了讓使用者有選擇機會所設計，為何要取消式窗跳出?
發問請清楚描述需求或上船完整檔案或程式碼，否則瞎子摸象得不到正確解答

mark15jill

回復 3# av8d


這是忽略提示視窗
不是關閉EXCEL ...0.0
至於  設定MsgBox 回傳值VbCancel . 但又不要顯示
除非有設定到 自動儲存 或者是 執行完 直接先儲存
不然一般 而言 應該不會出現是否要存檔...(特殊情況除外   如 程式盪掉  程式內預設就有儲存

GBKEE

回復 3# av8d
關閉MsgBox視窗~也不需要詢問是否存檔
那你需明確地告訴Excel程式 檔案關閉後是要存檔或不存檔

1. Option Explicit
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3. Me.Close
   
4. 'Me.Save '已存檔之檔案存檔
   
5. 'Me.Close False '不存檔
   
6. 'Me.Close True, "D:\TEST.XLS"  '未存檔之檔案存檔 或已存檔之檔案另存檔名
   
7. End Sub

複製代碼

av8d

回復 6# GBKEE


   大大~我的意思是~跳出詢問視窗一般非為 是 . 否 . 取消  三種

正常人的想法是~按取消代表我沒做過這個動作~所以關閉MsgBox而已~
但是系統默認取消無論有無定義~都是直接關閉Excel~如果有變更他會詢問是否變更~如果沒變更則會直接關閉~

我希望不要關閉Excel~只要把MsgBox的提示訊息關閉就好~可是系統總是直接關閉Excel

GBKEE

回復 7# av8d

1. Option Explicit
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Cancel->取消=True 不關閉檔案
   
3.    If MsgBox("要存檔嗎?", vbYesNoCancel) = vbCancel Then Cancel = True
   
4. End Sub

複製代碼