Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel vba - protection de feuille et macro événementielle

vba - protection de feuille et macro événementielle

4 réponses
Avatar
j-pascal
Bonsoir,

Que faut-il "cocher" dans les options de Protection de Feuilles pour
qu'un clic sur le cellule [e2] (ie) puisse lancer cette procédure tout
en préservant la protection de la cellule (verrouillée) ?

'-----
(Private Sub Worksheet_SelectionChange(ByVal Target As Range))

If Not Application.Intersect(Target, [e2]) Is Nothing Then
Range(MaPlage).Sort Key1:=[e3]
'-----

Merci pour vos lumières,

JP
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
MVI
Bonsoir
Pour moi, je déprotège juste avant une procédure sur une feuille protégée et
je reprotège tout de suite après :

If Not Application.Intersect(Target, [e2]) Is Nothing Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range(MaPlage).Sort Key1:=[e3]
ActiveSheet.Unprotect
End if ....
J'espère que cela te conviendra

"j-pascal" a écrit dans le message de
news:
Bonsoir,

Que faut-il "cocher" dans les options de Protection de Feuilles pour qu'un
clic sur le cellule [e2] (ie) puisse lancer cette procédure tout en
préservant la protection de la cellule (verrouillée) ?

'-----
(Private Sub Worksheet_SelectionChange(ByVal Target As Range))

If Not Application.Intersect(Target, [e2]) Is Nothing Then
Range(MaPlage).Sort Key1:=[e3]
'-----

Merci pour vos lumières,

JP




Avatar
j-pascal
Bonsoir,

Je crois lire le contraire dans ta présente procédure, mais peut-être
suis-je fatigué. Quoiqu'il en soit, je pense que ton conseil est
judicieux et je crois que je vais l'adopter.

Merci

JP

Bonsoir
Pour moi, je déprotège juste avant une procédure sur une feuille protégée et
je reprotège tout de suite après :

If Not Application.Intersect(Target, [e2]) Is Nothing Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range(MaPlage).Sort Key1:=[e3]
ActiveSheet.Unprotect
End if ....
J'espère que cela te conviendra

"j-pascal" a écrit dans le message de
news:
Bonsoir,

Que faut-il "cocher" dans les options de Protection de Feuilles pour qu'un
clic sur le cellule [e2] (ie) puisse lancer cette procédure tout en
préservant la protection de la cellule (verrouillée) ?

'-----
(Private Sub Worksheet_SelectionChange(ByVal Target As Range))

If Not Application.Intersect(Target, [e2]) Is Nothing Then
Range(MaPlage).Sort Key1:=[e3]
'-----

Merci pour vos lumières,

JP






Avatar
MVI
Effectivement, j'ai inversé : c'est

If Not Application.Intersect(Target, [e2]) Is Nothing Then
ActiveSheet.Unprotect
Range(MaPlage).Sort Key1:=[e3]
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End if ....
Bonne nuit

"j-pascal" a écrit dans le message de
news:
Bonsoir,

Je crois lire le contraire dans ta présente procédure, mais peut-être
suis-je fatigué. Quoiqu'il en soit, je pense que ton conseil est judicieux
et je crois que je vais l'adopter.

Merci

JP

Bonsoir
Pour moi, je déprotège juste avant une procédure sur une feuille protégée
et je reprotège tout de suite après :

If Not Application.Intersect(Target, [e2]) Is Nothing Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range(MaPlage).Sort Key1:=[e3]
ActiveSheet.Unprotect
End if ....
J'espère que cela te conviendra

"j-pascal" a écrit dans le message de
news:
Bonsoir,

Que faut-il "cocher" dans les options de Protection de Feuilles pour
qu'un clic sur le cellule [e2] (ie) puisse lancer cette procédure tout
en préservant la protection de la cellule (verrouillée) ?

'-----
(Private Sub Worksheet_SelectionChange(ByVal Target As Range))

If Not Application.Intersect(Target, [e2]) Is Nothing Then
Range(MaPlage).Sort Key1:=[e3]
'-----

Merci pour vos lumières,

JP










Avatar
j-pascal
... Pas grave ;-)

Merci,

Bonne journée !

JP

Effectivement, j'ai inversé : c'est

If Not Application.Intersect(Target, [e2]) Is Nothing Then
ActiveSheet.Unprotect
Range(MaPlage).Sort Key1:=[e3]
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End if ....
Bonne nuit

"j-pascal" a écrit dans le message de
news:
Bonsoir,

Je crois lire le contraire dans ta présente procédure, mais peut-être
suis-je fatigué. Quoiqu'il en soit, je pense que ton conseil est judicieux
et je crois que je vais l'adopter.

Merci

JP

Bonsoir
Pour moi, je déprotège juste avant une procédure sur une feuille protégée
et je reprotège tout de suite après :

If Not Application.Intersect(Target, [e2]) Is Nothing Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range(MaPlage).Sort Key1:=[e3]
ActiveSheet.Unprotect
End if ....
J'espère que cela te conviendra

"j-pascal" a écrit dans le message de
news:
Bonsoir,

Que faut-il "cocher" dans les options de Protection de Feuilles pour
qu'un clic sur le cellule [e2] (ie) puisse lancer cette procédure tout en
préservant la protection de la cellule (verrouillée) ?

'-----
(Private Sub Worksheet_SelectionChange(ByVal Target As Range))

If Not Application.Intersect(Target, [e2]) Is Nothing Then
Range(MaPlage).Sort Key1:=[e3]
'-----

Merci pour vos lumières,

JP