VBA : Proteger tout sauf liens

[Océane-33]

Bonjour à Tous,

je souhaiterai verrouiller en VBA ma feuille ,objet , scénarios... on doit juste pouvoir
cliquer sur les liens , mon code ne marche pas ..
merci pour votre aide !!

Private Sub Workbook_Activate()
ActiveWindow.WindowState = xlMaximized
On Error Resume Next
Range("A1").Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
'essai désactiver l accès aux liens
AllowInsertingHyperlinks = False
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

 

[Océane-33]

j ai trouvé !!
Contents:=False
Mais maintenant à l ouverture du lien , une vidéo , je voudrais supprimer le message de windows, et
mon DisplayAlert.True ne marche pas..

 

[cathodique]

Bonsoir Océane-33

ça serait plutôt
Application.DisplayAlerts = True

Bonne soirée

 

[Océane-33]

merci pour ta réponse !
Pour empêcher le message d office , j ai trouvé ça !!
Options / Centre de gestion de la confidentialité / [Paramètres du centre de gestion de la confidentialité] / Emplacements approuvés
Faire "Ajouter un emplacement approuvé", ajouter l'emplacement de votre fichier média.
Enregistrer le classeur.

Et voilà, plus de message d'alerte!
Merci !!