XL 2019 Protection feuilles multiples excel

[julien1982]

Bonjour a tous,

ci dessous un lien d'un ancien topic qui date de 2008 qui permet de verrouiller / déverrouiller toutes les feuilles d'un classeur..

protéger plusieurs feuilles en même temps

Bonjour, qui peut me dire s'il est possible de protéger plusieurs feuilles en même temps car j'ai 70 feuilles et je voudrais toutes les protéger en même temps et non pas une par une. merci de votre aide Olivier

www.excel-downloads.com

Je souhaiterai faire un peu la même chose mais en gardant libre seulement les 2 premières feuilles, hors je ne sais pas comment modifier le code donné.

Ci joint le fichier en question. Je souhaite garder modifiable l'onglet "Base" et "RÉCAP" tout en verrouillant tous les autres onglets.

Merci d'avance pour votre aide à tous.

Julien.

 

[julien1982]

Re,

Aide microsoft sur getOpenFileName

Cordialement

Désolé pas compris la reponse :s

 

[Hasco]

Re,

Veuillez m'excuser, je pensais répondre à un autre fil.

Mais si vous voulez avoir une réponse, alors joignez votre fichier avec une macro.

Une piste pour me faire pardonner :
If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RÉCAP" then .....

bonne soirée

 

[julien1982]

Re,

Veuillez m'excuser, je pensais répondre à un autre fil.

Mais si vous voulez avoir une réponse, alors joignez votre fichier avec une macro.

Une piste pour me faire pardonner :
If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RÉCAP" then .....

bonne soirée

Voila le fichier avec la macro qui verrouilles toutes les feuilles...

 

[Hasco]

Re,

Même pas tenté quelque chose, pourtant la piste donnée plus haut était la bonne !

Sub ProtegeFeuilles()
    Dim MaFeuille As Worksheet
    For Each MaFeuille In Worksheets
        If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Protect Password:="1234"
    Next
End Sub


Sub DeProtegeFeuilles()
    Dim MaFeuille As Worksheet
    For Each MaFeuille In Worksheets
        If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Unprotect Password:="1234"
    Next
End Sub

 

[julien1982]

Re,

Même pas tenté quelque chose, pourtant la piste donnée plus haut était la bonne !

Sub ProtegeFeuilles()
    Dim MaFeuille As Worksheet
    For Each MaFeuille In Worksheets
        If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Protect Password:="1234"
    Next
End Sub


Sub DeProtegeFeuilles()
    Dim MaFeuille As Worksheet
    For Each MaFeuille In Worksheets
        If MaFeuille.Name <> "Base" And MaFeuille.Name <> "RECAP" Then MaFeuille.Unprotect Password:="1234"
    Next
End Sub

Merci par contre avant de dire "même pas tenté...." deja il faut connaitre le niveau des gens concernant le vba...
bref en tout cas merci pour le temps que tu y a passé...