Don't know about the lack of personal.xlsb or workbook naming but the following is a reverse of the code that changed all the settings
Sub UndoDesabilita()
' Inserir
EnableControl 295, True '..células
EnableControl 296, True '.. Linhas
EnableControl 297, True '.. Colunas
' Excluir...
EnableControl 478, True ' Editar > Excluir
EnableControl 292, True ' & Excluir
EnableControl 293, True '...Linha
EnableControl 294, True '... Coluna
EnableControl 847, True '...Guia RightClick
' Limpar
EnableControl 3125, True ' Limpar Conteúdo
EnableControl 1964, True ' Tudo
EnableControl 872, True ' Formatar
EnableControl 873, True ' Conteúdo
EnableControl 874, True ' Comentários
' Recortar Copiar Colar
EnableControl 21, True ' Recortar
EnableControl 19, True ' Copiar
EnableControl 22, True ' Colar
EnableControl 755, True 'ColarEspecial
' Teclas de Atalho
With Application
.OnKey "^z" ', "alerta"
.OnKey "^c" ', "alerta"
.OnKey "^v" ', "alerta"
.OnKey "+{DEL}" ', "alerta"
.OnKey "+{INSERT}" ', "alerta"
.OnKey "^{PGUP}" ', "alerta" 'Ctrl+PgUp sheet anterior
.OnKey "^{PGDN}" ', "alerta" 'Ctrl+PgDn sheet posterior
.OnKey "%{F8}" ', "alerta"
.OnKey "%{F11}" ', "alerta"
.OnDoubleClick = "" '"alerta"
.CellDragAndDrop = True 'False
End With
' Alterar barra de ferrmantas
CommandBars("Toolbar List").Enabled = True 'False
End Sub
Sub EnableControl(iId As Integer, blnState As Boolean)
Dim ComBar As CommandBar
Dim ComBarCtrl As CommandBarControl
On Error Resume Next
For Each ComBar In Application.CommandBars
Set ComBarCtrl = ComBar.FindControl(ID:=iId, recursive:=True)
If Not ComBarCtrl Is Nothing Then ComBarCtrl.Enabled = blnState
Next
End Sub
Bookmarks