XL 2010 Liens hypertexte

tchi456 · 28 Février 2022

Bonjour,

J'ai ce code qui fonctionne très bien pour pouvoir mettre en majuscule les cellules de la colonne A.
Malheureusement la possibilité de créer des liens hypertextes se désactive après reverrouillage de la feuille.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="."
Set Target = Intersect(Target, Range("A:A"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target
If Application.IsText(Target) Then Target = UCase(Target)
Next
Application.EnableEvents = True
ActiveSheet.Protect Password:="."
End Sub

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry

tchi456 · 28 Février 2022

Je viens de trouver:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="."
Set Target = Intersect(Target, Range("A:A"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target
If Application.IsText(Target) Then Target = UCase(Target)
Next
Application.EnableEvents = True
ActiveSheet.Protect AllowInsertingHyperlinks:=True, Password:="."
End Sub

tchi456 · 28 Février 2022

Je viens de trouver:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="."
Set Target = Intersect(Target, Range("A:A"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target
If Application.IsText(Target) Then Target = UCase(Target)
Next
Application.EnableEvents = True
ActiveSheet.Protect AllowInsertingHyperlinks:=True, Password:="."
End Sub

XL 2010 Liens hypertexte

tchi456

XLDnaute Occasionnel

tchi456

tchi456

XLDnaute Occasionnel

Discussions similaires