XL 2013 Protéger une sélection de feuilles

ludOw · 13 Décembre 2020

Bonjour.

J'ai un niveau très moyen (mauvais?) sur VBA. Je suis autodidacte. Pour autant, j'arrive à saisir comment il fonctionne. A l'aide de macros déjà proposées par d'autres membres, j'ai pu modeler quelques petites choses sympathique.

Je cherche à pouvoir gagner un peu de temps en créant une macro capable de verrouiller un 15aine de feuilles d'un seul coup. J'en ai trouvé, pour verrouiller tout un classeur, mais pas une partie seule.

J'ai une 30aines de feuilles dans ce classeur. Et une infime partie doit rester déverrouillée.

Je pars sur cette base :

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = Sheets(????)
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:=Motdepasse
Next i
End Sub

J'ai bien compris qu'il me reste à modifier la partie nombre = Sheets(??).

Je voudrais y mettre les feuilles, 1, 10, 11... 17 etc...

Comment dois-je rentrer cela?

C'est tout bête, mais j'ai pas mis la main sur VBA depuis des mois... j'arrive pas à résoudre ça seul.

Merci d'avance.

Staple1600 · 13 Décembre 2020

Bonjour

A adapter
(Ici dans cet exemple, toutes les feuilles seront protégées sauf les feuilles toto et titi)

VB:

Sub Protection()
Dim f As Worksheet
Sans_protection = Array("toto", "titi")
For Each f In Worksheets
If IsError(Application.Match(f.Name, Sans_protection, 0)) Then f.Protect "Umma19Gumma84"
Next
End Sub

XL 2013 Protéger une sélection de feuilles

ludOw

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires