Desabilitar Salvar Como

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Desabilitar Salvar Como

Mensagem  KDU em Seg Dez 12, 2011 4:02 pm

Esta macro desabilita o botão Salvar Como do menu Arquivo.
Incluímos também o comando para ativar o Salvar Como.

'Macro-------------------------------------------------------------

Option Explicit

Sub Desabilitar_Salvar_Como()
Dim cbControles As CommandBarControl
With CommandBars("File")
Set cbControles = .FindControl(ID:=3)
cbControles.Enabled = False
Set cbControles = .FindControl(ID:=748)
cbControles.Enabled = False
End With
End Sub

Sub Habilitar_Salvar_Como()
Dim cbControles As CommandBarControl
With CommandBars("File")
Set cbControles = .FindControl(ID:=3)
cbControles.Enabled = True

Set cbControles = .FindControl(ID:=748)
cbControles.Enabled = True
End With
End Sub
avatar
KDU
Admin

Mensagens : 26
Data de inscrição : 17/08/2011
Idade : 36

http://excel.queroforum.net

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum