Copie de cellules protégées sous Excel

Si vous protégez une cellule sous Excel, puis vous masquez
la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci

-----Message d'origine-----
Salut
trouve sur
http://www.excelabo.net/xl/protection.php#desactiverraccour

Est-il possible de désactiver tous les raccourcis
clavier ?

Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub

Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I)
Next I
Next K
End Sub

Ca ne désactive "que" les raccourcis utilisant une touche
alphanumérique.Laurent Longre

ensuite tu peux mettre un evenement du click de droite
Cancel = True

et voila tu ne peux pu rien faire sur ta feuille.
@+
Michel.


"js" wrote in message
news:0abb01c39d48$7f39dad0$
Si vous protégez une cellule sous Excel, puis vous masquez
la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci


.

-----Message d'origine-----
Salut
trouve sur
http://www.excelabo.net/xl/protection.php#desactiverraccour

Est-il possible de désactiver tous les raccourcis
clavier ?

Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub

Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I)
Next I
Next K
End Sub

Ca ne désactive "que" les raccourcis utilisant une touche
alphanumérique.Laurent Longre

ensuite tu peux mettre un evenement du click de droite
Cancel = True

et voila tu ne peux pu rien faire sur ta feuille.
@+
Michel.


"js" wrote in message
news:0abb01c39d48$7f39dad0$
Si vous protégez une cellule sous Excel, puis vous masquez
la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci


.

-----Message d'origine-----
Pour ma part je suis sur un projet similaire et j'ai
affecte un evenement

double click et la ca me deprotege ma feuille et apres
tout changement de ma

feuille via un enter cela me reprotege ma feuille....

wrote in message
news:070601c39df2$7e7a8130$
Je connais déjà une méthode pour ne rien selectionner sur
une feuille :
Sheets(i).EnableSelection = xlNoSelection
Mais le problème est que les utilisateur du
classeur drevront modifier une partie des
cellules visibles et non protégées.
En clair dans les colonnes masquées j'ai des données
qu'ils

ne doivant pas pouvoir consulter.
Malheuresement ces colonnes peuvent être copiées dans un
nouveau classeur en les englobant dans une selection.

Merci

-----Message d'origine-----
Salut
trouve sur
http://www.excelabo.net/xl/protection.php#desactiverraccou

r

cis :

Est-il possible de désactiver tous les raccourcis
clavier ?

Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub

Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I)
Next I
Next K
End Sub

Ca ne désactive "que" les raccourcis utilisant une
touche

alphanumérique.Laurent Longre

ensuite tu peux mettre un evenement du click de droite
Cancel = True

et voila tu ne peux pu rien faire sur ta feuille.
@+
Michel.


"js" wrote in message
news:0abb01c39d48$7f39dad0$
Si vous protégez une cellule sous Excel, puis vous
masquez

la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci


.

.

-----Message d'origine-----
Pour ma part je suis sur un projet similaire et j'ai
affecte un evenement

double click et la ca me deprotege ma feuille et apres
tout changement de ma

feuille via un enter cela me reprotege ma feuille....

wrote in message
news:070601c39df2$7e7a8130$
Je connais déjà une méthode pour ne rien selectionner sur
une feuille :
Sheets(i).EnableSelection = xlNoSelection
Mais le problème est que les utilisateur du
classeur drevront modifier une partie des
cellules visibles et non protégées.
En clair dans les colonnes masquées j'ai des données
qu'ils

ne doivant pas pouvoir consulter.
Malheuresement ces colonnes peuvent être copiées dans un
nouveau classeur en les englobant dans une selection.

Merci

-----Message d'origine-----
Salut
trouve sur
http://www.excelabo.net/xl/protection.php#desactiverraccou

r

cis :

Est-il possible de désactiver tous les raccourcis
clavier ?

Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub

Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I)
Next I
Next K
End Sub

Ca ne désactive "que" les raccourcis utilisant une
touche

alphanumérique.Laurent Longre

ensuite tu peux mettre un evenement du click de droite
Cancel = True

et voila tu ne peux pu rien faire sur ta feuille.
@+
Michel.


"js" wrote in message
news:0abb01c39d48$7f39dad0$
Si vous protégez une cellule sous Excel, puis vous
masquez

la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci


.

.

-----Message d'origine-----
Salut,
un exemple a mettre dans une feuille(pas dans une macro)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As

Boolean)
ActiveSheet.Unprotect
If ActiveCell.Column = 1 Then
If ActiveCell.Row = 9 Or ActiveCell.Row = 11 Or
ActiveCell.Row = 13 Or

ActiveCell.Row = 15 Or ActiveCell.Row = 17 Or
ActiveCell.Row = 19 Or

ActiveCell.Row = 21 Or ActiveCell.Row = 23 Or
ActiveCell.Row = 25 Or

ActiveCell.Row = 27 Or ActiveCell.Row = 29 Or
ActiveCell.Row = 31 Then

If ActiveCell.Value = "" Then
If Range("A9").Value = "" Then
If Range("A11").Value = "" Then
If Range("A13").Value = "" Then
If Range("A15").Value = "" Then
If Range("A17").Value = "" Then
If Range("A19").Value = "" Then
If Range("A21").Value = ""
Then

If Range("A23").Value
= "" Then

If Range("A25").Value
= "" Then

If Range
("A27").Value = "" Then

If Range
("A29").Value = "" Then

If Range
("A31").Value = ""

Then

Selection.Locked = True

Selection.FormulaHidden =

True
With
Selection.Font

.Name
= "Wingdings"

.Size
= 10

.Bold
= True

.Strik
ethrough = False

.Super
script = False

.Subsc
ript = False

.Outli
neFont = False

.Shado
w = False

.Under
line =

xlUnderlineStyleNone
.Color
Index =

xlAutomatic
End With
With
Selection

.Horiz
ontalAlignment =

xlCenter
.Verti
calAlignment =

xlCenter
.WrapT
ext = False

.Orien
tation = 0

.AddIn
dent = False

.Shrin
kToFit = False

.Merge
Cells = False

End With

ActiveCell.Value = "û"

Cancel =
True

Else
Cancel =
True

End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Selection.ClearContents
Cancel = True
End If
Else
Cancel = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

Exit Sub
End If
Else
Cancel = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

Exit Sub
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

End Sub

cette exmple met une croix soit en a9,a11,a13....a31.
l'utilisateur ne

pourra rien faire d'autre.
ca deprotege et reprotege la feuille.
la macro s'active toute seul, d'ou lavantage....
l'utilisateur n'a rien a

choisir.... il double clicke juste dans une des cases pre-
etablit et si ce

n'est pas la bonne... pas grave puisque tu l'as prevus....
@+
Michel.

wrote in message
news:0bbe01c39e05$5a498aa0$
Très interessé de tester ta solution du Event.

Je n'utilise pas la gestion des évenement.

STP un petit exemple sur un Event OnClick ?
Merci,

AUtre question : si l'utilisateur n'active pas les Macros,
comment tu contourne le problème ?
A+

-----Message d'origine-----
Pour ma part je suis sur un projet similaire et j'ai
affecte un evenement

double click et la ca me deprotege ma feuille et apres
tout changement de ma

feuille via un enter cela me reprotege ma feuille....

wrote in message
news:070601c39df2$7e7a8130$
Je connais déjà une méthode pour ne rien selectionner sur
une feuille :
Sheets(i).EnableSelection = xlNoSelection
Mais le problème est que les utilisateur du
classeur drevront modifier une partie des
cellules visibles et non protégées.
En clair dans les colonnes masquées j'ai des données
qu'ils

ne doivant pas pouvoir consulter.
Malheuresement ces colonnes peuvent être copiées dans un
nouveau classeur en les englobant dans une selection.

Merci

-----Message d'origine-----
Salut
trouve sur
http://www.excelabo.net/xl/protection.php#desactiverracco

u

r

cis :

Est-il possible de désactiver tous les raccourcis
clavier ?

Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub

Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I)
Next I
Next K
End Sub

Ca ne désactive "que" les raccourcis utilisant une
touche

alphanumérique.Laurent Longre

ensuite tu peux mettre un evenement du click de droite
Cancel = True

et voila tu ne peux pu rien faire sur ta feuille.
@+
Michel.


"js" wrote in message
news:0abb01c39d48$7f39dad0$
Si vous protégez une cellule sous Excel, puis vous
masquez

la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci


.

.

.

-----Message d'origine-----
Merci je vais tester

A+ Joseph

-----Message d'origine-----
Salut,
un exemple a mettre dans une feuille(pas dans une macro)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As

Boolean)
ActiveSheet.Unprotect
If ActiveCell.Column = 1 Then
If ActiveCell.Row = 9 Or ActiveCell.Row = 11 Or
ActiveCell.Row = 13 Or

ActiveCell.Row = 15 Or ActiveCell.Row = 17 Or
ActiveCell.Row = 19 Or

ActiveCell.Row = 21 Or ActiveCell.Row = 23 Or
ActiveCell.Row = 25 Or

ActiveCell.Row = 27 Or ActiveCell.Row = 29 Or
ActiveCell.Row = 31 Then

If ActiveCell.Value = "" Then
If Range("A9").Value = "" Then
If Range("A11").Value = "" Then
If Range("A13").Value = "" Then
If Range("A15").Value = "" Then
If Range("A17").Value = "" Then
If Range("A19").Value = "" Then
If Range("A21").Value = ""
Then

If Range("A23").Value
= "" Then

If Range
("A25").Value

= "" Then

If Range
("A27").Value = "" Then

If Range
("A29").Value = "" Then

If Range
("A31").Value = ""

Then

Selection.Locked = True

Selection.FormulaHidden =

True
With
Selection.Font

.Name

= "Wingdings"

.Size

= 10

.Bold

= True

.Stri
k

ethrough = False

.Supe
r

script = False

.Subs
c

ript = False

.Outl
i

neFont = False

.Shad
o

w = False

.Unde
r

line =

xlUnderlineStyleNone
.Colo
r

Index =

xlAutomatic
End With
With
Selection

.Hori
z

ontalAlignment =

xlCenter
.Vert
i

calAlignment =

xlCenter
.Wrap
T

ext = False

.Orie
n

tation = 0

.AddI
n

dent = False

.Shri
n

kToFit = False

.Merg
e

Cells = False

End With

ActiveCell.Value = "û"

Cancel =
True

Else
Cancel =
True

End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Selection.ClearContents
Cancel = True
End If
Else
Cancel = True
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

Exit Sub
End If
Else
Cancel = True
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

Exit Sub
End If
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

End Sub

cette exmple met une croix soit en a9,a11,a13....a31.
l'utilisateur ne

pourra rien faire d'autre.
ca deprotege et reprotege la feuille.
la macro s'active toute seul, d'ou lavantage....
l'utilisateur n'a rien a

choisir.... il double clicke juste dans une des cases
pre-

etablit et si ce

n'est pas la bonne... pas grave puisque tu l'as
prevus....

@+
Michel.

wrote in message
news:0bbe01c39e05$5a498aa0$
Très interessé de tester ta solution du Event.

Je n'utilise pas la gestion des évenement.

STP un petit exemple sur un Event OnClick ?
Merci,

AUtre question : si l'utilisateur n'active pas les
Macros,

comment tu contourne le problème ?
A+

-----Message d'origine-----
Pour ma part je suis sur un projet similaire et j'ai
affecte un evenement

double click et la ca me deprotege ma feuille et apres
tout changement de ma

feuille via un enter cela me reprotege ma feuille....

wrote in message
news:070601c39df2$7e7a8130$
Je connais déjà une méthode pour ne rien selectionner
sur

une feuille :
Sheets(i).EnableSelection = xlNoSelection
Mais le problème est que les utilisateur du
classeur drevront modifier une partie des
cellules visibles et non protégées.
En clair dans les colonnes masquées j'ai des données
qu'ils

ne doivant pas pouvoir consulter.
Malheuresement ces colonnes peuvent être copiées dans un
nouveau classeur en les englobant dans une selection.

Merci

-----Message d'origine-----
Salut
trouve sur
http://www.excelabo.net/xl/protection.php#desactiverracc

o

u

r

cis :

Est-il possible de désactiver tous les raccourcis
clavier ?

Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub

Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I)
Next I
Next K
End Sub

Ca ne désactive "que" les raccourcis utilisant une
touche

alphanumérique.Laurent Longre

ensuite tu peux mettre un evenement du click de droite
Cancel = True

et voila tu ne peux pu rien faire sur ta feuille.
@+
Michel.


"js" wrote in message
news:0abb01c39d48$7f39dad0$
Si vous protégez une cellule sous Excel, puis vous
masquez

la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci


.

.

.

.

-----Message d'origine-----
Merci je vais tester

A+ Joseph

-----Message d'origine-----
Salut,
un exemple a mettre dans une feuille(pas dans une macro)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As

Boolean)
ActiveSheet.Unprotect
If ActiveCell.Column = 1 Then
If ActiveCell.Row = 9 Or ActiveCell.Row = 11 Or
ActiveCell.Row = 13 Or

ActiveCell.Row = 15 Or ActiveCell.Row = 17 Or
ActiveCell.Row = 19 Or

ActiveCell.Row = 21 Or ActiveCell.Row = 23 Or
ActiveCell.Row = 25 Or

ActiveCell.Row = 27 Or ActiveCell.Row = 29 Or
ActiveCell.Row = 31 Then

If ActiveCell.Value = "" Then
If Range("A9").Value = "" Then
If Range("A11").Value = "" Then
If Range("A13").Value = "" Then
If Range("A15").Value = "" Then
If Range("A17").Value = "" Then
If Range("A19").Value = "" Then
If Range("A21").Value = ""
Then

If Range("A23").Value
= "" Then

If Range
("A25").Value

= "" Then

If Range
("A27").Value = "" Then

If Range
("A29").Value = "" Then

If Range
("A31").Value = ""

Then

Selection.Locked = True

Selection.FormulaHidden =

True
With
Selection.Font

.Name

= "Wingdings"

.Size

= 10

.Bold

= True

.Stri
k

ethrough = False

.Supe
r

script = False

.Subs
c

ript = False

.Outl
i

neFont = False

.Shad
o

w = False

.Unde
r

line =

xlUnderlineStyleNone
.Colo
r

Index =

xlAutomatic
End With
With
Selection

.Hori
z

ontalAlignment =

xlCenter
.Vert
i

calAlignment =

xlCenter
.Wrap
T

ext = False

.Orie
n

tation = 0

.AddI
n

dent = False

.Shri
n

kToFit = False

.Merg
e

Cells = False

End With

ActiveCell.Value = "û"

Cancel =
True

Else
Cancel =
True

End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Selection.ClearContents
Cancel = True
End If
Else
Cancel = True
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

Exit Sub
End If
Else
Cancel = True
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

Exit Sub
End If
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

End Sub

cette exmple met une croix soit en a9,a11,a13....a31.
l'utilisateur ne

pourra rien faire d'autre.
ca deprotege et reprotege la feuille.
la macro s'active toute seul, d'ou lavantage....
l'utilisateur n'a rien a

choisir.... il double clicke juste dans une des cases
pre-

etablit et si ce

n'est pas la bonne... pas grave puisque tu l'as
prevus....

@+
Michel.

wrote in message
news:0bbe01c39e05$5a498aa0$
Très interessé de tester ta solution du Event.

Je n'utilise pas la gestion des évenement.

STP un petit exemple sur un Event OnClick ?
Merci,

AUtre question : si l'utilisateur n'active pas les
Macros,

comment tu contourne le problème ?
A+

-----Message d'origine-----
Pour ma part je suis sur un projet similaire et j'ai
affecte un evenement

double click et la ca me deprotege ma feuille et apres
tout changement de ma

feuille via un enter cela me reprotege ma feuille....

wrote in message
news:070601c39df2$7e7a8130$
Je connais déjà une méthode pour ne rien selectionner
sur

une feuille :
Sheets(i).EnableSelection = xlNoSelection
Mais le problème est que les utilisateur du
classeur drevront modifier une partie des
cellules visibles et non protégées.
En clair dans les colonnes masquées j'ai des données
qu'ils

ne doivant pas pouvoir consulter.
Malheuresement ces colonnes peuvent être copiées dans un
nouveau classeur en les englobant dans une selection.

Merci

-----Message d'origine-----
Salut
trouve sur
http://www.excelabo.net/xl/protection.php#desactiverracc

o

u

r

cis :

Est-il possible de désactiver tous les raccourcis
clavier ?

Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub

Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I)
Next I
Next K
End Sub

Ca ne désactive "que" les raccourcis utilisant une
touche

alphanumérique.Laurent Longre

ensuite tu peux mettre un evenement du click de droite
Cancel = True

et voila tu ne peux pu rien faire sur ta feuille.
@+
Michel.


"js" wrote in message
news:0abb01c39d48$7f39dad0$
Si vous protégez une cellule sous Excel, puis vous
masquez

la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci


.

.

.

.

-----Message d'origine-----
Merci je vais tester

A+ Joseph

-----Message d'origine-----
Salut,
un exemple a mettre dans une feuille(pas dans une macro)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As

Boolean)
ActiveSheet.Unprotect
If ActiveCell.Column = 1 Then
If ActiveCell.Row = 9 Or ActiveCell.Row = 11 Or
ActiveCell.Row = 13 Or

ActiveCell.Row = 15 Or ActiveCell.Row = 17 Or
ActiveCell.Row = 19 Or

ActiveCell.Row = 21 Or ActiveCell.Row = 23 Or
ActiveCell.Row = 25 Or

ActiveCell.Row = 27 Or ActiveCell.Row = 29 Or
ActiveCell.Row = 31 Then

If ActiveCell.Value = "" Then
If Range("A9").Value = "" Then
If Range("A11").Value = "" Then
If Range("A13").Value = "" Then
If Range("A15").Value = "" Then
If Range("A17").Value = "" Then
If Range("A19").Value = "" Then
If Range("A21").Value = ""
Then

If Range("A23").Value
= "" Then

If Range
("A25").Value

= "" Then

If Range
("A27").Value = "" Then

If Range
("A29").Value = "" Then

If Range
("A31").Value = ""

Then

Selection.Locked = True

Selection.FormulaHidden >>True

With
Selection.Font

.Name

= "Wingdings"

.Size

= 10

.Bold

= True

.Stri
k

ethrough = False

.Supe
r

script = False

.Subs
c

ript = False

.Outl
i

neFont = False

.Shad
o

w = False

.Unde
r

line >>xlUnderlineStyleNone

.Colo
r

Index >>xlAutomatic

End With
With
Selection

.Hori
z

ontalAlignment >>xlCenter

.Vert
i

calAlignment >>xlCenter

.Wrap
T

ext = False

.Orie
n

tation = 0

.AddI
n

dent = False

.Shri
n

kToFit = False

.Merg
e

Cells = False

End With

ActiveCell.Value = "û"

Cancel >True
Else
Cancel >True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Cancel = True
End If
Else
Selection.ClearContents
Cancel = True
End If
Else
Cancel = True
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

Exit Sub
End If
Else
Cancel = True
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

Exit Sub
End If
ActiveSheet.Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True

End Sub

cette exmple met une croix soit en a9,a11,a13....a31.
l'utilisateur ne

pourra rien faire d'autre.
ca deprotege et reprotege la feuille.
la macro s'active toute seul, d'ou lavantage....
l'utilisateur n'a rien a

choisir.... il double clicke juste dans une des cases
pre-

etablit et si ce

n'est pas la bonne... pas grave puisque tu l'as
prevus....

@+
Michel.

wrote in message
news:0bbe01c39e05$5a498aa0$
Très interessé de tester ta solution du Event.

Je n'utilise pas la gestion des évenement.

STP un petit exemple sur un Event OnClick ?
Merci,

AUtre question : si l'utilisateur n'active pas les
Macros,

comment tu contourne le problème ?
A+

-----Message d'origine-----
Pour ma part je suis sur un projet similaire et j'ai
affecte un evenement

double click et la ca me deprotege ma feuille et apres
tout changement de ma

feuille via un enter cela me reprotege ma feuille....

wrote in message
news:070601c39df2$7e7a8130$
Je connais déjà une méthode pour ne rien selectionner
sur

une feuille :
Sheets(i).EnableSelection = xlNoSelection
Mais le problème est que les utilisateur du
classeur drevront modifier une partie des
cellules visibles et non protégées.
En clair dans les colonnes masquées j'ai des données
qu'ils

ne doivant pas pouvoir consulter.
Malheuresement ces colonnes peuvent être copiées dans un
nouveau classeur en les englobant dans une selection.

Merci

-----Message d'origine-----
Salut
trouve sur
http://www.excelabo.net/xl/protection.php#desactiverracc

o

u

r

cis :

Est-il possible de désactiver tous les raccourcis
clavier ?

Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub

Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255

Application.OnKey K & Chr$(I)
Next I
Next K
End Sub

Ca ne désactive "que" les raccourcis utilisant une
touche

alphanumérique.Laurent Longre

ensuite tu peux mettre un evenement du click de droite
Cancel = True

et voila tu ne peux pu rien faire sur ta feuille.
@+
Michel.


"js" wrote in message
news:0abb01c39d48$7f39dad0$
Si vous protégez une cellule sous Excel, puis vous
masquez

la colonne qui contient la cellule pour éviter qu'elle
soit visible, il est toujours possible de copier la
cellule dans un autre classeur en l'englobant dans une
sélection. Ceci est possible même si vous protégez le
classeur.
Je cherche une méthode qui me permette de contourner le
problème
Merci


.

.

.

.