ページコンテンツ
アクティブブック以外を閉じる方法
どうもtakaです、今回は【特定のブック以外を閉じる方法】ということで、複数のExcelbookを開いていて特定のbookを開くときにすべて閉じていてほしいというときはありませんか?(普通は無いかもしれませんが)
実際私はあるブックにこのコードを使用しています、それは大事なファイルで誤作動などの原因を少しでも減らしたいからです(;^ω^)
アクティブブック以外を閉じるコード
さてのアクティブブック以外を閉じるコードですが。
今回は【Excelの注意や警告文を非表示にする方法】でご紹介した方法で保存の確認などの警告文を非表示にしています(保存されない)ので使用するときは十分に気を付けてください。
警告を表示したい場合はコード上の【Application.DisplayAlerts = False 】をコメント化するか削除してご利用ください(;´・ω・)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Sub sampl() Application.DisplayAlerts = False '保存の同意を表示しない If Workbooks.Count > 1 Then 'ブックが複数開かれているか判定 MsgBox "このコードが書かれているExcelbook以外のExcelbookを閉じます" For Each myBK In Workbooks If myBK.Name <> ActiveWorkbook.Name Then 'Excelファイル名を判定して現在選択しているbook(ActiveWorkbook)以外の名前のブックを閉じる myBK.Close 'ブックを閉じる End If Next End If Application.DisplayAlerts = True '保存の同意を表示する End Sub |
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63
Helpful info. Fortunate me I found your website by chance, and I’m shocked why this twist of fate did not took place earlier! I bookmarked it. akkcbgbgbccc
Thanks for your comment