Dan,

Bom dia!

Eu desconheço um comando que faça a reabilitação de todas as funções. Normalmente esses comando são feitos individualmente e, para isso, é necessários saber qual foi a função desabilitada.

Nesse caso, você só tem duas opções: 1 - Desinstalar e reinstalar o Excel da máquina onde ocorreu isso. 2 - Tentar adquirir um software de desbloqueio de senhas ou enviar o arquivo para algum site que se proponha a isso (desbloqueio de arquivos protegidos). Pois, conseguindo visualizar o código, poderá saber quais funções estão sendo desabilitadas.

Se o botão direito não funciona

Uma boa solução seria reabilitar todos os menus, e o botão direito

Sub habilitar()
For Each cbar In Application.CommandBars
cbar.Enabled = True
Next cbar
End Sub

mas para reabilitar todos os comandos, você tem que saber qual comando não está funcionando

Syrax, funcionou, mas apenas no arquivo em que a macro é gravada, ao iniciar um novo arquivo o problema retorna. Obrigado mesmo assim!

Se o botão direito não funciona

Uma boa solução seria reabilitar todos os menus, e o botão direito

Sub habilitar()
For Each cbar In Application.CommandBars
cbar.Enabled = True
Next cbar
End Sub

mas para reabilitar todos os comandos, você tem que saber qual comando não está funcionando

Dan,

Quando te passei a informação, imaginei que você ia saber o que fazer

Vou te passar passo a passo

Abra uma nova planilha, coloque o código abaixo em EstaPasta_de_trabalho

Private Sub Workbook_Open()
For Each cbar In Application.CommandBars
cbar.Enabled = True
Next cbar
End Sub

Salve a planilha com qualquer nome no formato .xlsm, feche ela
Abre novamente a planilha, o evento workbook_open vai ser ativado, salve ela, e feche novamente (você pode excluir a planilha depois disso)

Esse procedimento deve fazer com que volte novamente todos os menus
Se não voltar ao normal, você deve corrigir o Excel

Syrax, eu havia feito isso e os menus voltaram, no entanto o botão direito continuou sem funcionalidade nos outros arquivos. Creio que a maior dificuldade foi a impossibilidade de visualizar o código que gerou o problema. Precisei reinstalar o programa por causa da pressa.

Obrigado pela ajuda!

Dan,

Quando te passei a informação, imaginei que você ia saber o que fazer

Vou te passar passo a passo

Abra uma nova planilha, coloque o código abaixo em EstaPasta_de_trabalho

Private Sub Workbook_Open()
For Each cbar In Application.CommandBars
cbar.Enabled = True
Next cbar
End Sub

Salve a planilha com qualquer nome no formato .xlsm, feche ela
Abre novamente a planilha, o evento workbook_open vai ser ativado, salve ela, e feche novamente (você pode excluir a planilha depois disso)

Esse procedimento deve fazer com que volte novamente todos os menus
Se não voltar ao normal, você deve corrigir o Excel

Wagner, consegui resolver o problema reinstalando o programa, não tive tempo de esperar o desbloqueio do arquivo (creio que o desbloqueio seja mais demorado).

Obrigado pela ajuda

Dan,

Bom dia!

Eu desconheço um comando que faça a reabilitação de todas as funções. Normalmente esses comando são feitos individualmente e, para isso, é necessários saber qual foi a função desabilitada.

Nesse caso, você só tem duas opções: 1 - Desinstalar e reinstalar o Excel da máquina onde ocorreu isso. 2 - Tentar adquirir um software de desbloqueio de senhas ou enviar o arquivo para algum site que se proponha a isso (desbloqueio de arquivos protegidos). Pois, conseguindo visualizar o código, poderá saber quais funções estão sendo desabilitadas.

Dan

Isso já aconteceu comigo em 2010 e não precisa reinstalar, basta fazer o seguinte:
Entre no editor de registro
(Iniciar/Executar/Regedit) e renomear a chave abaixo:
- HKEY_CURRENT_USERSoftwareMicrosoftOffice para Office.old

Eu até já ajudei um usuário em outro fórum sobre isso em 2011, se você tive feito um pesquisa no Google teria encontrado este tópico.

http://www.clubedohardware.com.br/forum ... esativado/

Mas de qualquer maneira, fica aí a dica.

[]s

Patropi,

Boa noite!

Muito bom! Mas uma que aprendi. Excelente.