Note: The other languages of the website are Google-translated. Back to English

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.

NOTA 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 ...
  • Barra Super Fórmula (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-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. 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!
parte inferior da aba do escritório
Comentários (21)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Ótimo - então como desproteger todos de uma vez? Sou amador, por isso preciso de mais informações.
Este comentário foi feito pelo moderador no site
[quote]Ótimo, então como desproteger todos de uma vez? Sou amador, por isso preciso de mais informações.Por Kristin Dzugan[/quote] :-) Você pode facilmente desprotegê-los como http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Este comentário foi feito pelo moderador no site
Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") Se Não (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 "Acho que você tem algumas planilhas que já estão protegidas. Por favor, desproteja todas as planilhas B4 executando esta Macro." Finalizar Sub
Este comentário foi feito pelo moderador no site
Muito obrigado :-)
Este comentário foi feito pelo moderador no site
Como Kristin disse, como você desprotege todos de uma vez?
Este comentário foi feito pelo moderador no site
Então, como faço para desproteger sem kutools?
Este comentário foi feito pelo moderador no site
[quote]Então, como faço para desproteger sem kutools?Por cz[/quote] Você pode desproteger a planilha sem o Kutools for Excel. Você só precisa clicar com o botão direito do mouse na guia da planilha que deseja desproteger e clicar no comando Desproteger Planilha e, em seguida, digitar sua senha. :-)
Este comentário foi feito pelo moderador no site
quando eu atribuo o código ele aparece com "erro de tempo de execução 1004?? destacando o seguinte em amarelo... s.Protect Password:=pass
Este comentário foi feito pelo moderador no site
De repente estou tendo o erro 1004 também. Eu tenho usado a macro por meses, mas agora ela não será executada.
Este comentário foi feito pelo moderador no site
Olá, eu também estava com esse problema. Acontece que não pode ser executado se você tiver todas as planilhas selecionadas na pasta de trabalho. Tente selecionar apenas uma planilha e depois executar.
Este comentário foi feito pelo moderador no site
De repente estou tendo o problema de erro 1004. Estou usando a macro há meses e agora ela falha aleatoriamente.
Este comentário foi feito pelo moderador no site
De repente estou tendo o erro 1004 também. Alguém encontra uma solução?
Este comentário foi feito pelo moderador no site
quando eu ativei este VBA, hyperlink não funciona. como posso fazê-los funcionar? valeu :)
Este comentário foi feito pelo moderador no site
Obrigada! Isso é incrível, consegui até modificar o código VBA para poder desproteger todas as planilhas de uma vez! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") Se Não (pass = repass) Then MsgBox "você fez um boo boo" GoTo top End If For i = 1 Para Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "Acho que você tem algumas planilhas que já estão protegidas. Por favor, desproteja todas as planilhas B4 executando esta Macro." Finalizar Sub
Este comentário foi feito pelo moderador no site
Ei, eu preciso de ajuda, o código acima foi muito útil, mas ele bloqueia a classificação (filtro automático também) você pode fornecer um código para resolver esse problema e também onde ele seria inserido. Agradeço antecipadamente.
Este comentário foi feito pelo moderador no site
Eu tenho guias de gráfico e planilhas na minha pasta de trabalho do Excel 2013. A codificação VBA acima funciona para proteger as planilhas, mas não as guias de gráfico separadas. Como faço para proteger com senha as várias guias do gráfico e várias planilhas na minha pasta de trabalho? Obrigado!
Este comentário foi feito pelo moderador no site
Oi eu usei este código agora eu não vai aceitar minha senha para voltar para minha planilha !!
Este comentário foi feito pelo moderador no site
Como faço para mascarar a senha usando o método VBA? Não consigo encontrar esta informação via google ou arquivos de ajuda F1. Desde já, obrigado!
Este comentário foi feito pelo moderador no site
Obrigado pela ferramenta completa maravilhosa para proteger e desproteger todas as folhas de uma vez. Por favor, guie-me Eu sou capaz de desproteger todas as planilhas da minha pasta de trabalho por vez, mas quando executo proteger todas as planilhas Código VBA, apenas as primeiras 4 planilhas são protegidas e restantes ou deixadas desprotegidas. Por favor me ajude a resolver o problema.
Este comentário foi feito pelo moderador no site
Estou tentando usar isso em uma pasta de trabalho compartilhada, mas recebo um erro do Microsoft Visual Basic "Erro em tempo de execução '1004": Erro definido pelo aplicativo ou definido pelo objeto" Estou apenas procurando sugestões sobre como contornar isso. ajuda seria apreciada
Este comentário foi feito pelo moderador no site
Ocorre quando a planilha já está bloqueada
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL