SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

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)