macro pour interdire le double clique de plusieurs cellules

Pierrot93

XLDnaute Barbatruc

• 14 Mai 2012

• #2

Re : macro pour interdire le double clique de plusieurs cellules

Bonjour,

regarde peut être ceci, controle sur la feuille entière, code à placer dans le module de la feuille concernée :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim m As String
m = InputBox("mot de passe ???")
If m <> "123" Then Cancel = True
End Sub

bon apprès midi
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Mai 2012

• #3

Re : macro pour interdire le double clique de plusieurs cellules

Re,
pour limiter à une plage de cellule :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim m As String
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
m = InputBox("mot de passe ???")
If m <> "123" Then Cancel = True
End Sub

 

Vote positif 0 Vote négatif

J

jujulebiker85

XLDnaute Nouveau

• 14 Mai 2012

• #4

Re : macro pour interdire le double clique de plusieurs cellules

ca marche presque merci juste un soucis avec le mot de passe il faut que je remplace mot de passe ??? par mon mot de passe? j'ai essayer ca me met une fenetre je rentre le mot de passe mais ça ne débloque pas la feuille

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Mai 2012

• #5

Re : macro pour interdire le double clique de plusieurs cellules

Re,

dans cette instruction :

Code:

If m <> "123" Then Cancel = True

il faut remplacer 123 par le mot de passe que tu veux utiliser....

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 14 Mai 2012

• #6

Re : macro pour interdire le double clique de plusieurs cellules

Bonjour jujulebiker, Pierrot93, le Forum,

Comme toujours, Pierrot s'est montré le plus rapide, mais comme je l'ai fait je joins mon travail.

Cordialement.

Edit : le mot de passe est défini par une constante ("0000") dans Module1, c'est là qu'il faut le modifier le cas échéant.

 

Pièces jointes

• jujulebiker.xlsm

  17.9 KB · Affichages: 43

Vote positif 0 Vote négatif

J

jujulebiker85

XLDnaute Nouveau

• 14 Mai 2012

• #7

Re : macro pour interdire le double clique de plusieurs cellules

ok j'essaie et pour ici

If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub

si je veux mettre colone I ligne 4 à 300 et k ligne 4 à 300 et u ligne 4 à 300 je les ecrit comment?

encore merci vous etes super!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Mai 2012

• #8

Re : macro pour interdire le double clique de plusieurs cellules

Re, bonjour Papou Net,

modifie le test comme suit :

Code:

If Intersect(Target, Range("A4:A300,K4:K300,U4:U300 ")) Is Nothing Then Exit Sub

 

Vote positif 0 Vote négatif

J

jujulebiker85

XLDnaute Nouveau

• 14 Mai 2012

• #9

Re : macro pour interdire le double clique de plusieurs cellules

enorme merci tout fonctionne la version de papoue me parait plus compliqué vous etes des betes les mec milles merci!

 

Vote positif 0 Vote négatif

J

jujulebiker85

XLDnaute Nouveau

• 14 Mai 2012

• #10

Re : macro pour interdire le double clique de plusieurs cellules

encore merci tout le monde je vais ouvrir un autre post pour une autre demande différente

 

Dernière édition: 14 Mai 2012

Vote positif 0 Vote négatif