強制關閉所有excel檔

man65boy

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

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

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

GBKEE

回復 1# man65boy
Application.Quit

man65boy

回復 2# GBKEE


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

GBKEE

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

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

複製代碼

man65boy

回復 4# GBKEE


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

GBKEE

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