enlever la protection de plusieurs feuilles d'un même classeur simultanément

[jean-pierre]

Bonjour à tous

Qui peut m'expliquer comment enlever la protection de plusieurs feuilles d'un même classeur simultanément avec le même mot de passe. De la même maniere que pour protéger plusieurs feuilles d'un même classeur .

Merci d'avance

 

[Bernard]

Bonsoir Jean Pierre

La macro suivante déprotège une feuille avec le mot de passe "***", puis réalise la macro fonctionnelle éventuelle et enfin la reprotège avec le même mot de passe. Ainsi de suite avec toutes les feuilles.

Sub DeproMacroRepro()
Dim i As Byte

'Passer les feuilles les unes après les autres
For i = 1 To Sheets.Count
Sheets(i).Activate
' Deprotection de la feuille active, le mot de passe est "pass"
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:="***"
End With
'
'Mettre ici la commande de la Macro de saisie !
'
' Reprotection de la feuille active
With ActiveSheet
.EnableSelection = xlNoSelection
.Protect Password:="***", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With
Next i
End Sub

Cordialement

Bernard

 

[ChristianS]

Bonjour tout le monde,
Ci joint exemples de protection et deprotection générales ou bien choisir ses feuilles à protéger simultanément.

B.W.
ChS

 

[jean-pierre]

Merci Bernard,
Grâce à l' aide du forum j'ai réussi à réaliser ce que je souhaitais faire
Merci encore
Jean-Pierre

 

[jean-pierre]

Merci ,
Grâce à l' aide du forum j'ai réussi à réaliser ce que je souhaitais faire
Merci encore
Jean-Pierre

 

[ChristianS]

Bonjour tout le monde,
Excuse moi JP je ne t'ai pas envoyé le bon fichier
Bonne journée
ChS