|
回答をして頂いた方々ありがとうございました。
どの方法をとっても解決できませんでした。
yuu1さんの助言どおり最小構成で試みてみたいと思います。
▼yuu1 さん:
>こんにちは。
>示されたマクロを試してみましたがエラーは発生しませんでした。for excel2000
>他の個所に原因があるのかもしれません。
>とりあえず各プロシージャの以下を修正してみてください。
>
>Sub windowmin()
> Application.Visible = False
> Db.Show
> Application.Quit '追加
>End Sub
>
>Private Sub CommandButton終了_Click()
> Dim myBtn As Integer
> Dim myMsg As String, myTitle As String
> myMsg = "保存して、終了します。"
> myTitle = "終了確認"
> myBtn = MsgBox(myMsg, vbQuestion + vbYesNoCancel, myTitle)
> If myBtn = vbYes Then
> Unload Me
> ActiveWorkbook.Save
> 'Application.Quit '削除
> ElseIf myBtn = vbNo Then
> Unload Me '追加
> 'Application.Quit'削除
> End If
>End Sub
>
>これで問題が解消しない場合は、
>実際に実行してエラーが発生する最小構成のマクロを示してください。
|
|