protection de feuilles

[Robert]

Bonjour à tous,


Encore besoin de vos lumières...

Est-il possible de protéger plusieurs feuilles sans être obliger de les activer?

je n'arrive pas à faire :

For x=1 to 5
Sheets(x).Protect
Next x

puis aussi, est-il normal que je ne puisse placer un commandbutton sur une feuille graphique?

Merci par avance pour votre attention

Robert

 

[jpierre]

salut,

Voila le code pour deproteger et proteger les feuilles en meme temps


Option Explicit
Sub DeprotectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect password:="ton mot de passe"
On Error GoTo sortie
Suite:
Next Feuil
Exit Sub
sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
End Sub



Option Explicit
Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect password:="ton mot de passe"
Next Feuil
End Sub


A+

Jpierre

 

[Robert]

Bonjour Jpierre,

Application.ScreenUpdating = False

j'en ris encore tellement c'est simple et tellement je me suis énervé hier.

Merci Beaucoup, Muchas Gracias, Muito Obrigado...

Robert