1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub lockunlock(sname As String)
'Barrer toutes les cellules
Sheets(sname).Activate
Sheets(sname).Cells.Locked = True
Sheets(sname).Cells(1, 1).Select
'Débarrer cellules requises
x = 1
While Range("unlock_liste_noms").Offset(x, 0) <> ""
If Range("unlock_liste_noms").Offset(x, 1) = 1 Then
nametounlock = Range("unlock_liste_noms").Offset(x, 0)
ActiveSheet.Range(nametounlock).Select
Selection.Locked = False
End If
x = x + 1
Wend
If ActiveSheet.Range("Res_Strat") <> "" Then
ActiveSheet.Range("unlock_strat_res").Select
Selection.Locked = True
End If
Sheets(sname).Cells(1, 1).Select |
Partager