Bom dia!!

Veja se vai dar certo, não foi testado.

Insira dentro do modulo de pasta de trabalho

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim sht As Worksheet: Set sht = Sh
    If sht.Name = "Plan1" Then
        SetDeleteOption (False)
    End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Dim sht As Worksheet: Set sht = Sh
    If sht.Name = "Plan1" Then
        SetDeleteOption (True)
    End If
End Sub
Private Sub SetDeleteOption(ByVal AllowDelete As Boolean)
    Dim CommBarTmp, Commbar As CommandBar
    For Each Commbar In Application.CommandBars
        Set CommBarTmp = Commbar.FindControl(ID:=847, recursive:=True)
        If Not CommBarTmp Is Nothing Then CommBarTmp.Enabled = AllowDelete
    Next
End Sub

Obrigado pela ajuda!

Testei mas não funcionou.
Agora pensando melhor, gostaria de ter as opções:
1. Impedir que uma determinada plan não fosse possível excluir (ex. plan1)
2. Impedir que nenhuma plan do arquivo pudesse ser excluida, mas que pudesse ser adicionada novas.

Grato
Salvir

Boa noite!!

Dentro do modulo de planilha coloque o código

Private Sub Worksheet_Activate()
    ThisWorkbook.Protect "SuaSenha"
End Sub

Private Sub Worksheet_Deactivate()
    ThisWorkbook.Unprotect "SuaSenha"
End Sub

Obrigado pela ajuda, mas não funcionou da forma que preciso.
O que preciso é que não seja possível excluir as planilhas existentes no arquivo, mas que possa ser incluída novas planilhas e que não tenha acesso a senha, pq quem vai usar só pode inserir.

Grato,
Salvir