PROTEGENDO E OCULTANDO.

ROBSONSLZ 29/06/2010 12:04:27
#346053

Olá Pessoal,

Qual seria a instrução para proteger e ocultar as 6 planilhas, deixando apenas o Menu Principal.
Veja abaixo:
[ô]----------------------------------------------------------------------------
[ô]EstaPasta_de_Trabalho
Private Sub Workbook_Open()
On Error GoTo Erro
Dim sh As Worksheet

[ô]Limpa a combo
Worksheets([Ô]Menu[Ô]).cboExibirPlan1.Clear
Worksheets([Ô]Menu[Ô]).cboExibirPlan2.Clear

[ô]Lista todas as planilhas
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> ActiveSheet.Name Then
If Plan1.cboExibirPlan1.ListCount < 3 Then
Worksheets([Ô]Menu[Ô]).cboExibirPlan1.AddItem sh.Name
Else
Worksheets([Ô]Menu[Ô]).cboExibirPlan2.AddItem sh.Name
End If
End If
Next sh
Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub
[ô]----------------------------------------------------------------------------
[ô]Plan1
Private Sub cboExibirPlan1_Change()
On Error GoTo Erro

If cboExibirPlan1.Text <> [Ô][Ô] Then
ThisWorkbook.Worksheets(cboExibirPlan1.Text).Select
End If


Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub

Private Sub cboExibirPlan2_Change()
On Error GoTo Erro

If cboExibirPlan2.Text <> [Ô][Ô] Then
ThisWorkbook.Worksheets(cboExibirPlan2.Text).Select
End If


Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub
[ô]----------------------------------------------------------------------------

Fico grato a quem tiver uma dicas onde colocar,
pode ser via módulo.

Robson[ô]s