XL 2013 Déverrouiller des cellules en cas de collage d'une feuille dans un nouveau classeur

mastaflow

XLDnaute Nouveau
Bonjour à tous et à toutes,
Dans ce code Vba qui est mis dans des cellules d'une feuille Excel et qui permet de verrouiller les cellules d'une feuille sélectionnées (Worksheet), j'aimerai pouvoir ajouter une condition qui permet de déverrouiller les cellules sélectionnées en cas de collage de la feuille en question dans un nouveau classeur.
Alors que dans le classeur actuel, les cellules sont bien verrouillées.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:A17,D1:F1,D4:H16,A22:B22,A23:M23"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub

Merci d'avance
 

DoubleZero

XLDnaute Barbatruc
Re : Déverrouiller des cellules en cas de collage d'une feuille dans un nouveau class

Bonjour, mastaflow, le Forum,

Si la présente demande fait suite à celle-ci, il suffit d'enregistrer le nouveau fichier au format xlsx., lequel ne comportera plus aucune macro.

A bientôt :)
 

mastaflow

XLDnaute Nouveau
Re : Déverrouiller des cellules en cas de collage d'une feuille dans un nouveau class

bonjour le forum,
Oui effectivement vous avez bien remarqué et encore merci pour la réponse, juste il fallait fermer le NOUVEAU classeur suite à l'export et le ré-ouvrir pour que ça marche puisqu'il y'avait comme une liaison entre les deux en changeant bien sur l'extension du fichier à xlsx.
Merci encore c'était la suite de la première question
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas