Home Excel - Dicas Microsoft Excel VBA Excel VBA - Salvar Como Excel planilha vba salvar ativa desativa controles salvar salvar como

Excel planilha vba salvar ativa desativa controles salvar salvar como

E-mail Imprimir PDF

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)

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

Comentários  

 
# Paulo Lopes 02/07/2014 16:03
Olá,

Eu testei essa macro de desabilitar e habilitar a opção "Salvar" no Excel 2010 e não funcionou, saberia me passar uma macro que funcione nessa versão 2010? E se possível tem como enviar também só para desabilitar a opção "Salvar" e deixar a opção "Salvar Como" habilitado.

Obrigado.
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje908
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30672
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44401
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467230
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA