protection d'une plage de donnée

[gege]

bonjours
voici un extrai du programme recupere sur ce site
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address() = '$G$12' Or ActiveCell.Address() = '$G$14' Then
UserFormPass.Show
End If
End Sub'
mon probleme est que je veux lancer mon userform non pas lorsque l'on clique sur une cellule precise comme ici g12 ou g14 mais plutot sur une plage de donnée comme a1:b45
si quelqu'un a une solution je l'en remercie

 

[Eric C]

Bonjour le forum
Bonjour gégé

Essayes le code ci-dessous :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A1:B45')) Is Nothing Then
UserFormPass.Show
End If
End Sub