Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Quelqu'un à une idée - blocage de contenue de cellule

Quelqu'un à une idée - blocage de contenue de cellule

17 réponses
Avatar
Jo-Julie
Bonjour

Merci pour les réponses à une précédente question.

Pour ce qui est des procédures de protection et déprotection... Je connais
très bien et je m'en sert déjà... Sauf que je dois permettre aux utilisateurs
d'enlever la protection de facon ponctuel afin qu'ils puissent faire quelques
changement spécifiques à leurs projets etc...

Par contre j'ai une cellule sur chaque feuille de mon classeur... que je ne
veux pas qu'elles soient touché ""jamais""... Cette cellule contients des
informations de droits... Alors je sais très bien qu'elles peuvent être
effacées si la protection de la feuille est enlevée... Je n'ai
malheureusement pas le choix de permettre cette déprotection occasionnelle.

Mon projet circule dans plusieurs agences et je veux garder le controle de
cette fameuses cellule... :)

merci infiniment à toi

Julie
Signaler un problème avec ce contenu

7 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
1 2
Avatar
LSteph
sans aller jusque là, relativiser précisément:
et comme je te le suggère cf.le post du 06/08

a+

lSteph

"Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de
news: %
Et oui lSteph!!!

C'est ce que je disais à Julie ce matin.


Ceci dit, elle ne lutte pas contre la Bande à Bonnot du Hack!! Alors il
faut savoir,
et choisir le juste milieu. Ou ne rien faire et laisser n'importe quel
trouduc lui
casser les... pieds, ou convoquer la CIA, la DST et le M6! (Ne pas oublier
le MOSSAD,
ils ont des relations). Non! Il faut adapter le problème à sa mesure
réelle.

"LSteph" a écrit dans le message de news:

| Bonsoir Yvan,
| Trop simple
| il suffit de désactiver les macros!
|




Avatar
Yvan
Yes!

Excuses moi. Je n'avais pas tout lu, ou plutot tout retenu!
On ne va pas non plus réinventer la poudre.

Salut!

Yvan

Dis-nous, Julie - Qu'est ce que tu penses de tout çà?





"LSteph" a écrit dans le message de news:

|
| sans aller jusque là, relativiser précisément:
| et comme je te le suggère cf.le post du 06/08
|
| a+
|
| lSteph
|
|
Avatar
Jo-Julie
Bonjour à tous...

Hé bien bon... je vois que vous avez mis beaucoup d'énergie à solutionner
mon problème et je vous en remercie infiniement...

Comme Yvan le disait... Je ne veux pas déjouer le FBI ou des super pirate...
seulement protéger une cellule qui contient des droits de propriété :))))

Ce que vous m'avez proposé avec la proc évenement Worksheet_SelectionChange
me convient parfaitement... C'est exactement ce que je cherchais et cela
suffit amplement pour déjouer mes utilsasateurs que ne savent, pour la
plupart, même pas comment faire des macro avec excel!!!

Je vous remercie tous infiniement et j'en profite pour remercie encore et
encore ceux qui m'ont souvent aider avec mes multiples bogues...

Je ne suis qu'une pauvre autodidacte du VBA bien débutante encore...

Merci encore et encore

Julie


Yes!

Excuses moi. Je n'avais pas tout lu, ou plutot tout retenu!
On ne va pas non plus réinventer la poudre.

Salut!

Yvan

Dis-nous, Julie - Qu'est ce que tu penses de tout çà?





"LSteph" a écrit dans le message de news:

|
| sans aller jusque là, relativiser précisément:
| et comme je te le suggère cf.le post du 06/08
|
| a+
|
| lSteph
|
|





Avatar
LSteph
Bonjour,
On aimerait t'aider plus et tes remerciements vont droit au coeur.
Toutefois et là je ne répèterais plus: cette solution selection_Change ,
comme je te l'avais dit le 06/08, ne fonctionne plus dès que l'utilisateur
insère une ligne ou une colonne
qui déplace la cellule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, Cells(3, 2))
If Not iSect Is Nothing Then [a1].Select
End Sub



Il faudrait remplacer ici Cells(3,2) par un nom défini dans la feuille
Range("maplage")
ainsi en conservant son nom lors d'une insertion la cellule se déplacera en
restant ainsi
celle ciblée par le code.
Mais cela ne fait que déplacer le pb puisqu'il suffira alors au premier venu
tout juste
intéressé par ce qu'il y a dans les menus de changer ou supprimer cette
définition pour que
cela ne fonctionne plus, non plus. Alors, il n'y a même pas besoin de
désactiver les macros.

Amicalement.

A+
lSteph





"Jo-Julie" a écrit dans le message de
news:
Bonjour à tous...

Hé bien bon... je vois que vous avez mis beaucoup d'énergie à solutionner
mon problème et je vous en remercie infiniement...

Comme Yvan le disait... Je ne veux pas déjouer le FBI ou des super
pirate...
seulement protéger une cellule qui contient des droits de propriété :))))

Ce que vous m'avez proposé avec la proc évenement
Worksheet_SelectionChange
me convient parfaitement... C'est exactement ce que je cherchais et cela
suffit amplement pour déjouer mes utilsasateurs que ne savent, pour la
plupart, même pas comment faire des macro avec excel!!!

Je vous remercie tous infiniement et j'en profite pour remercie encore et
encore ceux qui m'ont souvent aider avec mes multiples bogues...

Je ne suis qu'une pauvre autodidacte du VBA bien débutante encore...

Merci encore et encore

Julie


Yes!

Excuses moi. Je n'avais pas tout lu, ou plutot tout retenu!
On ne va pas non plus réinventer la poudre.

Salut!

Yvan

Dis-nous, Julie - Qu'est ce que tu penses de tout çà?





"LSteph" a écrit dans le message de news:

|
| sans aller jusque là, relativiser précisément:
| et comme je te le suggère cf.le post du 06/08
|
| a+
|
| lSteph
|
|







Avatar
Yvan
Toutà fait d'accord.

On dira:

Lu et approuvé!

A plus

Yvan

"LSteph" a écrit dans le message de news:
%
| Bonjour,
| On aimerait t'aider plus et tes remerciements vont droit au coeur.
| Toutefois et là je ne répèterais plus: cette solution selection_Change ,
| comme je te l'avais dit le 06/08, ne fonctionne plus dès que l'utilisateur
| insère une ligne ou une colonne
| qui déplace la cellule.
|
| >>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
| >>Dim iSect As Range
| >>Set iSect = Intersect(Target, Cells(3, 2))
| >>If Not iSect Is Nothing Then [a1].Select
| >>End Sub
|
| Il faudrait remplacer ici Cells(3,2) par un nom défini dans la feuille
| Range("maplage")
| ainsi en conservant son nom lors d'une insertion la cellule se déplacera en
| restant ainsi
| celle ciblée par le code.
| Mais cela ne fait que déplacer le pb puisqu'il suffira alors au premier venu
| tout juste
| intéressé par ce qu'il y a dans les menus de changer ou supprimer cette
| définition pour que
| cela ne fonctionne plus, non plus. Alors, il n'y a même pas besoin de
| désactiver les macros.
|
| Amicalement.
|
| A+
| lSteph
|
|
|
|
|
| "Jo-Julie" a écrit dans le message de
| news:
| > Bonjour à tous...
| >
| > Hé bien bon... je vois que vous avez mis beaucoup d'énergie à solutionner
| > mon problème et je vous en remercie infiniement...
| >
| > Comme Yvan le disait... Je ne veux pas déjouer le FBI ou des super
| > pirate...
| > seulement protéger une cellule qui contient des droits de propriété :))))
| >
| > Ce que vous m'avez proposé avec la proc évenement
| > Worksheet_SelectionChange
| > me convient parfaitement... C'est exactement ce que je cherchais et cela
| > suffit amplement pour déjouer mes utilsasateurs que ne savent, pour la
| > plupart, même pas comment faire des macro avec excel!!!
| >
| > Je vous remercie tous infiniement et j'en profite pour remercie encore et
| > encore ceux qui m'ont souvent aider avec mes multiples bogues...
| >
| > Je ne suis qu'une pauvre autodidacte du VBA bien débutante encore...
| >
| > Merci encore et encore
| >
| > Julie
| >
| >
| >> Yes!
| >>
| >> Excuses moi. Je n'avais pas tout lu, ou plutot tout retenu!
| >> On ne va pas non plus réinventer la poudre.
| >>
| >> Salut!
| >>
| >> Yvan
| >>
| >> Dis-nous, Julie - Qu'est ce que tu penses de tout çà?
| >>
| >>
| >>
| >>
| >>
| >> "LSteph" a écrit dans le message de news:
| >>
| >> |
| >> | sans aller jusque là, relativiser précisément:
| >> | et comme je te le suggère cf.le post du 06/08
| >> |
| >> | a+
| >> |
| >> | lSteph
| >> |
| >> |
| >>
| >>
| >>
|
|
Avatar
Jo-Julie
Bonjour LSteph...

Excusez mon retard à comprendre... peut-être ai-je eu trop d'information en
même temps... Mais j'arrive enfin au terminus... me voilà!

Effectivement je comprend ce que tu veux dire (enfin!!!) et tu as
entièrement raison... Mes utilisateurs ont accès à une macro pour ajouter des
lignes... ce qui... je le constate après tes multiples explications... ne
règle pas mon problème...

J'ai donc bien lu ta solution.... que j'ai essayé d'appliquer....

Cependant... petite question... hé oui encore une question :)...

Pour nommer ma cellule... (ex de "maplage" que tu me donnes)... dois-je
faire aller dans le menu insertion, définir nom etc... J'ai essayé et cela ne
fonctionne pas... je dois sûrement oublier un petit quelque chose
d'important...

Aurais-tu encore un peu de patience pour me guider?

Merci beaucoup.... encore!

Julie


Bonjour,
On aimerait t'aider plus et tes remerciements vont droit au coeur.
Toutefois et là je ne répèterais plus: cette solution selection_Change ,
comme je te l'avais dit le 06/08, ne fonctionne plus dès que l'utilisateur
insère une ligne ou une colonne
qui déplace la cellule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, Cells(3, 2))
If Not iSect Is Nothing Then [a1].Select
End Sub



Il faudrait remplacer ici Cells(3,2) par un nom défini dans la feuille
Range("maplage")
ainsi en conservant son nom lors d'une insertion la cellule se déplacera en
restant ainsi
celle ciblée par le code.
Mais cela ne fait que déplacer le pb puisqu'il suffira alors au premier venu
tout juste
intéressé par ce qu'il y a dans les menus de changer ou supprimer cette
définition pour que
cela ne fonctionne plus, non plus. Alors, il n'y a même pas besoin de
désactiver les macros.

Amicalement.

A+
lSteph





"Jo-Julie" a écrit dans le message de
news:
Bonjour à tous...

Hé bien bon... je vois que vous avez mis beaucoup d'énergie à solutionner
mon problème et je vous en remercie infiniement...

Comme Yvan le disait... Je ne veux pas déjouer le FBI ou des super
pirate...
seulement protéger une cellule qui contient des droits de propriété :))))

Ce que vous m'avez proposé avec la proc évenement
Worksheet_SelectionChange
me convient parfaitement... C'est exactement ce que je cherchais et cela
suffit amplement pour déjouer mes utilsasateurs que ne savent, pour la
plupart, même pas comment faire des macro avec excel!!!

Je vous remercie tous infiniement et j'en profite pour remercie encore et
encore ceux qui m'ont souvent aider avec mes multiples bogues...

Je ne suis qu'une pauvre autodidacte du VBA bien débutante encore...

Merci encore et encore

Julie


Yes!

Excuses moi. Je n'avais pas tout lu, ou plutot tout retenu!
On ne va pas non plus réinventer la poudre.

Salut!

Yvan

Dis-nous, Julie - Qu'est ce que tu penses de tout çà?





"LSteph" a écrit dans le message de news:

|
| sans aller jusque là, relativiser précisément:
| et comme je te le suggère cf.le post du 06/08
|
| a+
|
| lSteph
|
|












Avatar
LSteph
Bonjour,

Tu en a lu un peu plus mais pas tout :
Mais cela ne fait que déplacer le pb puisqu'il suffira alors au premier
venu
intéressé par ce qu'il y a dans les menus de changer ou supprimer cette
définition pour que cela ne fonctionne plus, non plus.



Pour le principe, si tu insistes
Oui, tu sélectionne la cellule à préserver et Définir un nom ex ici :
mplg
réfère à þuil1!$B$2
puis ce code dans le module de la feuille

'***
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("mplg")) Is Nothing Then [a1].Select

End Sub
'***


lSteph


"Jo-Julie" a écrit dans le message de
news:
Bonjour LSteph...

Excusez mon retard à comprendre... peut-être ai-je eu trop d'information
en
même temps... Mais j'arrive enfin au terminus... me voilà!

Effectivement je comprend ce que tu veux dire (enfin!!!) et tu as
entièrement raison... Mes utilisateurs ont accès à une macro pour ajouter
des
lignes... ce qui... je le constate après tes multiples explications... ne
règle pas mon problème...

J'ai donc bien lu ta solution.... que j'ai essayé d'appliquer....

Cependant... petite question... hé oui encore une question :)...

Pour nommer ma cellule... (ex de "maplage" que tu me donnes)... dois-je
faire aller dans le menu insertion, définir nom etc... J'ai essayé et cela
ne
fonctionne pas... je dois sûrement oublier un petit quelque chose
d'important...

Aurais-tu encore un peu de patience pour me guider?

Merci beaucoup.... encore!

Julie


Bonjour,
On aimerait t'aider plus et tes remerciements vont droit au coeur.
Toutefois et là je ne répèterais plus: cette solution selection_Change ,
comme je te l'avais dit le 06/08, ne fonctionne plus dès que
l'utilisateur
insère une ligne ou une colonne
qui déplace la cellule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, Cells(3, 2))
If Not iSect Is Nothing Then [a1].Select
End Sub



Il faudrait remplacer ici Cells(3,2) par un nom défini dans la feuille
Range("maplage")
ainsi en conservant son nom lors d'une insertion la cellule se déplacera
en
restant ainsi
celle ciblée par le code.
Mais cela ne fait que déplacer le pb puisqu'il suffira alors au premier
venu
tout juste
intéressé par ce qu'il y a dans les menus de changer ou supprimer cette
définition pour que
cela ne fonctionne plus, non plus. Alors, il n'y a même pas besoin de
désactiver les macros.

Amicalement.

A+
lSteph





"Jo-Julie" a écrit dans le message de
news:
Bonjour à tous...

Hé bien bon... je vois que vous avez mis beaucoup d'énergie à
solutionner
mon problème et je vous en remercie infiniement...

Comme Yvan le disait... Je ne veux pas déjouer le FBI ou des super
pirate...
seulement protéger une cellule qui contient des droits de propriété
:))))

Ce que vous m'avez proposé avec la proc évenement
Worksheet_SelectionChange
me convient parfaitement... C'est exactement ce que je cherchais et
cela
suffit amplement pour déjouer mes utilsasateurs que ne savent, pour la
plupart, même pas comment faire des macro avec excel!!!

Je vous remercie tous infiniement et j'en profite pour remercie encore
et
encore ceux qui m'ont souvent aider avec mes multiples bogues...

Je ne suis qu'une pauvre autodidacte du VBA bien débutante encore...

Merci encore et encore

Julie


Yes!

Excuses moi. Je n'avais pas tout lu, ou plutot tout retenu!
On ne va pas non plus réinventer la poudre.

Salut!

Yvan

Dis-nous, Julie - Qu'est ce que tu penses de tout çà?





"LSteph" a écrit dans le message de news:

|
| sans aller jusque là, relativiser précisément:
| et comme je te le suggère cf.le post du 06/08
|
| a+
|
| lSteph
|
|














1 2