Discussion :

[patbalotelli]

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

[MacKay77]

Bonjour,

Concernant le problème sur la macro de déverrouillage, tu as oublié de protéger à nouveau la feuille après avoir déverrouillé les cellules à déverrouiller.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Cells.Select
Selection.Locked = False
ActiveSheet.Protect

Pour le problème de verrouillage, réessaye avec cette modification.

[patbalotelli]

j'ai essayé tjrs le même problème, quand je déverrouille tout la feuille ce déverrouille. y'a juste le format des cellules qui reste protégé

[MacKay77]

Et en virant la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Select

[patbalotelli]

c'est bon ca marche merci bcp