Verrou feuille

Le
TECHBM
Bonjours à tous !!

J'ai inserer une macro sous excel me permettant de verrouiller a tout moment
ma feuille ! Ceci dit lorsque je vais déverrouiller la feuille par
Outils/Protection/Oter la protection de la feuille celui-ci me dévérouille
la feuille sans me demander de mots de passe. Que dois-je imbriquer dans ma
macro pour avoir une demande de mots de passe ?

Ma macro:

Sub Verrou2()
'
' Verrou2 Macro
' Macro enregistrée le 09/06/2008 par jaubin
'

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


En espérant avoir été clair !
Merci pour votre aide!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fredo P
Le #6827281
"TECHBM"
Bonjours à tous !!

J'ai inserer une macro sous excel me permettant de verrouiller a tout
moment
ma feuille ! Ceci dit lorsque je vais déverrouiller la feuille par
Outils/Protection/Oter la protection de la feuille... celui-ci me
dévérouille
la feuille sans me demander de mots de passe. Que dois-je imbriquer dans
ma
macro pour avoir une demande de mots de passe ?

Ma macro:

Sub Verrou2()
'
' Verrou2 Macro
' Macro enregistrée le 09/06/2008 par jaubin
'

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


En espérant avoir été clair !
Merci pour votre aide!


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,
password:="MdP"

TECHBM
Le #6860721
Merci fredo P !!!

Pour déverouiller j'ai esssayé ceci mais cela ne fonctionne pas!

ActiveSheet.UnProtect DrawingObjects:=True, Contents:=True, Scenarios:=True,
password:="MdP"

Si tu n'as pas de solution je mettrai tout simplement :

ActiveSheet.UnProtect,

et je rentrerai mon mot de passe manuellement !

Merci bcp !




"TECHBM"
Bonjours à tous !!

J'ai inserer une macro sous excel me permettant de verrouiller a tout
moment
ma feuille ! Ceci dit lorsque je vais déverrouiller la feuille par
Outils/Protection/Oter la protection de la feuille... celui-ci me
dévérouille
la feuille sans me demander de mots de passe. Que dois-je imbriquer dans
ma
macro pour avoir une demande de mots de passe ?

Ma macro:

Sub Verrou2()
'
' Verrou2 Macro
' Macro enregistrée le 09/06/2008 par jaubin
'

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


En espérant avoir été clair !
Merci pour votre aide!


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,
password:="MdP"






Fredo P
Le #6883471
Essaie ceci sur un classeur vierge, chez moi ça fonctionne.
Sub protection()
ActiveSheet.Protect password:="mdp"
End Sub

Sub Deprotection()
ActiveSheet.Unprotect password:="mdp"
End Sub


"TECHBM"
Merci fredo P !!!

Pour déverouiller j'ai esssayé ceci mais cela ne fonctionne pas!

ActiveSheet.UnProtect DrawingObjects:=True, Contents:=True,
Scenarios:=True,
password:="MdP"

Si tu n'as pas de solution je mettrai tout simplement :

ActiveSheet.UnProtect,

et je rentrerai mon mot de passe manuellement !

Merci bcp !




"TECHBM" news:

Bonjours à tous !!

J'ai inserer une macro sous excel me permettant de verrouiller a tout
moment
ma feuille ! Ceci dit lorsque je vais déverrouiller la feuille par
Outils/Protection/Oter la protection de la feuille... celui-ci me
dévérouille
la feuille sans me demander de mots de passe. Que dois-je imbriquer
dans
ma
macro pour avoir une demande de mots de passe ?

Ma macro:

Sub Verrou2()
'
' Verrou2 Macro
' Macro enregistrée le 09/06/2008 par jaubin
'

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


En espérant avoir été clair !
Merci pour votre aide!


ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True,
password:="MdP"








Publicité
Poster une réponse
Anonyme