Pour Michel HOLDERITH

oups, oublié également au niveau Sheet :
Private Sub Worksheet_SelectionChange(ByVal Plage As Range)
LangueEnCours = Workbooks
(ActiveWorkbook.Name).Sheets
("LEsDates").Range("LangueRegion").Value
Select Case LangueEnCours
Case Is = 1
FeuilleEnCours = ActiveSheet.Name
Case Is = 2
FeuilleEnCours = ActiveSheet.Name
End Select
If ActiveSheet.Name = FeuilleEnCours Then
Worksheets(ClasseurEnCours).EnableSelection =
xlUnlockedCells
End If
End Sub

avec ça dès qu'il essaye de sélectionner une cellule,
la macro désactive la séléction

Merci de me donner ton avis

Ciao Joseph

-----Message d'origine-----
Salut,
misère..,
tu as raison au sujet du code dans un autre classeur pour
réactiver la sélection…

C’est clair que la solution idéale est de désactiver tous
les boutons qui permettent
de copier. Mais même dans ce cas, comme tu dis justement,
il y a un parade.

Mon idée est de mettre également une procédure au niveau
workbook :

Private Sub WorkBookActivate
Worksheets("Titi").EnableSelection = xlUnlockedCells
End Sub

De cette façon chaque fois que tu active le classeur, tu
désactive la sélection

Qu’en penses-tu ?

Pour moi le problème est que les utilisateurs ne doivent
pas pouvoir consulter
une partie de données de la feuille. C’est clair que je
peux régler le problème en
déplaçant ces données dans une feuille masquée.
Mais cela compliquerait mon classeur qui l’est déjà
assez,

c’est un classeur pour
l’établissement des budgets et qui fait déjà une taille
de

4Mb.

Par conte je trouve Microsoft un peu léger, comment n’ont-
ils pas pensé
à ce problème ? A quoi sert de protéger des données si tu
peux les copier
dans un autre classeur ?

Ton opinion ?

Ciao et à +

Joseph

.

Salut,
Pas mal mais.... :
(j'ai mis dans book1 ton code, je l'ai fait tourne, et effectivement je ne
peux rien selectionner...)
j'ai construit un fichier a cote avec la macro suivant :
Windows("Book1").Activate
Sheets("Sheet1").Select
Worksheets("Sheet1").EnableSelection = xlNoRestrictions
cela reactive ta page et desactive ta macro.......... :(
J'ai presque finit mon petit fichier excel.... theoriquement pour lundi
j'aurais finit... j'ai l'impression de passer plus de temps sur le
verrouillage de mon projet que la programmation pure.... c'est chiant car tu
test et tu re-test et tu t'appercois qu^'il y a toujours une faille. De plus
j'ai trouve aujourd'hui le moyen pour que l'utilisateur ne puisse pas fermer
le fichier par la petite croix en haut a droite d'excel, ca peut etre
interessant....
J'ai l'impression que microsoft traite l'utilisateur comme un simple
d'esprit et pense que personne n'ai l'esprit mal intentionne.....
Je trouve ca egalement un peu leger.....
@+
Michel.
P.S. : Je reviens lundi pour te dire si j'ai finalement trouve une soluce ou
non....

"JS" <anonymous@discussions.microsoft.com> wrote in message
news:09ad01c39fb6$b7f496b0$a601280a@phx.gbl...
Salut,
misère..,
tu as raison au sujet du code dans un autre classeur pour
réactiver la sélection&#8230;

C&#8217;est clair que la solution idéale est de désactiver tous
les boutons qui permettent
de copier. Mais même dans ce cas, comme tu dis justement,
il y a un parade.

Mon idée est de mettre également une procédure au niveau
workbook :

Private Sub WorkBookActivate
Worksheets("Titi").EnableSelection = xlUnlockedCells
End Sub

De cette façon chaque fois que tu active le classeur, tu
désactive la sélection

Qu&#8217;en penses-tu ?

Pour moi le problème est que les utilisateurs ne doivent
pas pouvoir consulter
une partie de données de la feuille. C&#8217;est clair que je
peux régler le problème en
déplaçant ces données dans une feuille masquée.
Mais cela compliquerait mon classeur qui l&#8217;est déjà assez,
c&#8217;est un classeur pour
l&#8217;établissement des budgets et qui fait déjà une taille de
4Mb.

Par conte je trouve Microsoft un peu léger, comment n&#8217;ont-
ils pas pensé
à ce problème ? A quoi sert de protéger des données si tu
peux les copier
dans un autre classeur ?

Ton opinion ?

Ciao et à +

Joseph

Coucou,
Quand vous aurez fini, vous nous synthétiserez tout ca ? :-)
un petit classeur exemple avec un mode d'emploi pour expliquer comment
se sortir de votre affaire se ferait héberger avec grand plaisir sur
excelabo si le coeur vous en dit ;-).
bon courage !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


le 31/10/2003 15:53:

Salut,
Pas mal mais.... :
(j'ai mis dans book1 ton code, je l'ai fait tourne, et effectivement je ne
peux rien selectionner...)
j'ai construit un fichier a cote avec la macro suivant :
Windows("Book1").Activate
Sheets("Sheet1").Select
Worksheets("Sheet1").EnableSelection = xlNoRestrictions
cela reactive ta page et desactive ta macro.......... :(
J'ai presque finit mon petit fichier excel.... theoriquement pour lundi
j'aurais finit... j'ai l'impression de passer plus de temps sur le
verrouillage de mon projet que la programmation pure.... c'est chiant car tu
test et tu re-test et tu t'appercois qu^'il y a toujours une faille. De plus
j'ai trouve aujourd'hui le moyen pour que l'utilisateur ne puisse pas fermer
le fichier par la petite croix en haut a droite d'excel, ca peut etre
interessant....
J'ai l'impression que microsoft traite l'utilisateur comme un simple
d'esprit et pense que personne n'ai l'esprit mal intentionne.....
Je trouve ca egalement un peu leger.....
@+
Michel.
P.S. : Je reviens lundi pour te dire si j'ai finalement trouve une soluce ou
non....

"JS" <anonymous@discussions.microsoft.com> wrote in message
news:09ad01c39fb6$b7f496b0$a601280a@phx.gbl...
Salut,
misère..,
tu as raison au sujet du code dans un autre classeur pour
réactiver la sélection&#8230;

C&#8217;est clair que la solution idéale est de désactiver tous
les boutons qui permettent
de copier. Mais même dans ce cas, comme tu dis justement,
il y a un parade.

Mon idée est de mettre également une procédure au niveau
workbook :

Private Sub WorkBookActivate
Worksheets("Titi").EnableSelection = xlUnlockedCells
End Sub

De cette façon chaque fois que tu active le classeur, tu
désactive la sélection

Qu&#8217;en penses-tu ?

Pour moi le problème est que les utilisateurs ne doivent
pas pouvoir consulter
une partie de données de la feuille. C&#8217;est clair que je
peux régler le problème en
déplaçant ces données dans une feuille masquée.
Mais cela compliquerait mon classeur qui l&#8217;est déjà assez,
c&#8217;est un classeur pour
l&#8217;établissement des budgets et qui fait déjà une taille de
4Mb.

Par conte je trouve Microsoft un peu léger, comment n&#8217;ont-
ils pas pensé
à ce problème ? A quoi sert de protéger des données si tu
peux les copier
dans un autre classeur ?

Ton opinion ?

Ciao et à +

Joseph

Salut misange,
Merci de tes encouragements.... on en a besoin... :o)
Je ne dois pas etre trop loin de la solution (si il y en a vraiment
une.....) je te dirais ca lundi, je vais plancher ca ce week-end.
@+
Michel.

"Misange" <misange@devinezou.net> wrote in message
news:%23kRdRE8nDHA.744@tk2msftngp13.phx.gbl...

Coucou,
Quand vous aurez fini, vous nous synthétiserez tout ca ? :-)
un petit classeur exemple avec un mode d'emploi pour expliquer comment
se sortir de votre affaire se ferait héberger avec grand plaisir sur
excelabo si le coeur vous en dit ;-).
bon courage !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


le 31/10/2003 15:53:

Salut,
Pas mal mais.... :
(j'ai mis dans book1 ton code, je l'ai fait tourne, et effectivement je
ne

peux rien selectionner...)
j'ai construit un fichier a cote avec la macro suivant :
Windows("Book1").Activate
Sheets("Sheet1").Select
Worksheets("Sheet1").EnableSelection = xlNoRestrictions
cela reactive ta page et desactive ta macro.......... :(
J'ai presque finit mon petit fichier excel.... theoriquement pour lundi
j'aurais finit... j'ai l'impression de passer plus de temps sur le
verrouillage de mon projet que la programmation pure.... c'est chiant
car tu

test et tu re-test et tu t'appercois qu^'il y a toujours une faille. De
plus

j'ai trouve aujourd'hui le moyen pour que l'utilisateur ne puisse pas
fermer

le fichier par la petite croix en haut a droite d'excel, ca peut etre
interessant....
J'ai l'impression que microsoft traite l'utilisateur comme un simple
d'esprit et pense que personne n'ai l'esprit mal intentionne.....
Je trouve ca egalement un peu leger.....
@+
Michel.
P.S. : Je reviens lundi pour te dire si j'ai finalement trouve une
soluce ou

non....

"JS" <anonymous@discussions.microsoft.com> wrote in message
news:09ad01c39fb6$b7f496b0$a601280a@phx.gbl...
Salut,
misère..,
tu as raison au sujet du code dans un autre classeur pour
réactiver la sélection&#8230;

C&#8217;est clair que la solution idéale est de désactiver tous
les boutons qui permettent
de copier. Mais même dans ce cas, comme tu dis justement,
il y a un parade.

Mon idée est de mettre également une procédure au niveau
workbook :

Private Sub WorkBookActivate
Worksheets("Titi").EnableSelection = xlUnlockedCells
End Sub

De cette façon chaque fois que tu active le classeur, tu
désactive la sélection

Qu&#8217;en penses-tu ?

Pour moi le problème est que les utilisateurs ne doivent
pas pouvoir consulter
une partie de données de la feuille. C&#8217;est clair que je
peux régler le problème en
déplaçant ces données dans une feuille masquée.
Mais cela compliquerait mon classeur qui l&#8217;est déjà assez,
c&#8217;est un classeur pour
l&#8217;établissement des budgets et qui fait déjà une taille de
4Mb.

Par conte je trouve Microsoft un peu léger, comment n&#8217;ont-
ils pas pensé
à ce problème ? A quoi sert de protéger des données si tu
peux les copier
dans un autre classeur ?

Ton opinion ?

Ciao et à +

Joseph

Salut,
Je pense que je suis tout bon.... si ca interresse quelqu'un.....
@+
Michel.

"Misange" <misange@devinezou.net> wrote in message
news:%23kRdRE8nDHA.744@tk2msftngp13.phx.gbl...

Coucou,
Quand vous aurez fini, vous nous synthétiserez tout ca ? :-)
un petit classeur exemple avec un mode d'emploi pour expliquer comment
se sortir de votre affaire se ferait héberger avec grand plaisir sur
excelabo si le coeur vous en dit ;-).
bon courage !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


le 31/10/2003 15:53:

Salut,
Pas mal mais.... :
(j'ai mis dans book1 ton code, je l'ai fait tourne, et effectivement je
ne

peux rien selectionner...)
j'ai construit un fichier a cote avec la macro suivant :
Windows("Book1").Activate
Sheets("Sheet1").Select
Worksheets("Sheet1").EnableSelection = xlNoRestrictions
cela reactive ta page et desactive ta macro.......... :(
J'ai presque finit mon petit fichier excel.... theoriquement pour lundi
j'aurais finit... j'ai l'impression de passer plus de temps sur le
verrouillage de mon projet que la programmation pure.... c'est chiant
car tu

test et tu re-test et tu t'appercois qu^'il y a toujours une faille. De
plus

j'ai trouve aujourd'hui le moyen pour que l'utilisateur ne puisse pas
fermer

le fichier par la petite croix en haut a droite d'excel, ca peut etre
interessant....
J'ai l'impression que microsoft traite l'utilisateur comme un simple
d'esprit et pense que personne n'ai l'esprit mal intentionne.....
Je trouve ca egalement un peu leger.....
@+
Michel.
P.S. : Je reviens lundi pour te dire si j'ai finalement trouve une
soluce ou

non....

"JS" <anonymous@discussions.microsoft.com> wrote in message
news:09ad01c39fb6$b7f496b0$a601280a@phx.gbl...
Salut,
misère..,
tu as raison au sujet du code dans un autre classeur pour
réactiver la sélection&#8230;

C&#8217;est clair que la solution idéale est de désactiver tous
les boutons qui permettent
de copier. Mais même dans ce cas, comme tu dis justement,
il y a un parade.

Mon idée est de mettre également une procédure au niveau
workbook :

Private Sub WorkBookActivate
Worksheets("Titi").EnableSelection = xlUnlockedCells
End Sub

De cette façon chaque fois que tu active le classeur, tu
désactive la sélection

Qu&#8217;en penses-tu ?

Pour moi le problème est que les utilisateurs ne doivent
pas pouvoir consulter
une partie de données de la feuille. C&#8217;est clair que je
peux régler le problème en
déplaçant ces données dans une feuille masquée.
Mais cela compliquerait mon classeur qui l&#8217;est déjà assez,
c&#8217;est un classeur pour
l&#8217;établissement des budgets et qui fait déjà une taille de
4Mb.

Par conte je trouve Microsoft un peu léger, comment n&#8217;ont-
ils pas pensé
à ce problème ? A quoi sert de protéger des données si tu
peux les copier
dans un autre classeur ?

Ton opinion ?

Ciao et à +

Joseph

;-)
Je !
merci !
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


le 03/11/2003 13:09:

Salut,
Je pense que je suis tout bon.... si ca interresse quelqu'un.....
@+
Michel.

"Misange" <misange@devinezou.net> wrote in message
news:%23kRdRE8nDHA.744@tk2msftngp13.phx.gbl...

Coucou,
Quand vous aurez fini, vous nous synthétiserez tout ca ? :-)
un petit classeur exemple avec un mode d'emploi pour expliquer comment
se sortir de votre affaire se ferait héberger avec grand plaisir sur
excelabo si le coeur vous en dit ;-).
bon courage !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


le 31/10/2003 15:53:

Salut,
Pas mal mais.... :
(j'ai mis dans book1 ton code, je l'ai fait tourne, et effectivement je

ne

peux rien selectionner...)
j'ai construit un fichier a cote avec la macro suivant :
Windows("Book1").Activate
Sheets("Sheet1").Select
Worksheets("Sheet1").EnableSelection = xlNoRestrictions
cela reactive ta page et desactive ta macro.......... :(
J'ai presque finit mon petit fichier excel.... theoriquement pour lundi
j'aurais finit... j'ai l'impression de passer plus de temps sur le
verrouillage de mon projet que la programmation pure.... c'est chiant

car tu

test et tu re-test et tu t'appercois qu^'il y a toujours une faille. De

plus

j'ai trouve aujourd'hui le moyen pour que l'utilisateur ne puisse pas

fermer

le fichier par la petite croix en haut a droite d'excel, ca peut etre
interessant....
J'ai l'impression que microsoft traite l'utilisateur comme un simple
d'esprit et pense que personne n'ai l'esprit mal intentionne.....
Je trouve ca egalement un peu leger.....
@+
Michel.
P.S. : Je reviens lundi pour te dire si j'ai finalement trouve une

soluce ou

non....

"JS" <anonymous@discussions.microsoft.com> wrote in message
news:09ad01c39fb6$b7f496b0$a601280a@phx.gbl...
Salut,
misère..,
tu as raison au sujet du code dans un autre classeur pour
réactiver la sélection&#8230;

C&#8217;est clair que la solution idéale est de désactiver tous
les boutons qui permettent
de copier. Mais même dans ce cas, comme tu dis justement,
il y a un parade.

Mon idée est de mettre également une procédure au niveau
workbook :

Private Sub WorkBookActivate
Worksheets("Titi").EnableSelection = xlUnlockedCells
End Sub

De cette façon chaque fois que tu active le classeur, tu
désactive la sélection

Qu&#8217;en penses-tu ?

Pour moi le problème est que les utilisateurs ne doivent
pas pouvoir consulter
une partie de données de la feuille. C&#8217;est clair que je
peux régler le problème en
déplaçant ces données dans une feuille masquée.
Mais cela compliquerait mon classeur qui l&#8217;est déjà assez,
c&#8217;est un classeur pour
l&#8217;établissement des budgets et qui fait déjà une taille de
4Mb.

Par conte je trouve Microsoft un peu léger, comment n&#8217;ont-
ils pas pensé
à ce problème ? A quoi sert de protéger des données si tu
peux les copier
dans un autre classeur ?

Ton opinion ?

Ciao et à +

Joseph