XL 2019 Protection feuilles multiples excel

julien1982

XLDnaute Occasionnel
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..


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.
 

Pièces jointes

  • Copie de Pointages Autres fonctions support 01-21.xlsx
    106.8 KB · Affichages: 8

Hasco

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Occasionnel
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...
 

Pièces jointes

  • Copie de Pointages Autres fonctions support 01-21.xlsm
    114.2 KB · Affichages: 7

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

Même pas tenté quelque chose, pourtant la piste donnée plus haut était la bonne !
VB:
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

XLDnaute Occasionnel
Re,

Même pas tenté quelque chose, pourtant la piste donnée plus haut était la bonne !
VB:
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é...
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO