Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

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

Supondo que você tenha uma pasta de trabalho que contém várias planilhas, e agora você precise proteger todas as planilhas ou algumas planilhas específicas, normalmente no Excel, você só pode proteger a planilha uma a uma com a função Proteger Planilha, mas este método é tedioso e demorado se houver várias folhas que precisam ser protegidas. Como você protege várias planilhas de uma vez no Excel de forma rápida e fácil?

Proteja todas as folhas de uma vez com o código VBA

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

Desproteja várias planilhas de uma vez com o kutools para Excel


seta azul bolha direita Proteja todas as folhas de uma vez com o código VBA

Com o seguinte código VBA, você pode proteger todas as planilhas da pasta de trabalho ativa de uma vez com a mesma senha, faça o seguinte:

1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: proteja todas as planilhas em uma pasta de trabalho de uma vez:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Então aperte F5 para executar o código e inserir a senha para as planilhas protegidas na caixa de prompt, veja a captura de tela:

doc-protect-multiple-sheets1-1

4. Clique OKe, em seguida, insira a senha novamente para confirmá-la.

doc-protect-multiple-sheets2-2

5. Então clique OK, e todas as folhas foram protegidas com a mesma senha.


seta azul bolha direita Proteja várias planilhas de uma vez com o Kutools para Excel

Às vezes, você não deseja proteger todas as planilhas de sua pasta de trabalho e deseja proteger apenas algumas planilhas específicas; nessa situação, o código acima não funcionará. Mas com Kutools for Excel'S Proteger planilha utilitário, você pode proteger todas as folhas e folhas específicas de forma rápida e fácil.

Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 60 dias

Depois de instalar Kutools for Excel, siga as seguintes etapas:

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

2. No Proteger planilha caixa de diálogo, selecione as folhas que deseja proteger. (Por padrão, todas as planilhas na pasta de trabalho atual são verificadas.) Veja a captura de tela:

doc-protect-multiple-sheets4-4

3. E clique em OKe, em seguida, digite e confirme a senha na caixa de diálogo Proteger planilha. Veja a imagem:

doc-protect-multiple-sheets5-5

4. Então clique OK, as planilhas selecionadas foram protegidas.

Clique em Proteger planilha para saber mais sobre esse recurso.


seta azul bolha direita Desproteja várias planilhas de uma vez com o kutools para Excel

Como você poderia desproteger várias planilhas protegidas em uma pasta de trabalho ao mesmo tempo? Claro, Kutools for Excel também fornece o Folha de trabalho desprotegida utilitário para você desprotegê-los de uma vez.

Siga os seguintes passos:

1. Abra sua pasta de trabalho que contém as planilhas protegidas.

2. Então clique Kutools Plus > Folha de trabalho desprotegida, veja a captura de tela:

3. No Folha de trabalho desprotegida caixa de diálogo, as folhas protegidas são listadas na caixa de listagem e clique em Ok botão, veja a captura de tela:

doc-protect-multiple-sheets7-7

4. E então um Folha de trabalho desprotegida caixa de diálogo aparece para lembrá-lo de inserir a senha que você criou para proteger as planilhas, veja a captura de tela:

doc-protect-multiple-sheets8-8

5. Após digitar a senha, clique Ok, todas as planilhas marcadas na caixa de listagem foram desprotegidas.

Observação: As planilhas devem ter a mesma senha.

Para saber mais sobre este recurso Desproteger Planilha.

Baixe e teste grátis Kutools para Excel agora!


seta azul bolha direita Demonstração: proteger ou desproteger todas as planilhas de uma vez com o Kutools para Excel

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

Artigo relacionado:

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


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    George · 5 years ago
    I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
    • To post as a guest, your comment is unpublished.
      Roger Woolnough · 4 months ago
      Occurs when sheet is already locked
  • To post as a guest, your comment is unpublished.
    Geetha · 5 years ago
    Thanks for the wonder full tool to protect & unprotect all the sheets at a time.
    Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
  • To post as a guest, your comment is unpublished.
    Mayhem · 5 years ago
    How do I mask the password using the VBA method?

    I can not find this information via google or F1 help files.

    Thanks in advance!
  • To post as a guest, your comment is unpublished.
    James MacPherson · 6 years ago
    Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
  • To post as a guest, your comment is unpublished.
    S. Brown · 6 years ago
    I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
  • To post as a guest, your comment is unpublished.
    Zuber · 6 years ago
    Hey,

    I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted.

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    N1ckole · 7 years ago
    Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :)

    Sub unprotect_all_sheets()
    top:
    pass = InputBox("password?")
    repass = InputBox("Verify Password")
    If Not (pass = repass) Then
    MsgBox "you made a boo boo"
    GoTo top
    End If
    For i = 1 To Worksheets.Count
    Next
    For Each s In ActiveWorkbook.Worksheets
    s.Unprotect Password:=pass
    Next
    Exit Sub
    oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro."
    End Sub
  • To post as a guest, your comment is unpublished.
    etan · 7 years ago
    when i activated this VBA, [b]hyperlink [/b]doesn't work. how can i make them work? tnx :)
  • To post as a guest, your comment is unpublished.
    Lightdemon · 7 years ago
    I am suddenly having the 1004 error as well. Anyone find a solution?
  • To post as a guest, your comment is unpublished.
    Lightdemon · 7 years ago
    I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
  • To post as a guest, your comment is unpublished.
    Scruffly Ghengis · 7 years ago
    when I imput the code it comes up with "run time error 1004?? highlighting the following in yellow...

    s.Protect Password:=pass
    • To post as a guest, your comment is unpublished.
      Lightdemon · 7 years ago
      I'm suddenly having the 1004 error as well. I have been using the macro for months but now it won't run.
      • To post as a guest, your comment is unpublished.
        Michelle McGregor · 5 years ago
        Hi,

        I was having this issue too. Turns out it can't run if you have all sheets selected in the workbook.

        Try selecting just one sheet and then running.
  • To post as a guest, your comment is unpublished.
    MrB · 7 years ago
    As Kristin said, how do you unprotect them all at once?
    • To post as a guest, your comment is unpublished.
      cz · 7 years ago
      So, how do I unprotect without kutools?
      • To post as a guest, your comment is unpublished.
        Admin-chivo · 7 years ago
        [quote name="cz"]So, how do I unprotect without kutools?[/quote]

        You can unprotect the worksheet without Kutools for Excel. You just need to right click on the sheet tab which you want to unprotect and click Unprotect Sheet command, and then enter your password. :-)
  • To post as a guest, your comment is unpublished.
    shweta · 8 years ago
    Thank you so much :-)
  • To post as a guest, your comment is unpublished.
    Kristin Dzugan · 8 years ago
    Great--so how to UNprotect them all at once? I'm an amateur, so I need more info.
    • To post as a guest, your comment is unpublished.
      N1ckol3 · 7 years ago
      Sub unprotect_all_sheets()
      top:
      pass = InputBox("password?")
      repass = InputBox("Verify Password")
      If Not (pass = repass) Then
      MsgBox "you made a boo boo"
      GoTo top
      End If
      For i = 1 To Worksheets.Count
      Next
      For Each s In ActiveWorkbook.Worksheets
      s.Unprotect Password:=pass
      Next
      Exit Sub
      oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro."
      End Sub
    • To post as a guest, your comment is unpublished.
      Admin_jay · 7 years ago
      [quote name="Kristin Dzugan"]Great--so how to UNprotect them all at once? I'm an amateur, so I need more info.[/quote]

      :-) You can easily unprotect them as http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html