Verouillage et puces à cocher.

[passio]

Bonjour, comment faire pour déverouiller les puces lorsque je vérouille le document ? Je le fais avec un clic droit, je trouve l'option mais ça ne fonctionne pas lorsque je vérouille, même si je coche tout pour laisser tous les droits de modification..

[White Mibu]

Bonjour,

à mettre dans ALT+F11, Microsoft Excel Objets, double clic sur ThisWorkBook !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    If ActiveSheet.ProtectContents = True Then
 
    ActiveSheet.Unprotect
 
    Cells.Locked = True
    Range("F5:F14").Locked = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
 
    End If
 
End Sub

après protège ta feuille normalement et les cases à cocher resteront accessible.

Cordialement