Discussion :

[omarquant]

Bonjour à tous,

J'utilise la macro suivante pour verrouiller toutes les cellules de toutes les feuilles de mon classeur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
' FONCTION D'ACTIVATION DE PROTECTION DES CELLULES
' Cette fonction est appelée à l'ouverture du fichier dans "ThisWorkbook(open)"
 
Sub Active_Protection_Cellule()
 
For I = 1 To Sheets.Count
 
    Sheets(I).Activate
 
    ActiveSheet.Protect Password:="test", DrawingObjects:=True, _
    Contents:=True, Scenarios:=True 
 
Next I
 
Sheets(1).Activate
'MsgBox ("Les feuilles sont désormais protégées par mot de passe")
 
End Sub

Le problème est que suite à l'activation de cette macro, les liens hypertexte ne sont plus utilisables.

Auriez-vous une solution afin que les liens hypertexte puissent encore être utilisables ?

En vous remerciant.
Bonne soirée.

[Theze]

Bonjour,

En déverouillant les cellules ayant un lien hypertexte. Sélectionner les cellules concernées puis "Format de cellule" > onglet "Protection" et décocher la case "Vérouillée"

Toutes les autres cellules seront protégées sauf ces dernières.

Hervé.

[AlainTech]

Bonjour,

Si je peux me permettre une petite modification de ta macro qui la rendra plus stable:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Active_Protection_Cellule()
  ' FONCTION D'ACTIVATION DE PROTECTION DES CELLULES
  ' Cette fonction est appelée à l'ouverture du fichier dans "ThisWorkbook(open)"
 
  Dim wks As Worksheet
  For Each wks In ThisWorkbook.Worksheets
 
    wks.Protect Password:="test", DrawingObjects:=True, _
                Contents:=True, Scenarios:=True
 
  Next wks
 
'MsgBox ("Les feuilles sont désormais protégées par mot de passe")
 
End Sub

[omarquant]

Bonjour Theze,

Je te remercie pour ta réponse, cependant je ne souhaite pas déverrouiller les cellules, car une fois déverrouillées elles sont modifiables. Sous Excel 2003 le fait de verrouiller une cellule n'empêche pas l'utilisation du lien qui la contient, je souhaiterais obtenir le même résultat dans Excel 2007.

Si tu as une idée je suis preneur

Bonne soirée.

Bonjour AlainTech,

Je te remercie pour ton amélioration de code, pourrais-tu m'expliquer si possible en quoi cela rend plus stable la macro, je suis curieux

En te remerciant.

Bonne soirée.

[AlainTech]

Bonjour ou soir,

Quand on utilise des ActiveSheet ou autres Selection, le risque est grand que, si l'utilisateur clique où que ce soit pendant le déroulement de la macro, cela perturbe complètement son comportement.

Il est donc fortement conseillé de toujours travailler avec des instances d'objets comme dans l'exemple que je te donne.

Dans ce cas-ci, la variable wks va pointer vers chacune des feuilles du classeur quoi que fasse l'utilisateur.

[Qwazerty]

Salut
Tu travailles sur Excel 2007, c'est bien ça?
Je ne vois pas ou est ton problème.
J'ai essayé de créer un lien hypertext, manuellement, via du code et via une formule. J'ai ensuite utiliser ton code pour verrouiller la page et tous les type de lien reste actif.
Tu utilises quoi pour faire tes lien? Quel type de lien utilises tu? Externe interne?
++
Qwaz