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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[RESOLVIDO] Macro desabilita Botão direito do mouse
[RESOLVIDO] Macro desabilita Botão direito do mouse
- Anexos
-
- Capturar.PNG (8.15 KiB) Exibido 2200 vezes
Editado pela última vez por milton em Qui Fev 13, 2020 1:54 pm, em um total de 2 vezes.
Re: Macro desabilita Botão direito do mouse
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:
Na janela de projeto, clique duas vezes na sua planilha e no código aberto, adicione o seguinte:
Agora, clique com o botão direito do mouse. Voilá!
Fonte: https://stackoverflow.com/a/27839028
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
Código: Selecionar todos
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
CreatePopup
Cancel = True
End Sub
Fonte: https://stackoverflow.com/a/27839028
Re: Macro desabilita Botão direito do mouse
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!
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!