返回列表 上一主題 發帖

強制關閉所有excel檔

回復 1# man65boy
Application.Quit

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

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

TOP

        靜思自在 : 【停滯不前,終無所得】人都迷於尋找奇蹟,因而停滯不前;縱使時間再多、路再長,也了無用處,終無所得。
返回列表 上一主題