Discussion :

[marie-42]

Sur mon excel je dois protéger certaines cellules, j'ai donc fais le programme suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Verouillage()
 
    Sheets("Exploitation et calc incertitud").Select
    ActiveSheet.Unprotect
    Range("L2:L13,M2:M15,N2:N15,O2:O10,P2:P10").Select
    Range("L2:L13,M2:M15,N2:N15,O2:O10,P2:P10").Activate
    Selection.Locked = True
    ActiveSheet.Protect Password:="1234"
 
End Sub

Le problème c'est que ça me bloque toute la feuille et pas juste les cellules que j'ai rentrer dans mon programme, je pense avoir manqué une ligne

[MacKay77]

Bonjour,

Il faut sélectionner et déverrouiller l'ensemble des cellules puis verrouiller les cellules concernées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Verouillage()
 
Sheets("Exploitation et calc incertitud").Select
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("L2:L13,M2:M15,N2:N15,O2:O10,P210").Select
Range("L2:L13,M2:M15,N2:N15,O2:O10,P210").Activate
Selection.Locked = True
ActiveSheet.Protect Password:="1234"
 
End Sub

Au passage, utilises la balise [CODE] pour que ton code soit plus agréable à lire

Bonne journée.

[marie-42]

Merci beaucoup, bonne journée

[Kiouane]

Marie-42 n'hésite pas à marquer comme résolu si tu as eu la réponse que tu cherchais. Merci !

[marie-42]

Oui il me manquait la ligne Cells