|
▼ひつまぶし さん:
>簡単な方法でよければ、すぐ思いつくのは
>Ontimeで終了処理を予約しておくことでしょうか?
>
>Thisworkbookモジュールに以下の記述を追加でどうでしょうか?
>
>Option Explicit
>Const 退社時刻 As String = "17:30:00"
>Private myTime As Date
>
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
> On Error Resume Next
> Application.OnTime myTime, Me.CodeName & ".自動終了", , False
>End Sub
>
>Private Sub Workbook_Open()
> myTime = Date + TimeValue(退社時刻)
> If Now() < myTime Then
> Application.OnTime myTime, Me.CodeName & ".自動終了"
> End If
>End Sub
>
>Private Sub 自動終了()
> Application.Quit
> Me.Close True
>End Sub
ありがとうございました。なかなかうまくいきません。お礼が遅くなり申し訳ありませんでした。
|
|