Ir para o conteúdo principal

Como definir uma senha para proteger a planilha oculta no 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 uma senha para proteger as planilhas ocultas completamente; quando outros usuários as exibirem, eles deverão inserir a senha. Você tem alguma maneira de lidar com essa tarefa de forma rápida e fácil no Excel?

Defina uma senha para proteger as folhas ocultas com a função VeryHidden

Defina a senha para proteger a folha oculta com o código VBA

Proteja várias planilhas de uma vez com o Kutools para Excel


Defina uma senha para proteger as folhas ocultas com a função VeryHidden

Normalmente, você pode usar a função VeryHidden para ocultar as planilhas primeiro e, em seguida, definir uma senha para elas. 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 Ver > 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 ocultar a planilha, você pode definir uma senha para protegê-la. 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 Por fim, digite e confirme a senha na caixa Senha para ver 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 Pasta de trabalho habilitada para macro do Excel formate e feche-o para que a proteção por senha tenha efeito.

doc-proteger-folhas-ocultas-05

8. Na próxima vez, quando você abrir esta pasta de trabalho e quiser tornar visíveis as planilhas ocultas, será necessário inserir uma senha. Veja a imagem:

doc-proteger-folhas-ocultas-06


Demo: Definir senha para proteger páginas ocultas


Defina a senha para proteger a folha oculta com o código VBA

Para definir uma senha para proteger as folhas 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: defina a senha 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

Note: 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 script é a senha que você definiu para a folha oculta. Você pode alterá-los conforme sua necessidade.

4. Agora, quando você quiser mostrar a folha oculta, uma caixa de prompt aparecerá para permitir que você insira a senha. E essa caixa de prompt aparecerá toda vez, quando você clicar para mostrar a folha oculta.

doc-proteger-folhas-ocultas-08


Proteja várias planilhas de uma vez com o Kutools para 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 manualmente uma a uma no 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 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias

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

1. Clique Kutools Plus > 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, digite sua senha e digite-a 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 os diálogos, e todas as planilhas na pasta de trabalho foram protegidas com a mesma senha.

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

 Baixe e teste grátis Kutools para Excel agora!


Artigos relacionados:

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

Como definir uma senha para proteger a pasta de trabalho?

Como proteger / bloquear o código VBA no Excel?

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique 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  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
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 Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
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