Como ocultar automaticamente planilhas específicas ao abrir um arquivo Excel?
Se você precisar ocultar algumas planilhas específicas automaticamente quando alguém abrir a pasta de trabalho, como você poderia lidar com esse trabalho no Excel?
Oculte uma planilha específica automaticamente ao abrir uma pasta de trabalho com código VBA
Oculte algumas planilhas específicas automaticamente ao abrir uma pasta de trabalho com código VBA
Oculte uma planilha específica automaticamente ao abrir uma pasta de trabalho com código VBA
Se você deseja ocultar uma planilha específica ao abrir a pasta de trabalho, você pode aplicar o seguinte código VBA.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No lado esquerdo Projeto-VBAProject painel, clique duas vezes no Esta pasta de trabalho para abrir um módulo em branco e, em seguida, copie e cole o seguinte código no módulo:
Código VBA: oculte uma planilha específica ao abrir uma pasta de trabalho:
Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub
Note: No código acima, Sheet5 é o nome da página que você deseja ocultar ao abrir. Por favor, mude de acordo com sua necessidade.
3. Em seguida, salve e feche esta janela de código e clique em Envie o > Salvar como para salvar esta pasta de trabalho como Pasta de trabalho habilitada para macro do Excel formato, veja a captura de tela:
4. Quando você abrir esta pasta de trabalho da próxima vez, clique em Habilitar Conteúdo botão em primeiro lugar e, em seguida, sua folha específica será ocultada automaticamente.
Oculte algumas planilhas específicas automaticamente ao abrir uma pasta de trabalho com código VBA
Se houver várias planilhas que precisam ser ocultadas ao abrir a pasta de trabalho, aqui está um código que pode ajudá-lo.
1. Primeiro, você deve listar os nomes das planilhas que deseja ocultar em uma lista de planilhas e, em seguida, ir para o Caixa de nome para dar-lhes um nome de intervaloFolhas para ocultare pressione Entrar chave, veja a captura de tela:
2. Em seguida, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. No lado esquerdo Projeto-VBAProject painel, clique duas vezes no Esta pasta de trabalho para abrir um módulo em branco e, em seguida, copie e cole o seguinte código no módulo:
Código VBA: oculte algumas planilhas específicas ao abrir uma pasta de trabalho:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updateby Extendoffice 20161206
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
ws.Visible = xlSheetHidden
MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
Else
ws.Visible = xlSheetVisible
End If
Next ws
Set ws = Nothing
End Sub
Note: No código acima, Folhas para ocultar é o nome do intervalo que você criou na etapa 1.
4. Em seguida, salve e feche esta janela de código e clique em Envie o > Salvar como para salvar esta pasta de trabalho como Pasta de trabalho habilitada para macro do Excel formato. De agora em diante, quando você abrir esta pasta de trabalho da próxima vez, as planilhas especificadas serão ocultadas automaticamente.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!