Detalhes de vba salvar ativa desativa controles salvar salvar como

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 - com Saberexcel