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