スキルアップ・問題解決なら、モーグにおまかせ！

1.毎営業日、1ブック1シートで集計表（データベース）を作っています。
この集計表にはオートフィルタを適用しており、オートフィルタでの抽出等に関するプロシージャを作成し、当該シート上に設けたマクロボタン（フォームコントロール）に割り当てています。
2.翌営業日は、1.のブックをコピーし集計表に入力します。
3.毎営業日ごとにこれを繰り返し、当月分を翌月初めに合計集計します。
 
4.当然、毎営業日同じ形式のシートですので、集計用新規ブックに当月分のすべてのブック内のシートをコピーしてきて、串刺し計算シートにて当月分の合計集計をします。
 
4.の作業はマクロで自動化していますが、ここで、問題が発生しました。
 
毎営業日のシートコピー及び串刺し計算シートが出来上がり、保存したファイルを再度開くと、
「このブックには、安全ではない可能性のある外部ソースへのリンクが1つ以上含まれています。リンクを信頼できる場合、リンクを更新して最新データを取り込みます。信頼できない場合は、データをそのまま手元で処理してかまいません。」が表示されます。
 
集計用新規ブック内の各シートには、1.のとおりマクロボタンがあり、この各シートのマクロボタンを押すと、コピー前の毎営業日の元ブックを開いてプロシージャが実行されます。
外部へのリンクは、各シートに設けたマクロボタンに割り当てたプロシージャ以外ありませんでした。
 
上記外部リンクのエラーは、いったん「更新しない」にした後、「リンクの編集」でメッセージを出さないようにすることは可能ですが、そもそもプロシージャの記述の方法でこれを回避するような手法はあるでしょうか。

これはエラーではなくアラームです。
 
おそらく、セルに入力してある数式の中で、外部ブックを参照しているものと思います。
 
そのあたりを説明して頂くと、対応策がでるかもしれません。

初めに
状況を整理し、質問事項を書き出してみました。
 
１．ブックとシートの関係
(1)営業日別に1ブック、1シート
　　このブックは、入力作業用ですか？
　　つまり、集計表に複写した後、翌営業日棟として使用する・・・ということすか？
(2)集計用ブックには、営業日用のシートを複写する。
　複写の方法は、シート毎複写する・・・・計算式が入っていると、集計用ブックとしては
　　(1)のブックへの外部参照となる可能性がたかい。
　
　　翌月用の集計用ブックは、いつどのように作成するのですか？
 
 

たっくんプードル さんの引用:
1.毎営業日、1ブック1シートで集計表（データベース）を作っています。
この集計表にはオートフィルタを適用しており、オートフィルタでの抽出等に関するプロシージャを作成し、当該シート上に設けたマクロボタン（フォームコントロール）に割り当てています。
〜（中略）〜
4.当然、毎営業日同じ形式のシートですので、集計用新規ブックに当月分のすべてのブック内のシートをコピーしてきて、串刺し計算シートにて当月分の合計集計をします。

そうか・・・・マクロがありましたね・・・・
 
集計用ブックに複写をマクロの中でやっているのですか？
もし、そのマクロの中に、集計用ブックに複写後、マクロ起動用ボタンを削除するとよいでしょう。

WinArrow さんの引用:
これはエラーではなくアラームです。
 
おそらく、セルに入力してある数式の中で、外部ブックを参照しているものと思います。

WinArrow さんの引用:
１．ブックとシートの関係
(1)営業日別に1ブック、1シート
　　このブックは、入力作業用ですか？
　　つまり、集計表に複写した後、翌営業日棟として使用する・・・ということすか？
(2)集計用ブックには、営業日用のシートを複写する。
　複写の方法は、シート毎複写する・・・・計算式が入っていると、集計用ブックとしては
　　(1)のブックへの外部参照となる可能性がたかい。
　
　　翌月用の集計用ブックは、いつどのように作成するのですか？
 
 

higejee さんの引用:

ということは集計用新規ブックにコピーされたすべての営業日別シートには同じマクロボタンがあるということ。ただし登録されているマクロは各営業日のブック（つまり外部ソース）のものだから、ワーニングが出て当然です。
 
　新規ブックに集計した時点でマクロボタン自体が不要であれば、全シートのマクロボタンを削除してから保存すればよいかと。

たっくんプードル さんの引用:
複写してきたシートには、もともとのマクロボタンがそのままあるのは、おっしゃるとおりです。また、マクロ自体が元ブックに依存しているので、ワーニングが出て当然なのも、おっしゃるとおりです。

たっくんプードル さんの引用:
想定される解決法として思いつくのは、
1.日々の毎営業日用シートのマクロボタンに割り当てられたプロシージャを、シートが別ブックにコピーされても影響されないような書き方にする。

要するに、ボタンに登録されたマクロがリンクされている実体ですね？
フォームボタンに登録されたマクロということは、
・それは標準モジュールに書かれたマクロであり、
・それらは全て同一内容のコードであり、
・操作対象シートは（ひとつしかシートはないので）特に指定しておらず、アクティブシートである。
ということですね？
 
そうであれば、
(1)そのマクロをひとつだけ（同一なので）、
   集計用ブック(つまり、自分自身）の標準モジュールに手でコピーしておき、
(2)リンク元を、強制的に自分自身（つまり、集計用ブック）に付け替えてしまえばいいですね。
 
例えば、以下のようなマクロを実行すればよいのでは？

Sub test()
    Dim linksource As Variant
    For Each linksource In ThisWorkbook.LinkSources
        ThisWorkbook.ChangeLink Name:=linksource, _
            NewName:=ThisWorkbook.Name, _
            Type:=xlExcelLinks
    Next
End Sub

私見です。
 
マウロは、
営業日ブック内での処理で、完結していると思います。
 
マクロ起動用ボタンを
別の集計用ブックに複写するということは、
営業日ブックのマクロが実行される可能性を含んでいます。
間違って、そのボタンをクリックすると、（どのブックかわからない状態で）
実行されることを想定しなくてよいのか？
という疑問（懸念）があります。
 

>月締め集計ブックに複写してきた後もボタンは必要なので、消すわけにはいかないのです。
しかし、マクロボタンだけでは、機能しないので、
マクロを月締め集計ブックに取込む（複写or変更）が必要です。
 
なるべく、手間を掛けずに対処する方法を提案します。
 
月締め集計ブックを作成する際、新しいブックを用意するのではなく、
当該月最初の営業日ブックを複写し、ファイル名を変更することです。
そうすれば、マクロも一緒に複写されるし、
プロシジャ名もそのまま使えます。
２番目以降は、いままでシートを複写すればよいです。

＞２番目以降は、いままでシートを複写すればよいです。
 
と、思ったんですが、リンク先を自ブックにはなりませんね？
シート複写をマクロ化して、その中に、リンク先を変更する処理を組み込むしかないようですね？・
 
 

WinArrow さんの引用:
＞２番目以降は、いままでシートを複写すればよいです。
 
と、思ったんですが、リンク先を自ブックにはなりませんね？
シート複写をマクロ化して、その中に、リンク先を変更する処理を組み込むしかないようですね？・
 
 

先日の投稿内容について補足します。
 

たっくんプードル さんの引用:
想定される解決法として思いつくのは、
1.日々の毎営業日用シートのマクロボタンに割り当てられたプロシージャを、シートが別ブックにコピーされても影響されないような書き方にする。
2.月締め集計ブックに複写された後、このブック内に複写された全シート内の外部リンクとなった部分を書き換える。
くらいかな、と想定はするものの具体的にどうプロシージャを記述するかまでは思いつけません・・・

各営業日ブックと集計用ブックの両方に同一マクロが登録される
集計用ブックは、その数が増える可能性があります。
同一マクロが複数のブックに複写されます。
  
しかし、状況変化で、全てのブックのマクロをメンテナンス
というような事態が発生すると大変な労力が必要になります。
  
1つのマクロを複数のブックで共有できると、メンテナンス負荷が激減します。
とはいっても、シートデザインを意識しているマクロの場合は、万全策とは言えません。
  
ということを前提として、
マクロをアドイン化し、コマンドボタンをなくし、クイックアクセスウール、または、リボンに登録しておきます。
勿論、マクロは全部削除しいます。
アドインとして登録する手順は、必要ならば別途説明しますが、
考えてみる価値があるのか？ないのか？
検討してみるとよいでしょう。

higejee さんの引用:

たっくんプードル さんの引用:
想定される解決法として思いつくのは、
1.日々の毎営業日用シートのマクロボタンに割り当てられたプロシージャを、シートが別ブックにコピーされても影響されないような書き方にする。

ということが無意味（というか不可能）だと理解できるかと思います。なぜならボタンマクロ登録されたプロシージャ名には元のブック名がひっついてますから。
　ボタン自体を消したくないなら集計用ブックに同じ処理を行うプロシージャを用意して、OnAction でボタンのマクロ登録を変更すればよいと思います。

simple さんの引用:
要するに、ボタンに登録されたマクロがリンクされている実体ですね？
フォームボタンに登録されたマクロということは、
・それは標準モジュールに書かれたマクロであり、
・それらは全て同一内容のコードであり、
・操作対象シートは（ひとつしかシートはないので）特に指定しておらず、アクティブシートである。
ということですね？
 
そうであれば、
(1)そのマクロをひとつだけ（同一なので）、
   集計用ブック(つまり、自分自身）の標準モジュールに手でコピーしておき、
(2)リンク元を、強制的に自分自身（つまり、集計用ブック）に付け替えてしまえばいいですね。
 
例えば、以下のようなマクロを実行すればよいのでは？

Sub test()
    Dim linksource As Variant
    For Each linksource In ThisWorkbook.LinkSources
        ThisWorkbook.ChangeLink Name:=linksource, _
            NewName:=ThisWorkbook.Name, _
            Type:=xlExcelLinks
    Next
End Sub

# 個人的には、ボタンに登録されたマクロを使う機会が無いような気がしないでもありません。

>シートを複写してきてから、リンク元を付け替える処理を付け加える、という手法がよさそうなのですね。
 
シートを複写しただけでは、用準モジュールに記述したマウロは複写（集計用ブックに取込み）できませんよ！
 
 

WinArrow さんの引用:

代案
元ブックを一時的にシートを1つ増やして、
シート複写ではなく、シート移動にすれば、外部リンクにはなりません。
元ブックは、上書き保存しないで閉じれば、よいでしょう。

質問時の前提に沿った回答をしているわけですから、
少なくともその試行結果はきちんと報告してください。
（コードの意味は、23/09/27 11:21:17 で説明しています。）
 
手順は、既に書いたとおりです。（以下、再掲）
(1)元のブックにあるマクロを、集計用ブックの標準モジュールに手作業でコピーしておきます。
   一つだけで可。
 （コードが自動的にコピーされないのは、シートを移動しようが、コピーしようが同じです。）
(2)集計用ブックの標準モジュールに以下をコピーし、これ(test)を実行してください。

    Sub test()
        Dim linksource As Variant
        For Each linksource In ThisWorkbook.LinkSources
            ThisWorkbook.ChangeLink Name:=linksource, _
                NewName:=ThisWorkbook.Name, _
                Type:=xlExcelLinks
        Next
    End Sub

引用:

・営業日ファイルを開く
・新規シートを1枚増やす
・目的シートを集計用ファイルに移動する
・営業日ファイルを上書き保存せず閉じる
・次の日のファイルを開く・・・・・・・
と書き換えるということでしょうか？

higejee さんの引用:
ボタン自体を消したくないなら集計用ブックに同じ処理を行うプロシージャを用意して、OnAction でボタンのマクロ登録を変更すればよいと思います。

たっくんプードル さんの引用:
・営業日ファイルを開く
・新規シートを1枚増やす
・目的シートを集計用ファイルに移動する
・営業日ファイルを上書き保存せず閉じる
・次の日のファイルを開く・・・・・・・

    Dim wb  As Workbook
    Set wb = Workbooks.Open("C:\Users\aaa\bbb\20230901.xlsm")
    wb.Sheets(1).Copy Before:=ThisWorkbook.Worksheets(1)
    ActiveSheet.Buttons("ボタン 1").OnAction = "マクロ1"
    wb.Close False

皆さん自分のが正しいと主張しているようですけど、色々なやり方があるんですよ。

>4.の作業はマクロで自動化しています
  
上記のコードを掲示してみて貰えますか？
質問者さんが作成したコードを、添削した方が理解しやすいと思います。
 
 

simple さんの引用:
例えば、以下のようなマクロを実行すればよいのでは？

Sub test()
    Dim linksource As Variant
    For Each linksource In ThisWorkbook.LinkSources
        ThisWorkbook.ChangeLink Name:=linksource, _
            NewName:=ThisWorkbook.Name, _
            Type:=xlExcelLinks
    Next
End Sub

higejee さんの引用:
　ボタン自体を消したくないなら集計用ブックに同じ処理を行うプロシージャを用意して、OnAction でボタンのマクロ登録を変更すればよいと思います。

Moko さんの引用:
新規シートを増やさず
シートをコピーしたあとに、そのシートのボタンの「マクロの登録」を続けて 行うのが簡単でしょう。
 
だいたいこんな流れになるでしょう。

    Dim wb  As Workbook
    Set wb = Workbooks.Open("C:\Users\aaa\bbb\20230901.xlsm")
    wb.Sheets(1).Copy Before:=ThisWorkbook.Worksheets(1)
    ActiveSheet.Buttons("ボタン 1").OnAction = "マクロ1"
    wb.Close False

WinArrow さんの引用:

その通りです。
但し、最初に、「新しいブック」を用意するのではなく、
１回だけ「１つの営業日ファイルを開く」を追加することです。
これは、マクロを取込むためのお措置です。
その後、ソートを複写すのではなく、「移動」します。
これ（移動）に伴い「リンク情報」は消えます。
しかし、１つしか存在しないシートは移動できないので、事前に一時的にダミーシートを作成します。
複写元は、は、上書き保存せずに閉じます。
この操作を、４のマクロに組み込みます。