Proteger e Desproteger Todas as Planilhas do Excel

Neste artigo é disponibilizado um código para proteger e desproteger todas as planilhas do Excel.

É normal termos muitas planilhas e o  procedimento de proteção e desproteção de planilhas pode ser muito trabalhoso. Veja como fazer automático.

Por que Proteger Planilhas do Excel?

As planilhas do Excel são uma ferramenta valiosa para o gerenciamento de dados, mas também podem conter informações confidenciais ou sensíveis. Por isso, é importante proteger essas planilhas para evitar acesso não autorizado ou alterações indesejadas.

Uma das principais razões para proteger planilhas do Excel é garantir a segurança dos dados. Planilhas podem conter informações confidenciais, como informações financeiras, dados de clientes ou informações confidenciais da empresa. Se essas informações caírem nas mãos erradas, isso pode ter consequências graves para a empresa ou os indivíduos envolvidos. Proteger as planilhas com senhas ou outras medidas de segurança pode impedir o acesso não autorizado e garantir que os dados confidenciais permaneçam seguros.

Além disso, proteger planilhas do Excel também é importante para evitar alterações indesejadas. Muitas vezes, as planilhas contêm informações críticas para o funcionamento da empresa ou projetos importantes. Se essas planilhas forem modificadas sem permissão, isso pode causar problemas significativos, desde erros simples até danos irreparáveis. Protegendo as planilhas, pode-se garantir que somente pessoas autorizadas possam fazer alterações e evitar problemas desnecessários.

Outra razão para proteger planilhas do Excel é garantir a precisão dos dados. Muitas vezes, as planilhas são usadas para coletar e armazenar dados críticos, como estatísticas de vendas ou informações financeiras. Se esses dados forem alterados sem permissão, isso pode afetar a precisão das informações e causar problemas para a empresa. Protegendo as planilhas, pode-se garantir que os dados permaneçam precisos e confiáveis.

Em resumo, proteger planilhas do Excel é importante para garantir a segurança dos dados, evitar alterações indesejadas e garantir a precisão dos dados. Usando senhas e outras medidas de segurança, pode-se garantir que somente pessoas autorizadas possam acessar e fazer alterações nas planilhas, protegendo assim as informações confidenciais e garantindo a precisão dos dados críticos.

Como Instalar o Código VBA?

Veja como como copiar o código, habilitar a guia Desenvolvedor e instalar o código VBA no Excel clicando neste link: https://www.guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-internet/

Proteger Todas as Planilhas no Excel

Com o código VBA abaixo você poderá proteger todas as planilhas do Excel com VBA de uma forma rápida e prática.

Ao executar este código todas as planilhas irão ser protegidas com senha ou sem senha, como desejar.

'Função que protege todas as planilhas de um arquivo
Sub lsProtegerTodasAsPlanilhas()
    'Declara as variáveis necessárias
    Dim lPass As String
    Dim lQtdePlan As Integer
    Dim lPlanAtual As Integer
 
    'Solicita a senha
    'O método InputBox é utilizado para solicitar um valor através de um formulário
    lPass = InputBox("Proteger todas as planilhas:", "Senha")
 
    'Inicia as variáveis
    'O método Worksheets.Count passa a quantidade de planilhas existentes no arquivo
    lQtdePlan = Worksheets.Count
    lPlanAtual = 1
 
    'Loop pelas planilhas
    'A função While realiza um loop de código enquanto não passar por todas as planilhas contadas
    While lPlanAtual <= lQtdePlan
        'O método Worksheets(lPlanAtual).Activate ativa a planilha conforme o índice atual 1, 2, 3...
        Worksheets(lPlanAtual).Activate
 
        'O método .Protect proteje a planilha passando os parâmetros da planilha atual
        ActiveSheet.Protect Password:=lPass, _
                            DrawingObjects:=CBool(ActiveSheet.ProtectDrawingObjects), _
                            Contents:=CBool(ActiveSheet.ProtectContents), _
                            AllowFormattingCells:=ActiveSheet.Protection.AllowFormattingCells, _
                            AllowFormattingColumns:=ActiveSheet.Protection.AllowFormattingColumns, _
                            AllowFormattingRows:=ActiveSheet.Protection.AllowFormattingRows, _
                            AllowInsertingColumns:=ActiveSheet.Protection.AllowInsertingColumns, _
                            AllowInsertingRows:=ActiveSheet.Protection.AllowInsertingRows, _
                            AllowInsertingHyperlinks:=ActiveSheet.Protection.AllowInsertingHyperlinks, _
                            AllowDeletingColumns:=ActiveSheet.Protection.AllowDeletingColumns, _
                            AllowDeletingRows:=ActiveSheet.Protection.AllowDeletingRows, _
                            AllowSorting:=ActiveSheet.Protection.AllowSorting, _
                            AllowFiltering:=ActiveSheet.Protection.AllowFiltering, _
                            AllowUsingPivotTables:=ActiveSheet.Protection.AllowUsingPivotTables
 
        'Muda o índice para passar para a próxima planilha
        lPlanAtual = lPlanAtual + 1
    Wend
 
    'O método MsgBox exibe um formulário de aviso ao usuário.
    MsgBox "Planilhas protegidas!"
 
End Sub

Desproteger Planilhas Excel

De forma semelhante também criamos e disponibilizamos um código para desproteger todas as planilhas.

Use o mesmo artigo para copiar e aplicar este código VBA para desproteger todas as planilhas: https://www.guiadoexcel.com.br/habilitando-a-guia-desenvolvedor-e-copiando-procedimentos-vba-sub-da-internet/

'Função que desprotege todas as planilhas de um arquivo
Sub lsDesprotegerTodasAsPlanilhas()
    'Declara as variáveis necessárias
    Dim lPass As String
    Dim lQtdePlan As Integer
    Dim lPlanAtual As Integer
 
    'Solicita a senha
    'O método InputBox é utilizado para solicitar um valor através de um formulário
    lPass = InputBox("Desproteger todas as planilhas:", "Senha")
 
    'Inicia as variáveis
    'O método Worksheets.Count passa a quantidade de planilhas existentes no arquivo
    lQtdePlan = Worksheets.Count
    lPlanAtual = 1
 
    'Loop pelas planilhas
    'A função While realiza um loop de código enquanto não passar por todas as planilhas contadas
    While lPlanAtual <= lQtdePlan
        'O método Worksheets(lPlanAtual).Activate ativa a planilha conforme o índice atual 1, 2, 3...
        Worksheets(lPlanAtual).Activate
 
        'O método .UnProtect desprotege a planilha
        ActiveSheet.Unprotect Password:=lPass
 
        'Muda o índice para passar para a próxima planilha
        lPlanAtual = lPlanAtual + 1
    Wend
 
    'O método MsgBox exibe um formulário de aviso ao usuário.
    MsgBox "Planilhas desprotegidas!"
 
End Sub

Download

Realize o download do da planilha de exemplo neste botão abaixo. Basta se inscrever na nossa newsletter gratuita para o download automático.

Suplemento Guia do Excel

Conheça também o suplemento gratuito do Guia do Excel que já inclui estas funcionalidades e também a do conta-gotas no link abaixo: