VBA データ代入時静かに代入したい

Question

お世話になります。
ネットワーク上にデータベースがあり、名簿の情報を代入するボタンを作成しました。
値は代入されるのですが、データベースのExcelがちらっと開き、完了するまでに幾度となくメッセージが出てきます。
メッセージ1
「このブックには安全ではない可能性のある外部ソースへのリンクが１つ以上含まれています。・・・」
更新するで進むと
メッセージ2
「ブック内の一部のリンクはすぐに更新できません。・・・」
が表示され、続行　で進むと
またメッセージ1が表示され、名簿の挿入人- リスト数分、何度も表示されます。

目的は静かに代入したいのです。
ボタンに書かれているコードは下記の通りです。
どなたか解決方法を教えていただけないでしょうか。
よろしくお願いいたします。

Private Sub CommandButton2_Click()
'作業員名を代入
Dim i As Long, i_max As Long
Dim m As Long
m = 18
Application.ScreenUpdating = False
UserForm2.Show vbModeless
UserForm2.Repaint
i_max = Sheets("リスト").Cells(Rows.Count, 5).End(xlUp).Row

For i = 2 To i_max

If Sheets("リスト").Cells(i, 5) <> "" Then
Sheets("作業員名簿_全建統一5号").Cells(m, 3).Value = Sheets("リスト").Cells(i, 5).Value
m = m + 6
End If
  

Next
Application.ScreenUpdating = True

Unload UserForm2

MsgBox "作業員名の代入が完了しました。"

End Sub

Answer 1

提示されたソース以外にOpenしている処理があると思います。
そこで外部参照設定「UpdateLinks」を使うとリンク更新確認が表示されなくなります。
xlBook.Open FileName:="C:\a.xls" UpdateLinks:=0

Comments

[haru1107]

ThisWorkbook　で書いてるのですが。。。

略
SetFile = "\\192.168.・・・.・・・\share\〇〇〇\《 01書類》\会社.xlsm" 'マスターデータファイルの取り込み場所をセット（取り込み先）
略

Set wbSaki = Workbooks.Open(Filename:=SetFile, ReadOnly:=True, UpdateLinks:=0) '開いたマスターブック名とセット（取り込み先）

[enii]

UpdateLinksを設定してもまだメッセージが出るということでしょうか？
だとしたら別のOpenが問題なのだと思いますが...

上記の部分をデバッグモードで止めて、SetFileのパスを確認してみてください。
そのファイルを手動で開いでもリンクエラーになりますか？

Answer 2

Application.DisplayAlerts のことでしょうか。

Application.DisplayAlerts = False

' この間のアラートが表示されません。

Application.DisplayAlerts = True

Comments

[haru1107]

試してみましたが、状況は変わりませんでした。