Home Excel - Dicas Microsoft Excel VBA Excel VBA - Worksheets Excel vba worksheet impede usuario deletar planilha emite msg

Excel vba worksheet impede usuario deletar planilha emite msg

E-mail Imprimir PDF

Saberexcel - o site das macros

Essas macros do Aplicativo Microsoft Excel VBA, impedem o usuário de deletar determinadas planilhas, enviando mensagem de proibição de deleção de Folha de Planilha. A macro abaixo Modificar_deletar_planilha(), tem por finalidade inserir um botão de menu à barra principal do aplicativo, no caso de estar usando Excel 2007 ou Excel 2010, na aba suplementos. (menus personalizados fica nesta Aba 'Suplementos')
'- acione os botões criado no menu personalizado para fazer o teste...

Sub Modificar_deletar_planilha()
Dim sb As CommandBarControl
For Each sb In Application.CommandBars.FindControls(ID:=847)
sb.OnAction = "Deleta_Planilha"
Next sb
End Sub

Sub Deleta_Planilha()
If ActiveSheet.Index = 1 Then
MsgBox "Voce não pode deletar esta planilha!", vbc + vbOKOnly + vbExclamation, "INFORMAÇÃO AO USUÁRIO - Saberexcel.com"
Else
Select Case MsgBox("Atenção voce vai deletar essa planilha !", vbc + vbYesNo + vbExclamation, "INFORMAÇÃO AO USUÁRIO - Saberexcel.com")
Case vbYes
ActiveSheet.Delete
Case vbOK
Exit Sub
End Select
End If
Exit Sub
End Sub


Sub Reabilitar_deletar_Planilha()
Dim sb As CommandBarControl
For Each sb In Application.CommandBars.FindControls(ID:=847)
sb.OnAction = ""
Next sb
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, praticando com os produtos didáticos  SaberExcel




   
Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba planilha barra personalizada nao permite deletar planilha (32.98 KB)




Publicidade:
Compre com segurança, qualidade, garantia e melhores preços nas lojas subMarinoInformática - Submarino.com.br

Última atualização em Dom, 04 de Setembro de 2011 09:05  

Comentários  

 
# 06/01/2013 18:45
Não consigo habilitar esta macro, ja li, e ainda não conseguir habilita-la, tem como postar um link de video. Eu agradeço muito
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_counterHoje4045
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30568
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17774
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440603
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