OVH Cloud OVH Cloud

Protection par mot de passe ....

6 réponses
Avatar
olitoto
Bonjour à tous,

La procédure ci dessous fonctionne si la feuille a été protégée sans mot
de passe ...

Sub oter_protection()

ActiveSheet.Unprotect

' choses à faire une fois la feuille déprotégée
' ****
' ****
' ****

ActiveSheet.Protect
End Sub

Mon problème : Je veux protéger AVEC un mot de passe, sans que celui ci
ne soit demandé lors de l'éxécution de cette procédure.
Il me faudrait donc le code qui automatise l'entrée du mot de passe,
puis , re-protège AVEC le mot de passe en sortie.

Si quelqu'un le connait, je suis preneur ......

Olivier

6 réponses

Avatar
isabelle
bonjour Olivier,

ActiveSheet.Unprotect Password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
' choses à faire une fois la feuille déprotégée
ActiveSheet.Protect Password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True

isabelle


Bonjour à tous,

La procédure ci dessous fonctionne si la feuille a été protégée sans mot
de passe ...

Sub oter_protection()

ActiveSheet.Unprotect

' choses à faire une fois la feuille déprotégée
' ****
' ****
' ****

ActiveSheet.Protect
End Sub

Mon problème : Je veux protéger AVEC un mot de passe, sans que celui ci
ne soit demandé lors de l'éxécution de cette procédure.
Il me faudrait donc le code qui automatise l'entrée du mot de passe,
puis , re-protège AVEC le mot de passe en sortie.

Si quelqu'un le connait, je suis preneur ......

Olivier


Avatar
olitoto
bonjour Olivier,

ActiveSheet.Unprotect Password:="zaza", DrawingObjects:=True,
Contents:=True, Scenarios:=True
' choses à faire une fois la feuille déprotégée
ActiveSheet.Protect Password:="zaza", DrawingObjects:=True,
Contents:=True, Scenarios:=True

isabelle


Bonjour à tous,

La procédure ci dessous fonctionne si la feuille a été protégée sans mot
de passe ...

Sub oter_protection()

ActiveSheet.Unprotect

' choses à faire une fois la feuille déprotégée
' ****
' ****
' ****

ActiveSheet.Protect
End Sub

Mon problème : Je veux protéger AVEC un mot de passe, sans que celui
ci ne soit demandé lors de l'éxécution de cette procédure.
Il me faudrait donc le code qui automatise l'entrée du mot de passe,
puis , re-protège AVEC le mot de passe en sortie.

Si quelqu'un le connait, je suis preneur ......

Olivier
Merci Isabelle,



Mais maintenant que le mot de passe est écrit en clair dans une macro,
je voudrais pouvoir en interdire la lecture .....


Olivier


Avatar
FILK
Bonjour Olitoto,

Sheets("toto").Unprotect (MyPassword)
Sheets("toto").Protect (MyPassword)

Pour toi.

Attention de protéger ton projet (sinon on voit le password).

Bon courage.

Philippe



Bonjour à tous,

La procédure ci dessous fonctionne si la feuille a été protégée sans mot
de passe ...

Sub oter_protection()

ActiveSheet.Unprotect

' choses à faire une fois la feuille déprotégée
' ****
' ****
' ****

ActiveSheet.Protect
End Sub

Mon problème : Je veux protéger AVEC un mot de passe, sans que celui ci
ne soit demandé lors de l'éxécution de cette procédure.
Il me faudrait donc le code qui automatise l'entrée du mot de passe,
puis , re-protège AVEC le mot de passe en sortie.

Si quelqu'un le connait, je suis preneur ......

Olivier



Avatar
isabelle
tu doit protéger ton projet vba pour qu'il ne soit pas accessible à tous.

isabelle


bonjour Olivier,

ActiveSheet.Unprotect Password:="zaza", DrawingObjects:=True,
Contents:=True, Scenarios:=True
' choses à faire une fois la feuille déprotégée
ActiveSheet.Protect Password:="zaza", DrawingObjects:=True,
Contents:=True, Scenarios:=True

isabelle


Bonjour à tous,

La procédure ci dessous fonctionne si la feuille a été protégée sans mot
de passe ...

Sub oter_protection()

ActiveSheet.Unprotect

' choses à faire une fois la feuille déprotégée
' ****
' ****
' ****

ActiveSheet.Protect
End Sub

Mon problème : Je veux protéger AVEC un mot de passe, sans que celui
ci ne soit demandé lors de l'éxécution de cette procédure.
Il me faudrait donc le code qui automatise l'entrée du mot de passe,
puis , re-protège AVEC le mot de passe en sortie.

Si quelqu'un le connait, je suis preneur ......

Olivier



Merci Isabelle,

Mais maintenant que le mot de passe est écrit en clair dans une macro,
je voudrais pouvoir en interdire la lecture .....


Olivier




Avatar
olitoto
Merci Isabelle,

Comment on protège un projet ?

Olivier

"isabelle" a écrit dans le message de news:
%
tu doit protéger ton projet vba pour qu'il ne soit pas accessible à tous.

isabelle


bonjour Olivier,

ActiveSheet.Unprotect Password:="zaza", DrawingObjects:=True,
Contents:=True, Scenarios:=True
' choses à faire une fois la feuille déprotégée
ActiveSheet.Protect Password:="zaza", DrawingObjects:=True,
Contents:=True, Scenarios:=True

isabelle


Bonjour à tous,

La procédure ci dessous fonctionne si la feuille a été protégée sans
mot
de passe ...

Sub oter_protection()

ActiveSheet.Unprotect

' choses à faire une fois la feuille déprotégée
' ****
' ****
' ****

ActiveSheet.Protect
End Sub

Mon problème : Je veux protéger AVEC un mot de passe, sans que celui ci
ne soit demandé lors de l'éxécution de cette procédure.
Il me faudrait donc le code qui automatise l'entrée du mot de passe,
puis , re-protège AVEC le mot de passe en sortie.

Si quelqu'un le connait, je suis preneur ......

Olivier



Merci Isabelle,

Mais maintenant que le mot de passe est écrit en clair dans une macro,
je voudrais pouvoir en interdire la lecture .....


Olivier






Avatar
isabelle
fait un click droit sur le nom VBAProjet(tonprojet.xls)
sélectionne Propriétés du projet
entre les informations sur l'onglet Protection

isabelle

Merci Isabelle,

Comment on protège un projet ?

Olivier

"isabelle" a écrit dans le message de news:
%

tu doit protéger ton projet vba pour qu'il ne soit pas accessible à tous.

isabelle




bonjour Olivier,

ActiveSheet.Unprotect Password:="zaza", DrawingObjects:=True,
Contents:=True, Scenarios:=True
' choses à faire une fois la feuille déprotégée
ActiveSheet.Protect Password:="zaza", DrawingObjects:=True,
Contents:=True, Scenarios:=True

isabelle



Bonjour à tous,

La procédure ci dessous fonctionne si la feuille a été protégée sans
mot
de passe ...

Sub oter_protection()

ActiveSheet.Unprotect

' choses à faire une fois la feuille déprotégée
' ****
' ****
' ****

ActiveSheet.Protect
End Sub

Mon problème : Je veux protéger AVEC un mot de passe, sans que celui ci
ne soit demandé lors de l'éxécution de cette procédure.
Il me faudrait donc le code qui automatise l'entrée du mot de passe,
puis , re-protège AVEC le mot de passe en sortie.

Si quelqu'un le connait, je suis preneur ......

Olivier



Merci Isabelle,

Mais maintenant que le mot de passe est écrit en clair dans une macro,
je voudrais pouvoir en interdire la lecture .....


Olivier