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/)