Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO] Macro desabilita Botão direito do mouse

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

[RESOLVIDO] Macro desabilita Botão direito do mouse

Mensagem 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.
Anexos
Capturar.PNG
Capturar.PNG (8.15 KiB) Exibido 2202 vezes
Editado pela última vez por milton em Qui Fev 13, 2020 1:54 pm, em um total de 2 vezes.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Macro desabilita Botão direito do mouse

Mensagem 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


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Macro desabilita Botão direito do mouse

Mensagem 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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder