Ir para o conteúdo principal

Como definir o passeword para proteger a folha oculta em Excel?

Se você tiver uma pasta de trabalho que contém algumas planilhas ocultas importantes e não permitir que outras pessoas as exibam. Agora, você precisa definir um passeword para proteger completamente as planilhas ocultas, quando outros usuários as exibirem, eles deverão inserir o passeword. Você tem alguma maneira de lidar com essa tarefa de maneira rápida e fácil em Excel?

Definir passeword para proteger folhas ocultas com a função VeryHidden

Definir passeword para proteger planilha oculta com código VBA

Proteja várias planilhas de uma só vez com Kutools for Excel


Definir passeword para proteger folhas ocultas com a função VeryHidden

Normalmente, você pode usar a função VeryHidden para ocultar as planilhas primeiro e depois definir uma passagemword para eles, siga as seguintes etapas:

1. Abra sua pasta de trabalho e mantenha Alt + F11chaves para abrir o Janela Microsoft Visual Basic for Applications.

2. No Janela Microsoft Visual Basic for Applications, clique em Veja > Explorador de Projetos e Janela de propriedades to exibir seus painéis.

doc-proteger-folhas-ocultas-01

3. E então no Projeto-VBAProject painel, escolha a planilha que deseja ocultar e no Propriedades painel, clique na lista suspensa do Visível seção para selecionar xlSheetVeryHidden opção, veja a captura de tela:

doc-proteger-folhas-ocultas-02

4. Depois de deixar a planilha bem oculta, você pode definir um passeword para proteger. No Janela Microsoft Visual Basic for Applications, clique em inserção > Módulo para abrir um módulo vazio e clique em Ferramentas > Propriedades VBAProject, veja a captura de tela:

doc-proteger-folhas-ocultas-03

5. Em seguida, o pop out Propriedades do projeto VBAProject caixa de diálogo, clique em pós-colheita guia e, em seguida, verifique Bloquear projeto para visualização caixa, por fim, entre e confirme o passeword no Passarword para visualizar as propriedades do projeto seção, veja a captura de tela:

doc-proteger-folhas-ocultas-04

6. Então clique OK botão para sair desta caixa de diálogo e fechar o Janela Microsoft Visual Basic for Applications.

7. Salve a pasta de trabalho como Excel Pasta de trabalho habilitada para macro formate e feche para fazer o passeword proteção entre em vigor.

doc-proteger-folhas-ocultas-05

8. Da próxima vez, quando você abrir esta pasta de trabalho e quiser tornar visíveis as planilhas ocultas, será solicitado que você insira um passeword. Veja a imagem:

doc-proteger-folhas-ocultas-06


Demonstração: definir passeword para proteger folhas ocultas


Definir passeword para proteger planilha oculta com código VBA

Para definir um passeword para proteger as planilhas ocultas, também posso falar sobre um código VBA para você.

1. Oculte uma planilha que você deseja proteger.

2. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.

3. Então escolha Esta pasta de trabalho da esquerda Explorador de Projetos, clique duas vezes para abrir o Móduloe, em seguida, copie e cole o seguinte código VBA no módulo em branco:

Código VBA: Definir senhaword para proteger a folha oculta

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-proteger-folhas-ocultas-07

Anote os: No código acima, Sheet1 da xSheetName = "Sheet1" script é o nome da planilha oculta que você deseja proteger e 123456 no Se resposta = "123456" Então roteiro é o passeword que você definiu para a planilha oculta. Você pode alterá-los conforme sua necessidade.

4. Agora, quando você quiser mostrar a planilha oculta, uma caixa de aviso aparecerá para permitir que você insira o passeword. E esta caixa de prompt aparecerá sempre que você clicar para mostrar a planilha oculta.

doc-proteger-folhas-ocultas-08


Proteja várias planilhas de uma só vez com Kutools for Excel

Se você deseja proteger várias planilhas selecionadas ou todas as planilhas de uma pasta de trabalho de uma vez, normalmente, você precisa proteger uma por uma manualmente em Excel. Mas, se você tiver Kutools for Excel, Com o seu Proteger planilha utilitário, você pode protegê-los com um clique.

Kutools for Excel : com mais de 300 úteis Excel suplementos, gratuitos para teste sem limitação em 30 dias

Depois de instalar Kutools for Excel, faça o seguinte:

1. Clique Kutools MAIS > Proteger planilha, veja a captura de tela:

2. No Proteger planilha caixa de diálogo, todas as planilhas dentro da pasta de trabalho são listadas na caixa de listagem, por favor, escolha as planilhas que você deseja proteger. Veja a imagem:

doc-proteger-folhas-ocultas-010

3. E, em seguida, clique em OK, na caixa de diálogo a seguir, insira seu passeword e digite-o novamente e clique em OK, outra caixa de prompt aparecerá para lembrá-lo de quantas planilhas foram protegidas.

doc-proteger-folhas-ocultas-011

4. Então clique OK para fechar as caixas de diálogo e todas as planilhas da pasta de trabalho foram protegidas com a mesma senhaword.

Nota: Se você deseja desproteger todas as planilhas de uma vez, você só precisa clicar Kutools MAIS > Folha de trabalho desprotegidae digite seu passeword para cancelar a proteção.

 Baixe e teste grátis Kutools for Excel Agora !


Artigos relacionados:

Como proteger várias planilhas de uma vez em Excel?

Como definir um passeword para proteger a pasta de trabalho?

Como proteger/bloquear código VBA em Excel?

Melhores ferramentas de produtividade de escritório

Turbine suas planilhas: Experimente eficiência como nunca antes com Kutools for Excel

Recursos mais comuns: Localizar/destacar/identificar duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas     Mover colunas   |   Exibir colunas   |   Comparar colunas com Selecionar células iguais e diferentes ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Words, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   Muito mais...

Kutools for Excel possui mais de 300 recursos, garantindo que o que você precisa está a apenas um clique de distância...

Suporta Escritório/Excel 2007-2021 e mais recentes, incluindo 365 | Disponível em 44 idiomas | Desfrute de um teste gratuito de 30 dias com todos os recursos.

guia kte 201905


Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ative a edição e leitura com guias em Word, Excel, Power Point, 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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
This comment was minimized by the moderator on the site
Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations