Boa tarde !!!

bem.. fiz em dois modos , o embutido... que é o local do arquivo original esta direto no código vba

e o digital.. onde o local do arquivo vc digital em uma celula !!!

CÓDIGO - LOCAL EMBUTIDO

Private Sub Workbook_Open()
Dim originalPath As String
originalPath = "\\Server\servidor\oficialatualizado- Caminho ebutido.xlsm"

' Obtém o caminho completo do arquivo atual
Dim currentFilePath As String
currentFilePath = ThisWorkbook.FullName

' Compara o caminho do arquivo atual com o original
If currentFilePath <> originalPath Then
MsgBox "Informações Desatualizadas !" & " Este parece ser uma CÓPIA do arquivo original." & _
" Recomenda-se abrir o arquivo original em: " & originalPath, vbInformation
Else
MsgBox "Arquivo Original ! Dados Atualizados !", vbInformation
End If
End Sub

CÓDIGO - LOCAL DIGITADO

Private Sub Workbook_Open()
' Obtém o caminho original do arquivo de uma célula
Dim originalPath As String
originalPath = ThisWorkbook.Sheets("caminho").Range("D2").Value ' Ajuste "caminho" para o nome da sua planilha

' Verifica se a célula D2 está vazia
If originalPath = "" Then
MsgBox "A célula D2 está vazia. Por favor, insira o caminho do arquivo original.", vbCritical
Exit Sub
End If

' Verifica se o caminho do arquivo é válido
If Dir(originalPath) = "" Then
MsgBox "O caminho do arquivo na célula D2 na planilha 'Caminho' não é válido. Por favor, corrija.", vbCritical
Exit Sub
End If

' Obtém o caminho completo do arquivo atual
Dim currentFilePath As String
currentFilePath = ThisWorkbook.FullName

' Compara o caminho do arquivo atual com o original
If currentFilePath <> originalPath Then
MsgBox "Informações Desatualizadas !" & " Este parece ser uma CÓPIA do arquivo original." & _
" Recomenda-se abrir o arquivo original em: " & originalPath, vbInformation
Else
MsgBox "Arquivo Original ! Dados Atualizados !", vbInformation
End If
End Sub

Coloquei os avisos para arquivo original e arquivo cópia !!

Em anexo.. dois arquivos exemplos !!