Impedir exclusão de guias

[fer.mf]

Ola pessoal tudo bem?

Estou fazendo uma planilha e estou com uma duvida existe uma forma de impedir que o usuário consiga excluir as guias da planilha.

Tipo se ele tentar excluir que apareça um aviso dizendo você não pode excluir.

Obrigado

[Patropi]

Bom dia fer.mf

 

Veja se este código pode te ajudar:

 

Copie e cole este código dentro de Esta Pasta de Trabalho

Option ExplicitPrivate Sub Workbook_Deactivate()    Application.CommandBars("Cell").ResetEnd SubPrivate Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)    Dim cBut As CommandBarControl    Dim iPostion As Integer    On Error Resume Next         Sh.Protect UserInterFaceOnly:=True    Application.CommandBars("Cell").Controls("CLEAR ALL").Delete    With Application.CommandBars("Cell")        iPostion = .Controls("Delete...").Index        Set cBut = .Controls.Add(Before:=iPostion, Temporary:=True)        .Controls("Delete...").Delete                 With cBut            .Caption = "CLEAR ALL"            .OnAction = "ClearAll"        End With    End With    On Error GoTo 0End SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)    Application.CommandBars("Cell").ResetEnd Sub

Este código, copie e cole em um módulo:

Sub ClearAll()    ActiveSheet.Protect UserInterFaceOnly:=True    Selection.ClearEnd Sub

Se foi útil, clique em Curtir.

 

[]s

[fer.mf]

Ola Patropi, continuo conseguindo excluir. Copiei tudo certinho em uma planilha em branco para teste e clico na guia com o botão direito e excluo normalmente.

[Basole]

O codigo abaixo desabilita, no menu da aba, opção excluir:

 

cole o codigo em cada planilha (aba) que queira proteger

 

Private Sub Worksheet_Activate()
    ThisWorkbook.Protect Password:="1234", Structure:=True
End Sub

Private Sub Worksheet_Deactivate()
    ThisWorkbook.Unprotect Password:="1234"
End Sub

 

 

Ou/E tambem a opcao de desabilitar o menu da planilha (aba):

 

Cole o codigo em cada planilha (aba) que queira desabilitar

 

Private Sub Worksheet_Activate()
CommandBars("Ply").Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
CommandBars("Ply").Enabled = True
End Sub

[fer.mf]

Opa!! agora acho que vai dar certo consigo mesclar esse seu código no meu e vai dar certo!! 

Obrigado!!!

[Basole]

Alem disso, eu tenho um exemplo, (sem uso de macro) e com o uso do editor de Ribom:

 

 http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2006/05/26/customuieditor.aspx

 

Que desabilita, no menu, somente a opção "Exluir" e em todas as planilhas (Abas). 

 

Talvez possa servir p/ outros usuario, segue o anexo.: 

Excluir Abas - Desabilitado.xlsx