Notifications
Clear all

Retirar Alerta de Atualização e Vínculos

5 Posts
3 Usuários
0 Reactions
2,646 Visualizações
(@victor-marassi)
Posts: 81
Trusted Member
Topic starter
 

Pessoal,

Como posso retirar o alerta de ATUALIZAÇÃO de VÍNCULOS sendo que a resposta para atualização é sempre SIM?

Att.

 
Postado : 06/12/2012 8:16 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Victor,

Bom Dia!

Basta você inserir a linha de código abaixo, dentro do evento Workbook_Open:

 Application.DisplayAlerts = False

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 06/12/2012 8:38 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Outra forma, quanto aos links

Private Sub Workbook_Open() 
    ThisWorkbook.UpdateLinks = xlUpdateLinksNever 
End Sub 

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/12/2012 8:49 am
(@victor-marassi)
Posts: 81
Trusted Member
Topic starter
 

Alexandre,

UpdateLinksNever nunca atualiza os dados ou sempre atualiza quando abre? Eu preciso que ele atualize os dados com os links das outras planilhas.

 
Postado : 06/12/2012 8:56 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Neste caso a opção dada pelo mestre Wagner Morel, é mais indicada!

Veja mais em:
http://www.java2s.com/Code/VBA-Excel-Ac ... rmacro.htm
http://www.exceltip.com/st/Turn_off_war ... l/413.html
Veja também
Fonte:
http://www.ozgrid.com/VBA/update-links.htm

Sub OpenUpdate()
    Workbooks.Open FileNmae:= _
        "C:Meus DocumentosMeuArquivo.xls", UpdateLinks:=xlUpdateLinksAlways
End Sub

Sub OpenDontUpdate()
 Workbooks.Open FileNmae:= _
       "C:Meus DocumentosMeuArquivo.xls", UpdateLinks:=xlUpdateLinksNever
End Sub



Sub OpenUpdateLinksPerSettings()
    Workbooks.Open FileNmae:= _
        "C:Meus DocumentosMeuArquivo.xls", UpdateLinks:=xlUpdateLinksUserSetting
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/12/2012 9:02 am