protection des feuilles d'un classeur en bloc

[Eric33]

Bonjour, je voulais savoir s'il existait une solution pour protéger et déprotéger toutes les feuilles d'un classeur en une seule opération.
J'ai des classeurs avec de nombreuses feuilles et à chaque modification je dois déverrouiller puis verrouiller chaque feuille ce qui est fastidieux à la longue.

Merci d'avance pour votre aide.

Eric

 

[porcinet82]

Re : protection des feuilles d'un classeur en bloc

Salut,

Pas sur d'etre le mieu placer pour répondre car j'utilise peu ce genre de chose, mais si tu fais Outils/Proctection/protéger le classeur
Sinon, il est possible de faire une macro qui verrouille et deverrouille l'ensemble des feuilles...
Tiens nous au courant.

@+

 

[Gael]

Re : protection des feuilles d'un classeur en bloc

Bonjour Eric, bonjour Porcinet, Bonjour à tous,

Une petite macro simple:

Sub Protect()
Dim WS As Worksheet
'
'
For Each WS In Worksheets
    WS.Protect Password:="Test", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next WS
End Sub

@+

Gael

 

[criscris11]

Re : protection des feuilles d'un classeur en bloc

Bonjour Eric33, Romain, Gaël, le forum,
Quant à moi, j'utilise celle-ci qui fonctionne très bien. Attention présence d'un mot de passe mais tu peux l'enlever sans problème.

Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Workbooks("Matrice BDD BCL.xls").Sheets
Feuil.Protect Password:="chris"
Next Feuil
End Sub

Tiens-nous au courant et bon courage.