Excel起動時に Ctrl + Break で解決しますか

Question

Excel2019 32ビット

WINDOWS 10pro

困っています。

職場のPCで下記の「シート毎にファイル分割保存する」マクロを実行したところ、応答が停止した状態です。

マクロは個人用で保存しました。現在エクセルは、セーフモードで使用していますが、他のマクロも使えないので困っています。

Sub sheets_save()

For Each シート In Worksheets

If シート.Name <> "macro" Then

シート.Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & シート.Name

ActiveWorkbook.Close

End If

Next シート

End Sub

今になって、フォルダを作っていないことに気が付きました。

1ブック5シート程度のものの動作は、「最近使用したファイル」に分割できたことを確認し、

１ブック100シートの分割に、↑マクロ実行しました。

が、下記のエラーメッセージが出て動作しなくなったため、タスクマネージャで終了しています。

・この操作を完了するにはメモリが不足しています。扱うデータ量を減らすか、

他のアプリケーションを終了してください。

使用できるメモリを増やすには、以下を検討してください。

64ビット版のMicrosoftExcelを使う。

・Excelでアドイン

・・・・・に関する問題が発生しました。この問題が繰り返し発生する場合は、

このアドインを無効にして、更新プログラムがあるかどうか確認してください。

このアドインを今すぐ無効にしますか。

・開いているダイアログボックスがあるため、MicrosoftExcelに切り替えてダイアログを閉じてください。

再度Excel起動を試みるも、毎回100シートを開く動作を繰り返し、↑のエラーメッセージが表示されます。

エラーが出る前に、マクロ停止　Ctrl + Break　で解決できるでしょうか。

職場のPCなので、週明けにしか試せません。

Excelを正常に起動させたいです。

よろしくお願いします。

Answer 1

ありがとうございます！

Answer 2

ありがとうございます。

早速、投稿しなおしました。

Answer 3

こんにちは。
VBA専用のフォーラムが存在するため、下記からご投稿ください。
https://social.msdn.microsoft.com/Forums/ja-JP/...