返回列表 上一主題 發帖

強制關閉所有excel檔

強制關閉所有excel檔

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

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

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

回復 1# man65boy
Application.Quit

TOP

回復 2# GBKEE


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

TOP

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

回復 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
複製代碼

TOP

回復 4# GBKEE


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

TOP

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

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題