déprotection de plusieurs feuilles

[jopont]

Bonjour,

j'utilise la macro ci-dessous pour déprotéger l'ensemble d'un classeur.
J'aimerais dans cette macro que l'utilisateur qui déclenche la macro au moyen d'un bouton saisisse le mot de passe.
Comment faire
Merci

Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:="xxx"
Next i
End Sub

 

[Caillou]

Re : déprotection de plusieurs feuilles

Bonjour,

Tu peux remplacer ta ligne

Worksheets(i).Unprotect Password:="xxx"

par

Worksheets(i).Unprotect Password:=InputBox("Mot de passe", Worksheets(i).Name)

comme t'auras pour chaque feuille, un inputbox pour saisir le mot de passe (avec en titre le nom de la feuille)

Bon courage
Caillou

 

[kjin]

Re : déprotection de plusieurs feuilles

bonjour,

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Protect Password:="xxx"
Next i
End Sub

Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Q = InputBox("Code ?")
If Q <> "xxx" Then
MsgBox "code incorrect"
Exit Sub
End If
For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets(i).Unprotect Password:=Q
Next i

End Sub

A+
kjin

 

[jopont]

Re : déprotection de plusieurs feuilles

Ok merci à vous pour vos solutions.

Par contre est-il possible de spécifier les autorisations utilisateurs avec les éléments suivant lors de la protection des feuilles :

selection cellule verrouilée ou non
format de cellule
modifier les objets
modifier les scénario

merci

 

[jopont]

Re : déprotection de plusieurs feuilles

peut-on ajouter ces propriétés dans la macro ?

 

[jopont]

Re : déprotection de plusieurs feuilles

bonjour,

personne n'a d'idée ?

merci

 

[kjin]

Re : déprotection de plusieurs feuilles

Bonjour,
Tu as à ta disposition l'enregistreur de macro, il suffit de faire la manip (protèger ta feuille en choisissant les options) et ensuite de récupérer les lignes de code pour les intégrer dans ta macro
A+
kjin

 

[Pierrot93]

Re : déprotection de plusieurs feuilles

Bonjour Jopon, kjin

une autre solution, F1 sur le mot "protect", te donnera tous les arguments de la méthode.

bon après midi.
@+