Excel VBA ブックが閉じられた時に別のブックを閉じたい
- Excel VBAを使用して、A.xlsを閉じると同時にB.xlsも閉じたい場合、以下のマクロを使用することができます。しかし、A.xlsが保存されていない場合に保存メッセージが表示され、キャンセルを選択した場合でもB.xlsが閉じられてしまう問題があります。
- A.xlsが保存されていない場合に表示される保存メッセージの問題を解決する方法は、VBAコードを修正することです。具体的には、BeforeCloseイベントを使用して確認を行い、保存せずにブックを閉じることができます。
- このような方法を使用すると、A.xlsが本当に閉じられた時だけB.xlsを閉じることができます。ただし、保存せずに閉じる場合は注意が必要です。
- ベストアンサー
Excel VBA ブックが本当に閉じられた時だけ別のブックを閉じたい
Excel VBA ブックが本当に閉じられた時だけ別のブックを閉じたい A.xls B.xls と二つのブックがあります。 A.xlsが閉じられる時、B.xlsも同時に閉じたいです。 A.xlsに以下のマクロを入れました。 Private?Sub?Workbook_BeforeClose(Cancel?As?Boolean) ?Workbooks("B.xls").Close?SaveChanges:=False End?Sub 問題はA.xlsが保存してない場合、「A.xlsへの変更を保存しますか？」というメッセー ジが 出てきますが、そこでキャンセルを押された場合でもB.xlsが閉じられてしまいます。 A.xlsが本当に閉じられた時だけB.xlsを閉じたいのですが そのようなことは可能でしょうか？
- ytqyh081
- お礼率100% (4/4)
- パフォーマンス・チューニング
- 回答数1
- ありがとう数30
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
イベントが無いので難しいと思います。 代替案として、自力で保存を問い合わせてみては？ Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim 文書, 応答 If Not ThisWorkbook.Saved Then '変更があった場合のみ問い合わせる 文書 = "'" & ThisWorkbook.Name & "'への変更を保存しますか？" 応答 = MsgBox(文章, vbExclamation + vbYesNoCancel) If 応答 = vbCancel Then '閉じないようにして終了 Cancel = True Exit Sub End If If 応答 = vbYes Then '自力で保存する ThisWorkbook.Save Else '保存したことにしてしまう ThisWorkbook.Saved = True End If End If ★ここでB.xlsを閉じる End Sub 面倒なので省略しましたが、読み取り専用のブックだと、Saveメソッドで エラーが発生します。エラーハンドリングして回避してください。
関連するQ&A
- VBAでファイルを閉じる時に、他のエクセルファイルを閉じるには？
VBAで、 Private Sub Workbook_Open() Workbooks.Open FileName:="バス時刻表.xls",ReadOnly:=True End Sub で、バス時刻表.xlsを自動的にオープンした後、 閉じる時に、 Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("バス時刻表.xls").Close End Sub で記述したら、エラーとなります。 どのようにすればいいのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【Excel VBA】 ブッククローズ時の動作について
環境： WindowsXP Office2003 ThisWorkBookモジュールに、 Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ブックの保存を要求しない ThisWorkbook.Saved = True End Sub と記述しているのですが、保存の有無を聞かれます。 しかしながら、ブックにより聞かれない場合もあります。 原因として考えられるのは、どのようなことでしょうか？
- ベストアンサー
- オフィス系ソフト
- VBAでファイルを保存せずに閉じた後の他ブックの挙動
初めて質問させていただきます。 VBA初心者の為、質問自体に不足があるかもしれませんが、ご協力をお願い致します。 エクセル2000(SP3)で複数のブック（仮にA.xls,B.xlsとします）を起動した状態で、Aをマクロを使って保存せずに終了させたところ、Bの操作が出来なくなります。（セル選択等もできません。Bのsheetを選択するとアプリケーションエラーになってしまいます） 同Windows上に他アプリケーションが起動している場合、それらを一度選択してから再度Excelを選択すると、Bの操作が可能になります。 保存せずに終了させる為のマクロは次のとおりです。 ブックAのThisWorkbook内に記述しています。 Private Sub Workbook_BeforeClose(Cancel As Boolean) If Workbooks.count = 1 Then Application.DisplayAlerts = False Application.Quit Else ThisWorkbook.Close SaveChanges:=False End If End Sub 以上、よろしくお願い致します。
- ベストアンサー
- Visual Basic
- アプリケーションも閉じたいのですが
ブック（ファイル）だけじゃなくて アプリケーションも閉じたいのですが Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close SaveChanges:=True End Sub としたのですが、実際閉じるのはブックだけでアプリケーションは開いたままです。 「ウインドウを閉じる」を押して、ブックだけが閉じるのはわかるのですが 図のようにアプリケーション閉じるボタンを押してもウインドウ（ブック）しか閉じません。 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close SaveChanges:=True Application.Quit End Sub にしても結果は同じです。 しかし、Workbook_BeforeCloseイベントがないファイルなら、 アプリケーション閉じるボタンを押しても全て終了できます。 Workbook_BeforeCloseイベントを使っても アプリケーションも閉じる方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- Excel VBAで別のブックからユーザーフォームの閉じる
Excel VBAで別のブックからユーザーフォームの閉じたいのですが うまくいきません。 教えてください。 Private Sub CommandButton2_Click() Application.Visible = False Unload Workbook.("材料リスクマップ検索Ver2.xls")UserForm3・・・・※ Workbooks.Close userform3:=ThisWorkbook.Path & "あああ.xls" Workbooks("\いいい.xls").Close savechanges:=False UserForm1.Show vbModeless End Sub ※印のところが赤字にかわります。 コマンドボタン２は、いいい.xlsにあり、フォームを閉じたいのはあああ.xlsのUserform3です。 その後、ファイル名いいい.xlsは閉じます。 コードが間違っているかと思いますが、どんな風にすればよいかわかりません。初歩的なこととは思いますがよろしくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- excel vba 選択されたセルの範囲を別のセル
excel vba 選択されたセルの範囲を別のセルに書き込みたい。 お世話になっております。 乱筆乱文お許し下さい。 EXCEL VBAについてですが、或るブックを閉じる時（Private Sub Workbook_BeforeClose(Cancel As Boolean)）にその時点でACTIVEなsheetの名前を指定シートの指定セルに書き込み、そのブックを開く時（Private Sub Workbook_Open()）に指定シートの指定セルの値の名前sheetをACTIVEにすることは出来たのですが、もう一歩進んで、 ブックを閉じる時（Private Sub Workbook_BeforeClose(Cancel As Boolean)）にその時点でselectされているcellの範囲（単一セル・複数セル共に、名前がついていたら名前、ついていなければrangeを表す文字列）を指定シートの指定セルに書き込み、そのブックを開く時（Private Sub Workbook_Open()）に指定シートの指定セルの値の名前cell範囲をselectするようなことがやりたいのですが、私の検索の仕方が下手で、なかなか出てきません。どなたかご教示下さい。よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- vba ブックを変更しないで閉じたい
ブックを開き、 Sub Macro2() Application.DisplayAlerts = False 'セルをいじる処理（A1に「あ」を入れるなど） '・・・ Windows("ブック1.xls").Activate ActiveWorkbook.Close SaveChanges:=False End Sub を実行すると変更があっても何も表示されないで閉じるはずですが とあるブックのみ、 「'ブック1'を保存しますか？」 はい いいえ キャンセル が出ます。 同じコードをブックに対して行なっているのに、実行できる場合と出来ない場合があるのでしょうか？
- ベストアンサー
- オフィス系ソフト
- VBAの更なる応用編
度々すみません。 VBAで教えて下さい。 主ファイルYYYY.xlsmに下記の記述をしました。 副ファイルXXXX.xlsmがあります。 ------------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Workbooks("XXXX.xlsm").Close End Sub Private Sub Workbook_Open() Workbooks.Open Filename:= _ "XXXX.xlsm" Worksheets("Sheet1").Activate End Sub ------------------------------------------------- 以上で、YYYY.xlsmとXXXX.xlsmの場合、主、副の共に保存せずに 終了するにはどのようなコメントを追記したら良いですか。 ネットで調べた下記の内容は場所が悪いのか動作しませんでした。 Sub CloseWorkbook() Workbooks("XXXX").Close SaveChanges:= False End Sub
- ベストアンサー
- その他MS Office製品
- エクセルVBAにて保存するとき
Private Sub Workbook_BeforeClose(Cancel As Boolean) If MsgBox("エクセルを終了してもよろしいですか？", vbYesNo) = vbNo Then Cancel = True Exit Sub End If Application.DisplayAlerts = False Application.Quit End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "そのボタンでは保存できません。" & vbCrLf & _ "雛形は残しておきましょう" & vbCrLf & _ "" & vbCrLf & _ "ツールバーの「マクロなし出力」から保存できます。" Cancel = True End Sub という二つのマクロをThisworkbookにいれてあるんですが、 この二つを有効（今は2つ目を'でコメント状態にしてあるので保存可）にすると保存できなくて困っています。 二つを有効にした時はどのようにほぞんすればいいですか？
- 締切済み
- Visual Basic
- EXCEL2007でワークブックのクローズ処理
教えてください。 EXCEL2003形式ファイルのVBAに、 Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Close SaveChanges:=False End Sub を記述してファイルを保存します。(作成は、EXCEL2003で保存します。) (仮にBook1.xlsとします。) このファイル(Book1.xls)をEXCEL2007で開きます。 このとき、別のファイル(仮にBook2.xlsとします。形式は、EXCEL2003です)をEXCEL2007で開きます。 で、Book1.xlsを×ボタンで終了すると、 EXCEL2007が異常終了します。 環境依存でしょうか？ PCの環境に、EXCEL2003とEXCEL2007が混在しています。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございます。 ご提示いただいた内容でバッチリでした。 読み取り専用ブックだった場合は 「読み取り専用です。別名で保存してください。」 のメッセージを表示させて Cancel = True Exit Sub で終わるようにしました。