Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cellules verrouillées SUITE

Philippe

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…