Éteignez Msg pour mettre à Jour les Liens de feuille de calcul Excel à l'Ouverture

J'ai un classeur que j'aimerais ouvrir et ne pas avoir demander de mettre à jour les liens, (message exact est :

"Ce classeur contient des liens vers d'autres sources de données. Si vous mettez à jour les liens, Excel tente de récupérer les données les plus récentes. Si vous odon pas mettre à jour les liens, Excel utilise les informations précédentes. Notez que les liaisons de données peuvent être utilisés pour accéder et de partager des informations confidentielles sans votre autorisation et, éventuellement, d'accomplir d'autres actes nuisibles. Ne pas mettre à jour les liens si vous ne faites pas confiance à la source de ce classeur." )

Ce que je voudrais faire est d'ouvrir le classeur en cliquant sur le fichier dans Internet Explorer et avoir les liens de mise à jour, mais ne pas demander à l'utilisateur de cliquer sur le bouton mettre à jour.

J'ai essayé le code suivant dans l'Événement Open pour le carnet de travail avec la réussite:

 Private Sub Workbook_Open()
     Application.DisplayAlerts = False
     Application.ScreenUpdating = False
 End Sub

J'ai aussi essayé les lignes de code suivantes dans le ci-dessus Sub:

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.FullName, Type:=xlExcelLinks
Application.ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.FullName, Type:=xlExcelLinks
Application.ActiveWorkbook.UpdateLink
Workbooks.Open ActiveWorkbook, UpdateLinks:=True
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks

La version de MS Excel 2010 et l'enregistrement d'un .fichier xls pour le bien de ceux avec d'anciennes versions.

Votre aide serait très appréciée. Merci d'avance pour votre aide.

Respectueusement,

Robert

OriginalL'auteur user2320821 | 2014-04-18

  1. 11

    Juste au cas où cela pourrait aider quelqu'un dans le futur ce qui suit est ce que j'ai fait:

    Private Sub Workbook_Activate()
   Application.AskToUpdateLinks = False

End Sub

    Ce qui a empêché la mise à Jour des Liens de la boîte de message d'apparaître lorsque le fichier est ouvert.

    Robert

    OriginalL'auteur user2320821

  2. 3

    Juste pour ajouter de Robert (@user2320821) réponse -

    J'ai dû modifier le code pour:

    Sub Workbook_Open()
   Application.DisplayAlerts = False
   Application.AskToUpdateLinks = False
   Application.DisplayAlerts = True
End Sub

    Les principales différences étant que

    1) C'est un sub Workbook_Open au lieu d'un Workbook_Activate sous. L'Activer sub n'a pas été la suppression de la mise à Jour de demande de Lien.

    2) j'ai dû le jeter dans un DisplayAlerts drapeau de la bascule pour supprimer un deuxième avertissement concernant les liens n'étant pas mis à jour, même après la première mise à Jour demande de Lien a été supprimé.

    Dans le cas où il n'était pas évident dans la réponse de Robert, ce sous a travaillé quand je l'ai mis dans l'objet ThisWorkbook.

    OriginalL'auteur ma_YYC

  3. 0

    Je suis en utilisant ce code dans mon vba .xlm fichier..

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

    M Office2013

    OriginalL'auteur fixform