modifier les droit une feuille via VBA

Bonjour,

Il existe Plusieurs protections:

-De la feuille(Outils/Protection/Protéger la feuille ( le + utilisé)
: seules les cellules déverrouillées sont accessibles
(Format/Cellule/Protection).
-De la structure du classeur (Outils/Protection/Protéger le classeur):
on ne peut pas déplacer, renommer les onglets
-Mot de passe pour accès en lecture et Mot de passe pour accès aux
modifs.

Pour connaître la syntaxe, faire de l'enregistrement Automatique:

Pour protéger une feuille par VBA:

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

Modifier le mot de passe d'accès:

Workbooks.Open Filename:=nf, password:="moi"
ActiveWorkbook.SaveAs Filename:= Mot_passe_modifie.XLS",
Password:="moi", WriteResPassword:="moi", ReadOnlyRecommended :=False,
CreateBackup:=False

Cordialement JB

Bonjour JB et merci de ta réponse.
Puis-je écrire dans un worksheet ça:

ActiveSheet.Protect Password:="moi", DrawingObjects:=True,
Contents:=True, Scenarios:=True
car il me le met automatiquement en rouge et n'en tient pas compte.

Merci de m'éclairer.

Bonjour,

Il existe Plusieurs protections:

-De la feuille(Outils/Protection/Protéger la feuille ( le + utilisé)
: seules les cellules déverrouillées sont accessibles
(Format/Cellule/Protection).
-De la structure du classeur (Outils/Protection/Protéger le classeur):
on ne peut pas déplacer, renommer les onglets
-Mot de passe pour accès en lecture et Mot de passe pour accès aux
modifs.

Pour connaître la syntaxe, faire de l'enregistrement Automatique:

Pour protéger une feuille par VBA:

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

Modifier le mot de passe d'accès:

Workbooks.Open Filename:=nf, password:="moi"
ActiveWorkbook.SaveAs Filename:= Mot_passe_modifie.XLS",
Password:="moi", WriteResPassword:="moi", ReadOnlyRecommended :úlse,
CreateBackup:úlse

Cordialement JB

Regarder le fichier joint

http://cjoint.com/?mcpcQTr7xb

Sub protegeFeuille()
ActiveSheet.Protect Password:="moi", DrawingObjects:=True,
Contents:=True, Scenarios:=True
End Sub

Sub deprotegeFeuille()
ActiveSheet.Unprotect Password:="moi"
End Sub


JB