pop Up niet tonen

[don42]

Beste helpers

Bij rechtsklik komt er een userform met de optie om een cel een kleur te geven
dit lukt, maar iedere keer verschijnt dan de pop-up met opties (opmaak)
kan iemand mij helpen dat dit niet meer gebeurd?

Don.

 

[loek010]

Probeer 1 van deze 2 eens :

SendKeys "{ESC}"

Cancel = True

of nog beter :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
    If Not Intersect(Target, Range("H5:N15")) Is Nothing Then
        Set rng = ActiveSheet.Range("H5:N15")
        If ActiveCell Then
            UserForm1.Show
        End If
      End If
    Cancel = True
End Sub

 

[don42]

Top

met de bovenste optie is het gelukt
bedankt voor je hulp
:thumb:

 

[loek010]

Hallo Don,

Ik denk dat de derde optie beter is dan zie je ook de flikkering niet

 

[don42]

Veel beter,
Dit is precies wat ik graag had
Helemaal goed :d

 

[AD1957]

Nog gebruiksvriendelijker.
Zet wel nog even onder de eigenschappen van userform1 showmodal op False

 

[VenA]

Moet niet zo zijn?
Voor de beperking op de range maar met de beschikbaarheid van de rechter muisknop voor de rest van het blad.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("H5:N15")) Is Nothing Then
    UserForm1.Show
    Cancel = True
  End If
End Sub

Of alleen het formulier openen bij een rechtsklik. Geldt dan voor het hele wekblad.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  UserForm1.Show
  Cancel = True
End Sub