Invés de proteger a planilha, protege a pasta de trabalho.

Olá Bernardo!

Obrigado por responder.
O problema é que eventualmente preciso criar planilhas consolidando dados extraidos de sistemas diferentes para enviar para superiores.
Uso muito as funções PROCV e INDICE;CORRESP, aleém de outras para somar condicionalmente. Isso me ajuda a juntar os dados.
meu receio é que quando abrir a planilha resumida, abram também as outras e excluam os vinculos ou se confundam com tanta informação na pasta de trabalho.

Se tiver um jeito de ocultar e somente eu possa reexibir, já estaria bom.

Grato.

Silvio

boa noite Silvio

Neste link tem um tutorial para ocultar planilha com senha.

http://www.baboo.com.br/conteudo/modelo ... 49_z0.aspx

Espero que seja útil.

Abraço.

Boa tarde Patropi.

Valeu a dica do link.
Contudo o que queria mesmo era impedir a exclusão das planilhas e não apenas ocultá-las.

Se não tiver jeito, sem problema.

Pode encerrar o tópico.

Um abraço.

Silvio

Boa tarde!!
Quem sabe isso te ajude...

use Alt + F11para entrar no Editor VB.
Cole dentro de Estpasta_de_Trabalho

Option Explicit

Private Sub Workbook_Deactivate()
    Application.CommandBars("Cell").Reset
End Sub
 
 
Private 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 0
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.CommandBars("Cell").Reset
End Sub

Cole em um módulo

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