Boa noite!!

Tente...

Sub CloseBook()
       Application.DisplayAlerts = False
       'Seu Código
       Application.DisplayAlerts = True
   End Sub

Mas se há links ou configuração pra dados externos, leia:
http://office.microsoft.com/pt-br/excel ... 65176.aspx
http://office.microsoft.com/pt-br/excel ... 05611.aspx
Att

Eu tinha colocado na abertura esse mesmo código, no Private Sub Workbook_Open(), mas não deu certo.
Acredito que tenha que ser de outra forma, pois se trata de uma conexão de dados.

Boa noite!!

Há conexões existentes que devam permanecer no arquivo? caso contrário elimine conexão existente do arquivo. (Vá em Dados ->Conexões existentes).

Att

Editado:
Leia:
http://www.exceltip.com/general-topics- ... excel.html
http://answers.microsoft.com/en-us/mac/ ... 29b76a1e5d

Att

A principio a dica do Alexandre deveria dar certo, precisa verificar se está colocando na linha certa a desativação da mensagem.
Apesar de esta Propriedade servir para suprimir solicitações e mensagens de alertas enquanto uma macro está em execução; quando uma mensagem exige uma resposta, então ela assume a opção Padrão que é "True", mas neste seu caso não temos opção a escolher, somente a confirmação em "OK", então não tenho certeza se ela funcionaria para suprimir a mensagem.

Tambem podemos captar antes de dar continuidade a rotina de atualização o estado da conexão com a internet, para isto utilize as rotinas abaixo, ela verifica se está com o sem conexão com a internet :

Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwFlags As Long, ByVal dwReserved As Long) As Long

Public Function VerificaInternet() As Long
'By JPaulo ® Maximo Access
Dim strResultado As Long
VerificaInternet = InternetGetConnectedState(strResultado, 0)
End Function


Sub TestaConexaoInternet()

    Call VerificaInternet
    
    If VerificaInternet = 1 Then
        MsgBox "Conectado na Internet"
        
    ElseIf VerificaInternet = 0 Then
        MsgBox "Desconectado da Internet"
    End If

End Sub

[]s

Alexandre, sim, existem conexões que devem permanecer.
Deve-se colocar esse código em "Esta pasta de trabalho" correto? Testei mas não deu certo....

Mauro, o problema é que são conexões de dados, portanto não tem um código para colocar dentro da dica do Alexandre.
São 6 conexões, que geram 6 mensagens toda vez que abre a planilha sem internet, dai acaba incomodando bastante.

Estou pesquisando mas não encontrei uma solução...

Esta por enquanto eu passo, não utilizo este recurso, vamos aguardar alguem que utilize e tenha passado por situação parecida.

[]s

Segue um exemplo da mensagem que quero desativar (ocultar, suprir)... É só abrir a planilha em anexo sem acesso a internet, off-line. Ainda não conseguir desativar ela.

Na Aba desenvolvedor acesse a opção Segurança de macro, vá até a gria, Locais de confiança defina uma "pasta" como local de confiança para gravar esta e outras planilhas com que você esteja trabalhando. Após isso, a mensagem não deve mais aparecer. Ao menos aqui comigo deu certo.

Não se refere a macro. Não tinha falado, mas para testar tem que deixar ativado os macros e o conteúdo externo, desconectar da internet e abrir o arquivo sem internet. Essa mensagem de que não foi possível encontrar o servidor é a que eu quero ocultar... Conforme imagem que postei acima....

Vacilei, no arquivo que tinha anexado não tinha colocado para atualizar os dados externos quando abrir o arquivo, agora está ok, dando a mensagem que preciso ocultar....

Bom, consegui resolver. Bem fácil para quem sabe, quem não sabe corre atrás.
Eu tinha setado todas conexões de dados para atualizarem ao abrir a planilha, desativei tudo e coloquei para atualizar tudo via código (se soubesse tinha feito antes), dai ficou assim:
Application.DisplayAlerts = False
ActiveWorkbook.RefreshAll
Application.DisplayAlerts = True
Como sou iniciante fiquei quebrando a cabeça para fazer algo tão simples, mas agora está perfeito. Vivendo e aprendendo.
Obrigado a todos que ajudaram....