Cellules verrouillées SUITE

[Philippe]

Bonsoir,
encore moi avec mes problèmes de cellule vérouillée

Donc pour passer de cellule verroulilée en cellule vérouillée avec ENTER ou les flèches de direction in faut activer dans le code de la feuille en question EnableSelection = xlUnlockedCells

Le problème c'est q'à la fermeture du classeur (sauvegardé et tout comme il faut), la propriété ne se conserve pas (ou se réinitialise à chaque ouverture......)

Je me suis dit qu'avec ça:
Private Sub Worksheet_Activate()
ActiveSheet.Select
With Selection
.EnableSelection = xlUnlockedCells
End With
End Sub

ça devrait le faire....
Eh bah non!!!

je fatigue... QQun aurait-il une idée ???

Merci d'avance à tous

A+
PHILIPPE

 

[Philippe]

Bon bah je me répond tout seul (j'ai peut être posté un peu vite) maics comme je n'ai pas trouvé de réponse dans les archives ni sur GOOGLE, ça pourra peut-être être utile à QQun:

donc à placer dans Thisworkbook:

Private Sub Workbook_Open()
With Worksheets(1)
.EnableSelection = xlUnlockedCells
.Protect Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Cette fois ci bonne nuit à tous

A+
Philippe