OVH Cloud OVH Cloud

Protection et mot depasse

4 réponses
Avatar
Pat59
Bonjour,

J'ai mis une protection sur une feuille de calcul. Je dois enlever la
protection pour l'exécution de code. J'utilise les commandes:

ActiveSheet.Unprotect au début du code et

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.... à la fin du code

S'il n'y a pas de mot de passe tout baigne dans l'huile. Mais s'il y a un
mot de passe la fenêtre de dialogue pour l'inscription du mot de passe
s'affiche.

Question: Peut-on passer le mot de passe via le code pour éviter d'incsrire
le mot de passe?

Merci

Patrice

4 réponses

Avatar
Pat59
Bonjour,

Volet 2 à la question.

Bien qu'il y ait une protection sur ma feuille de calcul, je peux tout de
même changer le nom de l'onglet. Est-il possible de protéger le nom d'onglet?

Merci

"Pat59" wrote:

Bonjour,

J'ai mis une protection sur une feuille de calcul. Je dois enlever la
protection pour l'exécution de code. J'utilise les commandes:

ActiveSheet.Unprotect au début du code et

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.... à la fin du code

S'il n'y a pas de mot de passe tout baigne dans l'huile. Mais s'il y a un
mot de passe la fenêtre de dialogue pour l'inscription du mot de passe
s'affiche.

Question: Peut-on passer le mot de passe via le code pour éviter d'incsrire
le mot de passe?

Merci

Patrice


Avatar
Patrick Fredin
Bonjour,

Il y a un autre paramètre que tu peux mettre. C'est le mot de passe :

ActiveSheet.Protect Password:="MotDePasse", DrawingObjects:=True,
Contents:=True, Scenarios:=True

Dans ce cas, il ne te le demande pas. Par contre, on peut le voir dans le
code.

--
Patrick

"Pat59" wrote in message
news:
Bonjour,

J'ai mis une protection sur une feuille de calcul. Je dois enlever la
protection pour l'exécution de code. J'utilise les commandes:

ActiveSheet.Unprotect au début du code et

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.... à la fin du code

S'il n'y a pas de mot de passe tout baigne dans l'huile. Mais s'il y a un
mot de passe la fenêtre de dialogue pour l'inscription du mot de passe
s'affiche.

Question: Peut-on passer le mot de passe via le code pour éviter
d'incsrire
le mot de passe?

Merci

Patrice


Avatar
Patrick Fredin
Rebonjour,

Pour protéger le nom des onglets, il faut protéger le classeur.

--
Patrick

"Pat59" wrote in message
news:
Bonjour,

Volet 2 à la question.

Bien qu'il y ait une protection sur ma feuille de calcul, je peux tout de
même changer le nom de l'onglet. Est-il possible de protéger le nom
d'onglet?

Merci

"Pat59" wrote:

Bonjour,

J'ai mis une protection sur une feuille de calcul. Je dois enlever la
protection pour l'exécution de code. J'utilise les commandes:

ActiveSheet.Unprotect au début du code et

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.... à la fin du code

S'il n'y a pas de mot de passe tout baigne dans l'huile. Mais s'il y a un
mot de passe la fenêtre de dialogue pour l'inscription du mot de passe
s'affiche.

Question: Peut-on passer le mot de passe via le code pour éviter
d'incsrire
le mot de passe?

Merci

Patrice




Avatar
Frédéric Sigonneau
Bonsoir,

Tu n'es pas obligé de déprotéger ta feuille pour travailler dedans avec du code.
A l'ouverture du classeur, active la protection en utilisant le paramètre
UserInterfaceOnly, qui permet que de code s'exécute sur une feuille protégée :

Sheets("LaFeuille").Protect .Protect "motdepasse", UserInterfaceOnly:=True

Cette instruction est 'volatile' : il faut l'exécuter à chaque ouverture du
classeur pour qu'elle s'applique. Par contre elle reste active tant que le
classeur est ouvert, ce qui t'évite de déprotéger/reprotéger à longueur de
procédures...

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour,

J'ai mis une protection sur une feuille de calcul. Je dois enlever la
protection pour l'exécution de code. J'utilise les commandes:

ActiveSheet.Unprotect au début du code et

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
..... à la fin du code

S'il n'y a pas de mot de passe tout baigne dans l'huile. Mais s'il y a un
mot de passe la fenêtre de dialogue pour l'inscription du mot de passe
s'affiche.

Question: Peut-on passer le mot de passe via le code pour éviter d'incsrire
le mot de passe?

Merci

Patrice