Bonjour,
Voilà mes deux macros une pour verrouiller une plage de cellule
L’autre pour déverrouiller. Le problème est que quand j’exécute la macro déverrouiller elle me déverrouille toute la feuille j’aimerais qu’elle me déverrouille que la plage sélectionné.
Et quand je veux exécuter la macro verrouiller de nouveau, il faut que je recoche la casse verrouillé dans format cellule, protection pour que ça marche.
Si je pouvais avoir un coup de main merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Verouillage()
    Sheets("Feuil1").Select
    ActiveSheet.Unprotect
    Range("B1:F1,B2:F2").Select
    Range("B7").Activate
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect Password:="0000", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
 
End Sub
 
Sub Deverouillage()
    Sheets("Feuil1").Visible = True
    Sheets("Feuil1").Select
    ActiveSheet.Unprotect
    Range("B1:F1").Select
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
   'Sheets("EnterData" ).Visible = False
End Sub