Discussion :

[Guy7700]

Bonjour,

Je mets en place un répertoire "fournisseurs" reprenant, par année, le nombre de documents par fournisseur. C'est une macro qui va compter les fichiers et m'indiquer le nombre dans une cellule. Pour ça, tout fonctionne.

Toutefois, ce classeur étant destiné à différents utilisateurs, je souhaite le verrouiller intégralement afin qu'ils puissent le consulter UNIQUEMENT. Ca, dans l'absolu, je peux le faire.

Néanmoins, lorsque je pratique de la sorte, les liens hypertextes ne sont plus cliquables. Pour votre info, ce lien affiche le contenu du dossier d'un fournisseur présent sur un serveur partagé.

Existe-t-il une astuce afin de tout verrouiller et laisser la possibilité à un utilisateur de cliquer sur les liens présents ?

D'avance, merci pour le temps que vous prendrez pour me lire et, qui sait, me répondre !

De plus, si ce sujet avait déjà été abordé sur le forum, je vous prierais de bien vouloir m'excuser d'ouvrir un nouveau fil y relatif.

Excelement vôtre

[Jean-Philippe André]

Salut,
pour qu'un lien soit cliquable, en principe il faut que l'utilisateur puisse sélectionner les cellules verrouillées.

[unparia]

Bonjour
Une astuce parmi d'autres :
Ne pas verrouiller la sélection et envoyer l'utilisateur se "promener" dans une autre cellule sans importance, genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 Application.Goto Range("A1")
End Sub

De cette manière, les liens seront exécutés au clic, mais l'utilisateur sera "promené" ailleurs.

[eriiic]

Bonjour,

ou bien tu l'enregistres avec mot de passe pour la modification (menu 'outils / options générales...') de la boite Enregistrer sous...
eric

[Guy7700]

Bonjour,

Merci à vous 3 pour vos réponses. Je vais tester cela dans la journée

[Guy7700]

La solution d'unparia fonctionne très bien, c'est très astucieux et "amusant"

Merci à tous !!

Bonjour
Une astuce parmi d'autres :
Ne pas verrouiller la sélection et envoyer l'utilisateur se "promener" dans une autre cellule sans importance, genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 Application.Goto Range("A1")
End Sub

De cette manière, les liens seront exécutés au clic, mais l'utilisateur sera "promené" ailleurs.