Página 1 de 1

[RESOLVIDO] Macro desabilita Botão direito do mouse

Enviado: Ter Fev 11, 2020 9:45 am
por milton
Bom dia Pessoal.

No excel quando clico com botão direito, as opções não aparecem.
Pelo que pesquisei, diz que alguma macro desabilita as opções, mas não achei a solução.
Alguém sabe como resolver?

Desde já agradeço.

Re: Macro desabilita Botão direito do mouse

Enviado: Qua Fev 12, 2020 12:54 pm
por webmaster
Você não desabilita o botão direito do mouse, você substitui ele por outra coisa. Faça o abaixo para conseguir a proeza:

Abra o VBA, Insira um novo módulo:

Código: Selecionar todos

Option Explicit

Public Const myBar As String = "MyPopupBar"


Sub CreatePopup()
Dim cmb As CommandBar
Dim ctr As CommandBarControl

DeletePopup

Set cmb = Application.CommandBars.Add(myBar, msoBarPopup)
Set ctr = cmb.Controls.Add(msoControlButton)

With ctr
    .Caption = "Click me"
    .OnAction = "ClickMe"
End With

cmb.ShowPopup

Set ctr = Nothing
Set cmb = Nothing

End Sub

Sub ClickMe()

    MsgBox "You clicked me!", vbInformation, "Wow!"

End Sub

Sub DeletePopup()

On Error Resume Next
Application.CommandBars(myBar).Delete

End Sub
Na janela de projeto, clique duas vezes na sua planilha e no código aberto, adicione o seguinte:

Código: Selecionar todos

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     CreatePopup
     Cancel = True
End Sub
Agora, clique com o botão direito do mouse. Voilá!

Fonte: https://stackoverflow.com/a/27839028

Re: Macro desabilita Botão direito do mouse

Enviado: Qui Fev 13, 2020 1:53 pm
por milton
webmaster obrigado pela atenção, porém não deu certo.

Com o código abaixo funcionou.

Sub sair_final()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Obrigado!