'AFFICHE LE TEXTE "INFO" EN CLIQUANT SUR L'IMAGE ET RETABLIT LE NOM DE L'ONGLET AU CLIC DANS LA PAGE
Const MDP = "****" '<--- Mot de passe à renseigner
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Protected = ActiveSheet.ProtectContents
If Not Target.Address = Range("d4").MergeArea.Address Then
If Protected Then ActiveSheet.Unprotect MDP
Range("d4").NumberFormat = ";;;"
If Protected Then ActiveSheet.Protect MDP
End If
If ActiveSheet.Name <> "Rapport" Then
ActiveSheet.Name = "Rapport"
End If
End Sub
Sub afficheTxt()
Dim Protected As Boolean
Protected = ActiveSheet.ProtectContents
'Macro à affecter à l'image avec le clic droit
If Protected Then...