Como verificar se uma planilha ou pasta de trabalho está protegida no Excel?
Se você deseja verificar se uma determinada planilha ou pasta de trabalho está protegida ou não no Excel, este artigo pode ajudá-lo.
Verifique se a planilha está protegida com código VBA
Verifique se a pasta de trabalho está protegida com código VBA
Verifique se a planilha está protegida com código VBA
O seguinte código VBA pode ajudá-lo a verificar facilmente quais planilhas estão protegidas ou desprotegidas na pasta de trabalho atual. Por favor, siga os passos abaixo.
1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela de Código.
Código VBA: Verifique se a planilha está protegida ou não
Sub GetProtectedSheets()
Dim sh As Worksheet
Dim xSaveSht As Worksheet
Dim xSaveToRg As Range
Dim xSaveToRg1 As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xSaveToRg = Application.InputBox("Please select a cell for saving the checking result:", "Kutools for Excel", xTxt, , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
If xSaveToRg.Worksheet.ProtectContents Then
If MsgBox("This worksheet is protected, would you like to create a new sheet to save the checking result？", vbInformation + vbYesNo, "Kutools for Excel") = vbYes Then
Set xSaveSht = ThisWorkbook.Worksheets.Add
Set xSaveToRg = xSaveSht.Cells(1)
Else
Exit Sub
End If
End If
Set xSaveToRg = xSaveToRg.Cells(1)
Set xSaveToRg1 = xSaveToRg.Offset(0, 1)
xSaveToRg.Value = "Protected worksheet"
xSaveToRg1.Value = "Unprotected worksheet"
Set xSaveToRg = xSaveToRg.Offset(1)
Set xSaveToRg1 = xSaveToRg1.Offset(1)
For Each sh In Worksheets
If sh.Name <> xSaveSht.Name Then
If sh.ProtectContents Then
xSaveToRg.Value = sh.Name
Set xSaveToRg = xSaveToRg.Offset(1)
Else
xSaveToRg1.Value = sh.Name
Set xSaveToRg1 = xSaveToRg1.Offset(1)
End If
End If
Next
End Sub3. Pressione a tecla F5 para executar o código, então uma caixa de diálogo do Kutools para Excel será exibida. Por favor, selecione uma célula para localizar os resultados da verificação e, finalmente, clique no botão OK.
Notas:
1. Se a célula que você selecionou estiver em uma planilha protegida, outra caixa de diálogo do Kutools para Excel será exibida, clique no botão OK, o resultado da verificação será salvo em uma nova planilha criada.
2. Se a célula selecionada estiver em uma planilha desprotegida, o resultado da verificação será exibido imediatamente no intervalo selecionado.
Você pode ver o resultado da verificação conforme a captura de tela abaixo:
Verifique se a pasta de trabalho está protegida com código VBA
Além disso, você pode usar o código VBA para verificar se uma pasta de trabalho ativa está protegida. Por favor, siga os passos abaixo.
1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela de Código.
Código VBA: Verifique se a pasta de trabalho está protegida ou não
Sub IsWorkbookProtected()
With ActiveWorkbook
If .ProtectWindows Or .ProtectStructure Then
MsgBox "This workbook is password protected"
Else
MsgBox "This workbook is not password protected"
End If
End With
End Sub3. Pressione a tecla F5 para executar o código.
Você receberá uma das seguintes caixas de diálogo com base na sua pasta de trabalho.
Proteja ou desproteja facilmente várias planilhas em uma pasta de trabalho de uma só vez no Excel:
Os utilitários Proteger Planilha e Desproteger Planilha do Kutools para Excel podem ajudá-lo a proteger ou desproteger facilmente várias planilhas na pasta de trabalho ativa de uma só vez no Excel. Veja a captura de tela abaixo:
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins