|
こんにちは。
示されたマクロを試してみましたがエラーは発生しませんでした。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
これで問題が解消しない場合は、
実際に実行してエラーが発生する最小構成のマクロを示してください。
|
|