Compartilhar via

Evento Worksheet.BeforeRightClick (Excel)

  • Artigo

Ocorre quando uma planilha é clicada com o botão direito, antes da ação padrão de clique com o botão direito.

Sintaxe

expressão. BeforeRightClick (Destino , Cancelar)

Expressão Uma variável que representa um objeto Worksheet .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Target Obrigatório Range A célula mais próxima ao ponteiro do mouse quando ocorre o clique com o botão direito.
Cancel Obrigatório Boolean False quando o evento ocorre. Se o procedimento de evento definir este argumento como True, a ação padrão de clique com o botão direito não ocorrerá quando o procedimento for concluído.

Comentários

Como outros eventos de planilha, esse evento não ocorre quando você clica com o botão direito enquanto o ponteiro se encontra em uma forma ou uma barra de comando (uma barra de ferramentas ou uma barra de menus).

Exemplo

Este exemplo adiciona um novo item de menu ao menu de atalho para células B1:B10.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ 
 Cancel As Boolean) 
 Dim icbc As Object 
 For Each icbc In Application.CommandBars("cell").Controls 
 If icbc.Tag = "brccm" Then icbc.Delete 
 Next icbc 
 If Not Application.Intersect(Target, Range("b1:b10")) _ 
 Is Nothing Then 
 With Application.CommandBars("cell").Controls _ 
 .Add(Type:=msoControlButton, before:=6, _ 
 temporary:=True) 
 .Caption = "New Context Menu Item" 
 .OnAction = "MyMacro" 
 .Tag = "brccm" 
 End With 
 End If 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.