z Event relié à la protection d'une feuille ou classeur
2 réponses
James Wong
Bonjour a vous,
Est-ce qu'il y a un Event disponible lorsque la
protection est enlevee et reactivee sur une feuille ou un
classeur? Le but de mon questionnement est que je dois
faire afficher le texte dans la cellule J6 par
exemple "Protection activee" si la protection est active,
sinon pas active. Cela bien sur doit etre en temps reel.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour James,
Dans le module feuille où l'action se déroule, tu pourrais utiliser quelque chose comme ceci :
'--------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet If .ProtectContents = True Then .Unprotect .Range("G5") = "Feuille protégée" .Protect Else Range("G5") = "" End If End With End Sub '---------------------
Salutations!
"James Wong" a écrit dans le message de news:287a01c49b10$81df17c0$ Bonjour a vous,
Est-ce qu'il y a un Event disponible lorsque la protection est enlevee et reactivee sur une feuille ou un classeur? Le but de mon questionnement est que je dois faire afficher le texte dans la cellule J6 par exemple "Protection activee" si la protection est active, sinon pas active. Cela bien sur doit etre en temps reel.
Merci a l'avance! James
Bonjour James,
Dans le module feuille où l'action se déroule, tu pourrais utiliser quelque chose comme ceci :
'---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
If .ProtectContents = True Then
.Unprotect
.Range("G5") = "Feuille protégée"
.Protect
Else
Range("G5") = ""
End If
End With
End Sub
'---------------------
Salutations!
"James Wong" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:287a01c49b10$81df17c0$a501280a@phx.gbl...
Bonjour a vous,
Est-ce qu'il y a un Event disponible lorsque la
protection est enlevee et reactivee sur une feuille ou un
classeur? Le but de mon questionnement est que je dois
faire afficher le texte dans la cellule J6 par
exemple "Protection activee" si la protection est active,
sinon pas active. Cela bien sur doit etre en temps reel.
Dans le module feuille où l'action se déroule, tu pourrais utiliser quelque chose comme ceci :
'--------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet If .ProtectContents = True Then .Unprotect .Range("G5") = "Feuille protégée" .Protect Else Range("G5") = "" End If End With End Sub '---------------------
Salutations!
"James Wong" a écrit dans le message de news:287a01c49b10$81df17c0$ Bonjour a vous,
Est-ce qu'il y a un Event disponible lorsque la protection est enlevee et reactivee sur une feuille ou un classeur? Le but de mon questionnement est que je dois faire afficher le texte dans la cellule J6 par exemple "Protection activee" si la protection est active, sinon pas active. Cela bien sur doit etre en temps reel.
Merci a l'avance! James
Xav
Bonjour James Wong
Voici un petit bout de code à mettre dans le code de la feuille concernée
En revanche, il faut nécessairement changer la sélection (ie cliquer sur une autre cellule) pour l'activer. C'est peut être un début
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectContents = True Then
@+ Xav "James Wong" a écrit dans le message de news:287a01c49b10$81df17c0$
Bonjour a vous,
Est-ce qu'il y a un Event disponible lorsque la protection est enlevee et reactivee sur une feuille ou un classeur? Le but de mon questionnement est que je dois faire afficher le texte dans la cellule J6 par exemple "Protection activee" si la protection est active, sinon pas active. Cela bien sur doit etre en temps reel.
Merci a l'avance! James
Bonjour James Wong
Voici un petit bout de code à mettre dans le code de la feuille concernée
En revanche, il faut nécessairement changer la sélection (ie cliquer sur une
autre cellule) pour l'activer. C'est peut être un début
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.ProtectContents = True Then
@+
Xav
"James Wong" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:287a01c49b10$81df17c0$a501280a@phx.gbl...
Bonjour a vous,
Est-ce qu'il y a un Event disponible lorsque la
protection est enlevee et reactivee sur une feuille ou un
classeur? Le but de mon questionnement est que je dois
faire afficher le texte dans la cellule J6 par
exemple "Protection activee" si la protection est active,
sinon pas active. Cela bien sur doit etre en temps reel.
@+ Xav "James Wong" a écrit dans le message de news:287a01c49b10$81df17c0$
Bonjour a vous,
Est-ce qu'il y a un Event disponible lorsque la protection est enlevee et reactivee sur une feuille ou un classeur? Le but de mon questionnement est que je dois faire afficher le texte dans la cellule J6 par exemple "Protection activee" si la protection est active, sinon pas active. Cela bien sur doit etre en temps reel.
