Excel planilha vba salvar ativa desativa controles salvar salvar como

Sáb, 27 de Novembro de 2010 08:05 Expedito Marcondes
Imprimir

Saberexcel - o site das macros

Essas macros do Aplicativo Microsoft Excel VBA, habilitam e ou desabilitam os ítens salvar e salvar como do Aplicativo Excel,

Option Explicit
'desabilita ítem salvar e salvar como do menu Arquivo
Sub Desabilitar_Salvar_Como()
Dim cbControles As CommandBarControl
Sheets("Plan_Saber1").Cells(3, 2) = "Ítens Salvar e Salvar como Desabilitado"
With CommandBars("File")
Set cbControles = .FindControl(ID:=3)
cbControles.Enabled = False
Set cbControles = .FindControl(ID:=748)
cbControles.Enabled = False
End With
End Sub


'habilita ítem salvar e salvar como do Menu Arquivo.
Sub Habilitar_Salvar_Como()
Dim cbControles As CommandBarControl
Sheets("Plan_Saber1").Cells(3, 2) = "Ítens Salvar e Salvar como Habilitado"
With CommandBars("File")
Set cbControles = .FindControl(ID:=3) 'salvar
cbControles.Enabled = True

Set cbControles = .FindControl(ID:=748) 'salvar como
cbControles.Enabled = True
End With
End Sub


 
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel


 

 


  Baixe o exemplo de planilha contendo as macros acima
vba salvar ativa desativa controles salvar salvar como (84.7 kB 2010-11-27 09:14:35)

Tags:
Última atualização em Ter, 23 de Agosto de 2011 08:38