OVH Cloud OVH Cloud

Verrouillage cellule

2 réponses
Avatar
claudem
Bonjour,

Un petit pb de verrouillage de cellule avec "EnableSelection" que je
positionne avec la valeur "1 XlUnlockedCells" mais qui n'est plus active à la
réouverture du fichier malgré la sauvegarde..
qq a une idée ?
Merci
Claude

2 réponses

Avatar
MichDenis
Bonjour Claude,


Essaie ceci : prend soin d'adapter le nom de la feuille dans la procédure !

'------------------------------
Private Sub Workbook_Open()

With Worksheets("Feuil1")
.EnableSelection = xlUnlockedCells
.Protect Contents:=True, UserInterfaceOnly:=True
End With

End Sub
'------------------------------

Salutations!



"" a écrit dans le message de news:

Bonjour,

Un petit pb de verrouillage de cellule avec "EnableSelection" que je
positionne avec la valeur "1 XlUnlockedCells" mais qui n'est plus active à la
réouverture du fichier malgré la sauvegarde..
qq a une idée ?
Merci
Claude
Avatar
Denis Michon
J'oubliais, cette procédure doit être mise dans le ThisWorkbook de ton projet VBA

'------------------------------
Private Sub Workbook_Open()

With Worksheets("Feuil1")
.EnableSelection = xlUnlockedCells
.Protect Contents:=True, UserInterfaceOnly:=True
End With

End Sub
'------------------------------

Salutations!



"" a écrit dans le message de news:

Bonjour,

Un petit pb de verrouillage de cellule avec "EnableSelection" que je
positionne avec la valeur "1 XlUnlockedCells" mais qui n'est plus active à la
réouverture du fichier malgré la sauvegarde..
qq a une idée ?
Merci
Claude