No.2ベストアンサー
- 回答日時:
No.1の方の回答にもあるように、マクロで対応するしかないかと思います。
(その上で、「Ctrl+Shift+S」等のショートカットキーを割り当てるか、
ツールバーにユーザーボタンを追加して、そのマクロの動作を割り当て、と)
以下、サンプルを作ってみましたので、参考まで。
(個人用マクロブックに標準モジュールを追加の上、以下を貼付)
'~~~~~~~~~~~~~以下を貼付~~~~~~~~~~~~~
Option Explicit
Public Sub SaveBooks()
'エラー発生時は「エラー処理」の行に飛ばす
On Error GoTo エラー処理
'変数の宣言
Dim Xls As Excel.Application, Wkb As Excel.Workbook, Rsl As Variant
If MsgBox("全てのブックを保存します。", vbOKCancel, "確認") = vbCancel Then GoTo 終了処理
'ActiveWorkBookが所属するExcelアプリケーションを、一括保存の対象にする
'(Excel展開済みの状態で、Windowsのスタートメニュー等から新たにExcelアプリケーションを
' 起動していた場合、ActiveWorkbookが所属しない方は、保存の対象から外れます)
Set Xls = ActiveWorkbook.Application
'配下の全てのブックを、それぞれの状況に合わせて保存
For Each Wkb In Xls.Workbooks
'現在のファイル名を確認(未保存時はNullとなるので、「& ""」で空文字に変換)
strPath = Wkb.Path & ""
'状況を確認
If Len(strPath) Then '【既存ファイル時】
'上書保存
Wkb.Save
'念のため別のファイルとして保存するならこちらを有効に
'(拡張子の「.」を、「現在時刻&.」(「:」は全角)に変換)
'Wkb.SaveAs Replace(strPath, ".", Format(Time(), "hh:nn:ss") & ".")
ElseIf Wkb.Saved Then '【新規ファイルで変更なし】
'何もせず放置
Else '【新規ファイルで変更あり】
'「ファイルの保存」ダイアログを表示して、ファイル名を確認
Rsl = Xls.GetSaveAsFilename(Date$, "Excelワークブック(*.xls),*.xls")
If Rsl = False Then '【ダイアログでキャンセル選択時】
'何もせず放置
Else '【名前を指定した場合】
'指定した名前で保存
Wkb.SaveAs Rsl
End If
End If
Next
MsgBox "処理を終了しました。", , "確認"
終了処理:
'念のためメモリを明示的に解放
Set Wkb = Nothing
Set Xls = Nothing
Exit Sub
エラー処理:
'エラー発生時はメッセージを表示して終了
MsgBox Err & ":" & Err.Description
Resume 終了処理
End Sub
'~~~~~~~~~~~~~以上を貼付~~~~~~~~~~~~~
上記モジュールを保存後、ExcelでAlt+F8などで『マクロ』ダイアログを表示させ、
保存したマクロ(「Personal.xls!SaveBooks」)を選択し、『オプション(O)』ボタンを
クリックすると、ショートカットキーを割り当てることができます。
(前述のように「Ctrl+Shift+S」にするなら、ショートカットキー欄にカーソルを
移動させた状態で、Shift+Sを同時に押せば、「Ctrl+□」の表示が自動で
「Ctrl+Shift+『S』」と切り替わって入力されます)
No.1
- 回答日時:
エクセルにが限ったことではありませんが、基本的にアクティブなファイル以外のファイルから、他のファイルを上書き保存するような機能は用意されていません。
どうしても、すべてのファイルを上書き保存したいなら、マクロを利用することになると思います。
ちなみにExcel2003までは、上書き保存すると、元のデータに戻せないので(上書きしてしまって困ることがよくある)、まとめて上書きするような操作は絶対避けるべきだと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) マクロの保存先、開いてるすべてのブックの意味 エクセルを開き、表示→マクロ→マクロの表示と順番に開く 3 2022/06/25 17:52
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/09 12:17
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 12:00
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルを上書き保存したのに...
-
エクセル文書を保存したらメモ...
-
マクロ VBA ファイル名を連番...
-
メール添付されているファイル...
-
いきなりPDFでPDFファイルを開...
-
エクセルでVBAを使用して1分毎...
-
開いてるファイル(エクセル等)...
-
OneDriveに保存したファイルは...
-
エクセル・マクロ(VBA)で、指定...
-
エクセルで保存の前に固まって...
-
Excelの読み取り専用について質...
-
csvファイルを上書き保存でカン...
-
エクセル表のCSV化ができない
-
「変更を保存しますか?」と聞...
-
エクセルの共有ファイルで、保...
-
マクロVBA特定フォルダーに次々...
-
Excel 2003の保存アイコンが消...
-
Excelで上書き保存時の確認をは...
-
メールソフト「サンダーバード...
-
エクセル 更新していないのに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを上書き保存したのに...
-
Excel画面の自動更新 Excelファ...
-
エクセル文書を保存したらメモ...
-
いきなりPDFでPDFファイルを開...
-
メール添付されているファイル...
-
エクセルでCSVファイルとして保...
-
エクセルでVBAを使用して1分毎...
-
ピボットテーブルの更新ができない
-
マクロ VBA ファイル名を連番...
-
開いてるファイル(エクセル等)...
-
OneDriveに保存したファイルは...
-
Illustratorファイルに読み取り...
-
エクセル・マクロ(VBA)で、指定...
-
「名前を付けて保存」ができな...
-
エクセルで作った書類の作成者...
-
エクセル表のCSV化ができない
-
セルの塗りつぶしの色を好きな...
-
「変更を保存しますか?」と聞...
-
エクセルがwindows終了時に未保...
-
エクセルで保存の前に固まって...
おすすめ情報