Excel VBA 質問スレッド №1355 (解決済)

VBAから共有サーバー上の容量の大きいExcelファイルを開く時に表示されるダウンロード表示を非表示にしたい。

投稿者 : non     投稿日時 : 2023/04/07(Fri) 07:58:30     OS : Windows 11     EXCEL : Excel 2019
VBAから共有サーバー上の容量の大きいExcelファイルを開く時に表示されるダウンロード表示を非表示にする、またはキャンセルボタンを押させない方法はありますでしょうか?
Workbooks.Open Filename:=ファイルパス, UpdateLinks:=False, ReadOnly:=True
で開いています。
藁にもすがる思いでWorkbooks.Openの前に以下のコードを追加してもダメでした。
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayStatusBar = False

開く対象(容量の大きいExcelファイル)側をxlsmにしてOpenイベントに下記コードをいれたり、呼び出し側のxlsmファイルに
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
End Sub
を入れたり手当たり次第にいれてみましたが解決せず。

何か良い手段はないでしょうか?
ご教授いただけると幸いです。

スポンサーリンク
[返信 1] Re : VBAから共有サーバー上の容量の大きいExcelファイルを開く時に表示されるダウンロード表示を非表示にしたい。
投稿者 : non     投稿日時 : 2023/04/17(Mon) 12:07:09
調査の結果、Windows側の処理問題の可能性が高いです。そのため、VBAからの対応は困難なようでした。
ダウンロード表示(ステータスバー)が表示される今回の原因はファイルサイズかシート数辺りが原因のような気がしています。
ファイルサイズは70MB、シート数は51シート有り、試しに半分にしてみたら表示されなくなりました。
エクセルのセキュリティ設定(共有サーバーを信頼出来る場所にする)等で解決出来るかもしれませんが、この対応は出来たとしても
反映出来ないので詳しくは調べていません。

当掲示板について
  • Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
  • 記事内ではHTMLのタグは使用できません。
  • 記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
  • Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
  • Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。
スポンサーリンク
返信入力フォーム
お 名 前  :
内  容   :

ステータス  :

認証コード  : キャプチャ画像 




( 処理日時 : 2026-04-03 05:42:34 )
タイトルとURLをコピーしました