Board logo

標題: 強制關閉所有excel檔 [打印本頁]
作者: man65boy    時間: 2012-1-9 07:18     標題: 強制關閉所有excel檔

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

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

麻煩各位先進老師解題...謝謝。
作者: GBKEE    時間: 2012-1-9 08:36

回復 1# man65boy
Application.Quit
作者: man65boy    時間: 2012-1-9 20:54

回復 2# GBKEE


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

本帖最後由 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
複製代碼
作者: man65boy    時間: 2012-1-10 19:06

回復 4# GBKEE


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

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)