[[20240209115944]]　『複数のExcelファイルで1つだけ保存に時間がかかる』（らんきち）　ページの最後に飛ぶ

『複数のExcelファイルで1つだけ保存に時間がかかる』（らんきち）

 職場のパソコンで通常3つのExcelファイルを開いたまま作業をしています。
 2つは時間や対応している案件を管理しているもので簡単な数式が入っているだけ、1つだけごく簡単なVBAが組み込まれています。
 そのVBAつきのファイルだけが、先日から上書き保存に時間がかかるようになりました。
 特にそのタイミングでファイルの内容を変更したことはなく、思い当たることと言えば職場で共有しているかなり重いExcelファイルを開いて閉じた後だったと思います。
 VBAつきファイルのサイズは161KB、他のファイルはそれより大きくても保存に時間がかかることはありません。
 システムアップデートはされていますが、職場がフリーアドレスで日によって座る席が違うため毎日同じPCを使うわけではありません（OSのバージョンは同じです）。
 VBAつきファイルに別の名前を付けて保存してみたところ、今度は毎回マクロを有効にするかどうかの確認メッセージが出るようになりました（保存は時間がかかるままです）。
 これはファイルが破損しているのでしょうか。
 VBAは常時実行しているわけではなく、日に3～4回コマンドボタンを押すと簡単なダイアログを出すものを実行しているだけです。
 Googleで検索しましたが特定のファイルのみ重くなる症状が見つかりませんでした。
 何か改善方法があればお教えください。

＜使用アプリ：LTSC MSO16、使用 OS：Windows10 ＞

＞何か改善方法があればお教えください。

新規のブックにマクロとデータをコピーする。

（できるだけおかしなもの？はコピーしないようにする）

ネットワークドライブに保存しているとか、PCのドライブに保存しているかも考えてみましょう。
（ゆたか） 2024/02/09(金) 13:07:19

 ゆたか様、ありがとうございます。
 新規のブックを作成して試してみたところ、VBAがあると遅くなるようです。
 VBAを削除するとすぐに保存できました。
 ただ、このVBAはかなり前からこのブックにつけており、以前はすぐに保存できていたので突然遅くなった原因は謎です。
 ファイルはネットワーク上に保存されています。
 フリーアドレスでPCのドライブに保存できないためネットワークに保存するようになっています。
 ちなみにVBAは下記のコードのみです。

 Private Sub CommandButton1_Click()
   Dim LR As Long, n As Long

     With Worksheets("Sheet2")
        LR = .Cells(Rows.Count, "A").End(xlUp).Row
        n = Application.RandBetween(2, LR)
        MsgBox .Cells(n, "A").Value, , "メッセージ"
    End With

 End Sub

（らんきち） 2024/02/09(金) 14:28:50

＞ちなみにVBAは下記のコードのみです。

もちろん、これが原因ではないと思いますが。。。
試しに、このコードだけを記入して保存したところ、
ファイルサイズは24KB、ローカルドライブに１秒で保存されました。
Excel2019です。

＞フリーアドレスでPCのドライブに保存できないためネットワークに保存するようになっています。

フリーアドレスで云々はわかりませんが、ローカルドライブには保存できないということですね。

何かをテストするには比較が必要です。
ネットワークでなくローカルではどうか？とかですね。
ローカルで問題なければネットワークの問題か？ってなりますし。
あるいは他のファイルであればネットワークでも十分速いのか？とかですね。

ローカルでUSBドライブに保存とかできないですか？
いろいろとやってみるしかないと思いますが。

＞LTSC MSO16

たぶん、Excel2016と同じかな。

この辺りも参考にしてください。

https://pclecture.com/wpbbs/2022/05/29/excelheavy/

https://www.palette-tech.com/excel%E3%82%92%E9%96%8B%E3%81%8F%E3%81%AE%E3%81%AB%E6%99%82%E9%96%93%E3%81%8C%E3%81%8B%E3%81%8B%E3%82%8B/

https://learn.microsoft.com/ja-jp/office/troubleshoot/performance/office-slow-or-stop-responding

（ゆたか） 2024/02/09(金) 14:59:07

 ゆたか様
 再度のご回答ありがとうございます。
 USBは会社の許可がなければ持ち込み禁止なのでデスクトップに保存してみましたが、やはり保存に時間がかかりました。
 教えていただいたリンクも参照しながら、できる範囲で色々試しましたが原因がよくわかりませんでした。
 （新規ブックにVBAのみ入れて保存しても時間がかかったので、VBAがあると遅くなる何かがあるのかも…。他のファイルは拡張子がxlsxで問題のファイルのみxlsmです）
 とりあえず保存できないことはないので、しばらく様子を見てみます。
 ありがとうございました。
（らんきち） 2024/02/10(土) 07:13:07

 追記です。
 試しにセルに文字を入力するだけの簡単なマクロを新規ブックに作って保存してみたところ、やはり保存に時間がかかりました。
 マクロの内容に関わらず、マクロがあれば時間がかかるようです。
 私は会社のシステムについて詳しくないのですが、もしかしたらセキュリティソフトなどが影響しているのかもしれません。
（らんきち） 2024/02/10(土) 09:49:23

こちらに似た事例があり、この場合はプロキシが関係していたっぽいですね。
ただし、マクロ付きxlsファイルとあります。

https://answers.microsoft.com/ja-jp/msoffice/forum/all/excel2019/21f0fb85-af35-482f-8901-f7d6396674d6

こちらでは、Defenderが関係していたようで、Defenderの除外リストにExcelを追加して回避できたとあります。MSO16とありますし、これが近いかも知れません。

https://superuser.com/questions/1396683/why-does-windows-defender-slow-my-excel-file-saving-even-if-the-xlsm-file-type

Defenderを一旦停止して保存時間に変化があるかどうかを確認してはどうでしょうか？

この辺りにやり方が載っています。
https://support.microsoft.com/ja-jp/windows/windows-%E3%82%BB%E3%82%AD%E3%83%A5%E3%83%AA%E3%83%86%E3%82%A3%E3%81%AB%E3%82%88%E3%82%8B%E4%BF%9D%E8%AD%B7%E3%82%92%E5%88%A9%E7%94%A8%E3%81%97%E3%81%BE%E3%81%99-2ae0363d-0ada-c064-8b56-6a39afb6a963

「リアルタイム保護を一時的に無効にする」かな。
（ゆたか） 2024/02/12(月) 01:10:31

コメント返信：

[ 一覧(最新更新順) ]

[[20240209115944]] 『複数のExcelファイルで1つだけ保存に時間がかかる』（らんきち） ページの最後に飛ぶ

[[20240209115944]]　『複数のExcelファイルで1つだけ保存に時間がかかる』（らんきち）　ページの最後に飛ぶ