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
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
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