VBA : Proteger tout sauf liens

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