ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[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: 139
Registrado em: Sex Jun 17, 2016 8:22 am

[RESOLVIDO] Macro desabilita Botão direito do mouse

Mensagem por milton » Ter Fev 11, 2020 9:45 am

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 784 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: 2826
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Macro desabilita Botão direito do mouse

Mensagem por webmaster » Qua Fev 12, 2020 12:54 pm

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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

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

Re: Macro desabilita Botão direito do mouse

Mensagem por milton » Qui Fev 13, 2020 1:53 pm

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