mot de passe

[tinet]

bonjour à tous,

mon fichier VBA comporte à plusieurs endroits un mot de passe de protection des feuilles Excel.
Afin d'éviter de modifier en permanence toutes les lignes, existe-t-il un moyen de positionner Le mot de passe sur le classeur en identifiant par l'adresse de la cellule.

ActiveSheet.Unprotect Password:="AZA"

Exemple

ActiveSheet.Unprotect Password:="Feuil1 "a1""

 

[James007]

Re : mot de passe

Bonjour,

Je ne suis pas totalement sûr de comprendre ta question ...

Est-ce-que tu veux dire :

ActiveSheet.Unprotect Password:=Feuil1.Range("A1").Value

A +
🙂

 

[tinet]

Re : mot de passe

Bonjour James007,

je veux positionner dans mon classeur une adresse qui sera mon mot de passe et qui servira de référence pour l'ensemble de mes Password.

est-ce cela que tu m'as écrit
A1 serait adresse de référence.
Et qui se traduirait Password:=Feuil1.Range("A1").Value

 

[James007]

Re : mot de passe

Bonjour James007,

je veux positionner dans mon classeur une adresse qui sera mon mot de passe et qui servira de référence pour l'ensemble de mes Password.

est-ce cela que tu m'as écrit
A1 serait adresse de référence.
Et qui se traduirait Password:=Feuil1.Range("A1").Value

Re,

Oui, c'est bien cela ... tu peux tester le code ...

A +
🙂

 

[tinet]

Re : mot de passe

James007

Et quand tu as cela tu l'écrit comment.

Sub protection()
Dim s As Worksheet
For Each s In Worksheets

s.Protect "AZA", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingRows:=True
Next s
End Sub

Sub deprotection()
Dim s As Worksheet
For Each s In Worksheets
s.Unprotect "AZA"
Next s
End Sub

a+

 

[James007]

Re : mot de passe

Bonjour,

Simplement, en remplaçant ce qui est codé en dur par la variable ...

Sub protection() 
Dim s As Worksheet 
  For Each s In Worksheets
  s.Protect Feuil1.Range("A1").Value, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True
  Next s 
End Sub 

Sub deprotection() 
Dim s As Worksheet 
  For Each s In Worksheets 
      s.Unprotect Feuil1.Range("A1").Value
  Next s 
End Sub

A +
🙂

 

[tinet]

Re : mot de passe

Bonjour James007,

Merci pour ton aide, cela fonctionne correctement.
La seule chose qu'il faut faire attention.
c'est de faire une déprotection totale de toutes les feuilles avec l'ancien mot de passe.
Avant de changer le mot de passe dans la feuille.