麻辣家族討論版版 » Excel程式區 » 強制關閉所有excel檔

返回列表下一主題上一主題發帖

強制關閉所有excel檔

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-1-9 07:18 | 只看該作者

強制關閉所有excel檔

請教各位先進老師們，在這題佳作當中
http://forum.twbts.com/viewthrea ... amp;extra=#pid16718

如何在他關閉時，強制關閉所有excel檔，不然只要按別的活頁"取消"，強制關閉就會失靈!

麻煩各位先進老師解題...謝謝。

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-1-9 08:36 | 只看該作者

回復 1# man65boy
Application.Quit

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

3^#

發表於 2012-1-9 20:54 | 只看該作者

回復 2# GBKEE

在此佳作當中是有這一句，
Application.Quit '關閉 Excel ->正常使用時請解除前面的注解 " ' "
End If
Application.Visible = True '顯示 Excel
以上程式在進入時，的確要輸入密碼才能進入活頁簿，按x也會關閉檔案，但，只能關閉這個檔案，
請大大試做一遍，就明繚，先開新的活頁，在新的活頁輸入一些文字，不儲存，在另開啟此佳作檔案，當然在進入時，會遇到要輸入密碼，重點來了，
不輸入密碼，按x取消，會先關閉此佳作檔案中時，又跳出另一個新活頁我們還沒儲存的檔案，他會以警告視窗跳出，"是"，"否"，"取消"，按"取消"
的話會使此佳作檔案關閉無效，直接不用輸入密碼就能進入到活頁裡，不明繚，麻煩大大指點迷津改善!!

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-1-10 08:47 | 只看該作者

本帖最後由 GBKEE 於 2012-1-10 20:15 編輯

回復 3# man65boy
謝謝你, 指出這缺失,當初沒有想到這點.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Check_time = TimeOut + 2
Application.DisplayAlerts = False '取消系統的提示
If Check Then
MsgBox "WeCome"
Else
Application.Quit '關閉 Excel ->正常使用時請解除前面的注解 " ' "
End If
Application.Visible =True
End Sub

複製代碼

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

5^#

發表於 2012-1-10 19:06 | 只看該作者

回復 4# GBKEE

這一段Application.Value=True"編式錯誤"唯讀x@y..
小弟把它改回Application.Visible = True 檔案測試ok 沒問題，
謝謝BKEE大大解開許久的疑惑，此佳作還是需要"解鈴人還須繫鈴人"，感謝BKEE大大。

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2012-1-10 20:16 | 只看該作者

回復 5# man65boy
這一段Application.Value=True"編式錯誤"唯讀x@y.. 拍戲(不好意思)

靜思自在 : 天上最美是星星，人生最美是溫情。

返回列表下一主題上一主題