Macro do Aplicativo Microsoft Excel VBA, oculta a folha de planilha ativa no modo xlSheetVeyHidden e ou xlSheetHidden, de acordo com a opção de escolha do usuário, veja que foi usado a estrutura Select Case.

Sub Ocultar_planilha_ativa()
On Error Resume Next
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar a planilha ativa Very Hidden? ", vbQuestion + vbYesNoCancel, "Saberexel - site das macros")

Select Case vPergunta
Case vbYes
ActiveSheet.Visible = xlSheetVeryHidden
Case vbNo
ActiveSheet.Visible = xlSheetHidden
Case vbCancel
Exit Sub
End Select

End Sub

Macro auxliar que usamos para fazermos o teste.
Sub mostrando_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Visible = True
End Sub



Aprenda Microsoft Excel VBA com qualidade Saberexcel

Saberexcel - O Site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, ocultam as planilhas que forem selecionadas na aba
Sub Ocultar_planilhas_selecionadas()
On Error GoTo Sair
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar as planilhas selecionadas ? ", vbQuestion + vbYesNo, "Saberexcel - site das macros")
If Not vPergunta = vbYes Then Exit Sub
ActiveWindow.SelectedSheets.Visible = False
Exit Sub
Sair: MsgBox Err.Description
End Sub

'Esta macro do Aplicativo Microsoft Excel VBA, mostram todas as planilhas, auxliando no teste
Sub mostrar_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Select
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel

Baixe o exemplo de planilha das macros acima

Macros do aplicativo Microsoft Excel VBA, impede navegação em células que não estejam desbloqueadas.

Macro funcionando na abertura do Workbook (Livro, assegure-se de que as células só desbloqueadas são selecionadas em uma Planilha protegida, liberando a navegação apenas para as células debloqueadas.

Sub Auto_Open()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox ("celulas bloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub

Esta segunda macro usamos como auxiliar para podermos testar o exemplo, observe que inserimos (FALSE), para deslproteger as células
Sub Debloquear_celulas()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
MsgBox ("celulas desbloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub

Sub Bloqueadas_celulas()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox ("celulas bloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel

Macro do Aplicativo Microsoft Excel VBA, contém renomeia a folha de planilha ativa, se a célula (D1) estiver preeenchida,
será inserido o nome relativo ao valor da célula(D1), senão será preenchido com o nome "Nova Planilha Saberexcel"

Sub Nomeando_planilha_ativa()
On Error Resume Next
If Range("D10").Value = "" Then
ActiveSheet.Name = "Nova Planilha Saberexcel"
MsgBox "Nome [" & ActiveSheet.Name & " ] porque a célula D10 está vazia", _
vbInformation, "Saberexcel - o site das macros"
Exit Sub
Else
ActiveSheet.Name = Range("D10").Value
MsgBox "Planilha nomeada como [ " & Range("D10") & " ] valor da célula[D10]", _
vbInformation, "Saberexcel - o site das macros"
End If
End Sub

Aprenda Aplicativo Microsoft Excel VBA com SaberExcel

SaberExcel o Site das Macros
Adiciona uma planilha e formula de números aleatórios na nova planilha de Range(A1:D4)

Macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha ao wkb (workbook) e definir sua propriedade Visible como (Oculta), e inserir nesta nova planilha uma fórmula de números aleatórios, em determinada range, isto é, na range A1:D4.

Este exemplo cria uma nova planilha e, em seguida,define sua propriedade Visible como xlVeryHidden.Para referir-se à planilha, use sua variável de objeto, Nova_Planilha, como mostrado na última linha do exemplo.Para usar a variável de objeto Nova_Planilha em um outro procedimento,você precisa declará-la como uma variável pública (Public Nova_Planilha As Object) na primeira linha do módulo antes de qualquer procedimento Sub ou Function.

Sub Adiciona_Plan_e_Formulas()
Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
End Sub

Observe a mesma macro, porém fiz uma pequena modificação para realização do teste do Desenvolvedor.
Sub Adiciona_Plan_e_Formulas()
Dim resposta As String

Application.DisplayAlerts = False 'nao emite e mensagem "deseja salvar...."
Sheets("Saberexcel").Visible = True
Sheets("Saberexcel").Delete 'na entrada da macro deleta a planilha existente.

Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Name = "SaberExcel"
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
Application.DisplayAlerts = False

resposta = MsgBox("Planilha [Saberexcel] criada com sucesso, ocultada, deseja visualizá-la?", vbYesNo + vbInformation, "Saberexcel - site das macros")

If resposta = 6 Then
Sheets("Saberexcel").Visible = True
End If

End Sub

Aprenda Aplicativo Microsoft Excel VBA --((( SaberExcel )))--