Protection de feuille

5 réponses

Francis Laroche

27/02/2007 à 21:07

Bonjour j'utilise présentement

Sub ProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:="toto", userinterfaceonly:=True
Next
End Sub

Sub UnProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:="toto"
Next
End Sub

pis tout fonctionne, mais je veux savoir ce que je dois rajouter pour que
j'aille seulement accès a mes cellules dévérouillé , que ne puise pas
sélectionner les cellules déverrouillé.

Merci

5 réponses

Francis

27/02/2007 à 21:16

Désolé

je veux dire ne pas avoir le droit de sélectionner les cellules verouillées
:-)

Bonjour j'utilise présentement

Sub ProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:="toto", userinterfaceonly:=True
Next
End Sub

Sub UnProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:="toto"
Next
End Sub

pis tout fonctionne, mais je veux savoir ce que je dois rajouter pour que
j'aille seulement accès a mes cellules dévérouillé , que ne puise pas
sélectionner les cellules déverrouillé.

Merci

Daniel

27/02/2007 à 21:39

Bonsoir.
ActiveSheet.EnableSelection = xlUnlockedCells
(Fonctionne avec XL2003)
Cordialement.
Daniel
"Francis" a écrit dans le message de
news:

Désolé

je veux dire ne pas avoir le droit de sélectionner les cellules
verouillées
:-)

Bonjour j'utilise présentement

Sub ProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:="toto", userinterfaceonly:=True
Next
End Sub

Sub UnProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:="toto"
Next
End Sub

pis tout fonctionne, mais je veux savoir ce que je dois rajouter pour que
j'aille seulement accès a mes cellules dévérouillé , que ne puise pas
sélectionner les cellules déverrouillé.

Merci

Francis

27/02/2007 à 22:01

Je viens d'essyer, ca marche mais seulement pour la feuille qui est
sélectionnée , tout le reste ce protège mais j'ai encore accès au cellule
verrouillé. est-ce que je dois mettre la commande à un endroit précis dans la
macro?

Bonsoir.
ActiveSheet.EnableSelection = xlUnlockedCells
(Fonctionne avec XL2003)
Cordialement.
Daniel
"Francis" a écrit dans le message de
news:
Désolé

je veux dire ne pas avoir le droit de sélectionner les cellules
verouillées
:-)

Bonjour j'utilise présentement

Sub ProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:="toto", userinterfaceonly:=True
Next
End Sub

Sub UnProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:="toto"
Next
End Sub

pis tout fonctionne, mais je veux savoir ce que je dois rajouter pour que
j'aille seulement accès a mes cellules dévérouillé , que ne puise pas
sélectionner les cellules déverrouillé.

Merci

Daniel

27/02/2007 à 22:12

Sub ProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:="toto", userinterfaceonly:=True
sh.EnableSelection = xlUnlockedCells
Next
End Sub

Daniel
"Francis" a écrit dans le message de
news:

Je viens d'essyer, ca marche mais seulement pour la feuille qui est
sélectionnée , tout le reste ce protège mais j'ai encore accès au cellule
verrouillé. est-ce que je dois mettre la commande à un endroit précis dans
la
macro?

Bonsoir.
ActiveSheet.EnableSelection = xlUnlockedCells
(Fonctionne avec XL2003)
Cordialement.
Daniel
"Francis" a écrit dans le message de
news:
Désolé

je veux dire ne pas avoir le droit de sélectionner les cellules
verouillées
:-)

Bonjour j'utilise présentement

Sub ProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:="toto", userinterfaceonly:=True
Next
End Sub

Sub UnProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:="toto"
Next
End Sub

pis tout fonctionne, mais je veux savoir ce que je dois rajouter pour
que
j'aille seulement accès a mes cellules dévérouillé , que ne puise pas
sélectionner les cellules déverrouillé.

Merci

Francis

28/02/2007 à 20:52

Merci beaucoup

tout fonctionne à merveille :-)

Francis

Sub ProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:="toto", userinterfaceonly:=True
sh.EnableSelection = xlUnlockedCells
Next
End Sub

Daniel
"Francis" a écrit dans le message de
news:
Je viens d'essyer, ca marche mais seulement pour la feuille qui est
sélectionnée , tout le reste ce protège mais j'ai encore accès au cellule
verrouillé. est-ce que je dois mettre la commande à un endroit précis dans
la
macro?

Bonsoir.
ActiveSheet.EnableSelection = xlUnlockedCells
(Fonctionne avec XL2003)
Cordialement.
Daniel
"Francis" a écrit dans le message de
news:
Désolé

je veux dire ne pas avoir le droit de sélectionner les cellules
verouillées
:-)

Bonjour j'utilise présentement

Sub ProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:="toto", userinterfaceonly:=True
Next
End Sub

Sub UnProtectAllSh()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:="toto"
Next
End Sub

pis tout fonctionne, mais je veux savoir ce que je dois rajouter pour
que
j'aille seulement accès a mes cellules dévérouillé , que ne puise pas
sélectionner les cellules déverrouillé.

Merci

Protection de feuille

5 réponses

Veuillez sélectionner un problème