Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30493 / 76732

←次へ　｜　前へ→


	【51505】Re:マクロ有効で保存するとマクロが起動できない

yuu1 - 07/9/21(金) 13:39 -


	引用なし

	パスワード

こんにちは。
示されたマクロを試してみましたがエラーは発生しませんでした。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

これで問題が解消しない場合は、
実際に実行してエラーが発生する最小構成のマクロを示してください。

0 hits

▼

【51495】マクロ有効で保存するとマクロが起動できない かなり初心者 07/9/21(金) 11:09