Tente usar um destes códigos; 'Esta pasta de Trabalho cole Private Sub Workbook_Open() Desativar_Teclas_Atalhos 'modulo 1 Desativar_Arasto 'modu...

Ola, Gostaria de poder lhe ajuda mas, minhas informações são poucas sobre Outlook. Obrigado!

Ola boa noite, Não sei se é este exemplo, mas tente adaptar os código em anexo, aguardamos respostas. Exemplo.rar

Obrigado Wagner Morel, resolvido.

Esta pasta de trabalho cole; Private Sub Workbook_Activate() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"&...

Este programa cria um menu personalizado Custom UI Editor For Microsoft Office Segue em anexo um modelo Pasta1.xlsx

Obrigado alexandrevba, Resolvido

Resolvido, obrigado Gilmar, postei o codigo para futuras dúvidas dos leitores Private Sub CommandButton1_Click() Dim Linha As Long Dim Linhas As Long...

Não deu certo, se puder me ajudar fico agradecido, segue modelo em anexo. Teste UserForm.xlsm

Resolvido, obrigado

Talvez resolva, coloque isso no verso da aba. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range ActiveSheet.Unprotect Password...