|
▼ichinose さん:
>久々のワード質問箱です。
EXCEL VBAでもお世話になりました。
WEBで数時間調べてみましたが、全く見つからず途方にくれていました。
実際に組み込んで動かすと、うまく動いてくれました。
本当にありがとうございました。助かりました。
>'========================================
>Dim WithEvents app As Application
>'========================================
>Sub stt_kanshi()
> Set app = Application
>End Sub
>'==================================================================
>Private Sub app_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
> If Doc Is ThisDocument Then
> msgbox "閉じないよ"
> Cancel = True
> End If
>End Sub
>
>として、stt_kanshiを一度、実行した後、試してみて下さい。
|
|