Verrouiller plusieurs cellules sur plusieurs onglets d'un même fichier

Bonjour

je souhaite verrouiller sur 18 onglets (nommés O_37 à O_54) d'un même fichier les cellules C1-C32 et D1-D3; D5; D17; D27-D32 en sachant qu'un dernier onglet nommé Résultat ne doit pas être concerné par cette procédure de verrouillage.

Comment puis je le faire afin de ne pas répéter la même procédure pour chaque onglet?

Merci de vos lumières

pbpb76

Salut pbpb

Tu peux placer sa dans un module classique :

Sub Macro2()
For x = 1 To Worksheets.Count                       'De la feuille 1 à la dernière feuille
    If Sheets(x).Name = "Résultat" Then Exit For    'Si la feuille s'appel "Résultat" alors on arrête
    Sheets(x).Select
    ActiveSheet.Unprotect                       'On retire la protection de la Feuil n°x
    Cells.Locked = False                        'On déverouille TOUTE les cellules de la feuilles
    Range("C1:C32").Locked = True               'On verouille les cellules qui nous intéresse
    Range("D1:D3").Locked = True
    Range("D5:D17").Locked = True
    Range("D27:D32").Locked = True              'On protège la feuille :
    Sheets(x).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

Le code s’exécutera de la Feuil 1 jusqu'à ce qu'il atteigne la Feuil "résultat"

Restant à ta dispo!

Bonjour,

Un exemple, mais la demande prête à questions !...

Public Sub Main()
Dim i As Byte
Const strRNG As String = "C1:C32,D1:D3,D5,D17,D27:D32"
    For i = 37 To 54
        With ActiveWorkbook.Worksheets("O_" & i)
            .Cells.Locked = False
            .Range(strRNG).Locked = True
        End With
    Next i
End Sub

Je savais pas du tout que sélectionner une plage de cellule comme sa était possible :

Const strRNG As String = "C1:C32,D1:D3,D5,D17,D27:D32"

Sa va me changer la vie xD

Re,

Bonjour Juice,

C'est ton cadeau de Noêl !...

Cdlt.

Rechercher des sujets similaires à "verrouiller onglets meme fichier"