XL 2013 Protéger une sélection de feuilles

ludOw

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
2
Affichages
110

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth