[算表] 關閉活頁簿但 Save 會略過

看板Office作者 (逆光)時間10年前 (2015/11/11 07:16), 編輯推噓0(0018)
留言18則, 2人參與, 最新討論串1/1
軟體:Excel 版本:2003 https://www.dropbox.com/s/612q2qrhorm1w50/template_x86.xls?dl=0 自行設計了兩個關閉按鈕 Close ThisWorkbook (紅字) Close ThisWorkbook & QuitExcel(綠字) 兩個都選進行關閉活頁簿並且儲存, 執行到在 Workbook_BeforeClose, 選擇 是 儲存 進行下面五個步驟 1. Call Others.JumpToStart 2. ThisWorkbook.Sheets("Start").Range("C9:E9").ClearContents 3. Call ThisWorkbook.ShapeOnActionOnTime2 4. Call ThisWorkbook.NewCmdBarsOrCtrlsOnTime7 5. ThisWorkbook.Save 6. Call SharedSubFx.AutoDismissMsgBox2(boxmentionSentence2, 8, BoxTitle, vbOKOnly + vbInformation + vbSystemModal) 點選 Close ThisWorkbook & Quit Excel 可以很正常的123456全部執行完畢, 但是 點選 Close ThisWorkbook, 選擇 是 儲存變更,只會執行 46。 我有逐行的檢查, 確實run有經過但是就是不執行, 麻煩幫忙看看,提示一下該如何更改, 謝謝、謝謝! Orz -- (一)我發誓:從天黑黑那天起,開始懂了燕姿就是我的綠光 (二)我發誓:在天氣很好的日子裡,我要陪燕姿練習風箏 (三)我發誓:就是這樣瞭解燕姿的一切,可以隨時隨堂測驗 (四)我發誓:不管星期幾、壞天氣或天氣晴,都不離開燕姿 (五)我發誓:相信難得一見的燕姿,就是我所追尋的Venus (六)我發誓:不管燕姿真的多麼任性,燕姿還是我要的幸福 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.224.47.79 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1447197392.A.361.html

11/11 09:39, , 1F
測試可將beforeclose改以程序方式執行時,第5個save的部分
11/11 09:39, 1F

11/11 09:40, , 2F
執行後就會跑到beforesave內
11/11 09:40, 2F

11/11 17:20, , 3F
不好意思,不是很懂什麼叫做「改以程序方式執行」?
11/11 17:20, 3F

11/11 17:26, , 4F
sub...end sub的方式
11/11 17:26, 4F

11/11 17:34, , 5F
是說不要放在 ThisWorkbook 下嗎?
11/11 17:34, 5F

11/11 17:36, , 6F
sub...end sub放thisworkbook下也是可行的
11/11 17:36, 6F

11/11 17:39, , 7F
我還是 catch 不到你的點 囧>
11/11 17:39, 7F

11/11 17:40, , 8F
測試上,則無以beforeclose觸發事件
11/11 17:40, 8F

11/11 17:42, , 9F
測試以beforeclose內的部分改以sub...end sub來執行,save
11/11 17:42, 9F

11/11 17:42, , 10F
時,會跑到beforesave內
11/11 17:42, 10F

11/11 17:44, , 11F
但如原本beforeclose所帶出的資訊,如Cancel的變數,這方
11/11 17:44, 11F

11/11 17:44, , 12F
面,到程序時則要改寫
11/11 17:44, 12F

11/11 18:15, , 13F
我懂你了,我把處理是否儲存的動作直接搬到按鈕CloseWB
11/11 18:15, 13F

11/11 18:16, , 14F
對話框的Cancel改成Exit Sub,最後一行還是保留
11/11 18:16, 14F

11/11 18:17, , 15F
ThisWorkbook.Close,就串起來了,只要在稍微修改應該
11/11 18:17, 15F

11/11 18:17, , 16F
兩個按鈕就都ok了,感謝你!哈哈~~
11/11 18:17, 16F

11/11 18:20, , 17F
困擾了四個工作天 再次謝謝
11/11 18:20, 17F

11/11 18:30, , 18F
^^
11/11 18:30, 18F
文章代碼(AID): #1MGdhGDX (Office)
文章代碼(AID): #1MGdhGDX (Office)