Como verificar se a planilha ou pasta de trabalho está protegida no Excel?
Se você deseja verificar se 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 código VBA a seguir pode ajudá-lo a verificar facilmente qual planilha está protegida ou desprotegida na pasta de trabalho atual. Faça o seguinte.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela 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 Sub
3. aperte o F5 para executar o código, então um Kutools for Excel caixa de diálogo aparece, selecione uma célula para localizar os resultados da verificação e, finalmente, clique no OK botão.
Notas:
1. Se a célula que você selecionou em uma planilha protegida, outro Kutools for Excel caixa de diálogo irá aparecer, clique no OK botão, o resultado da verificação será salvo em uma nova planilha criada.
2. Caso contrário, se a célula selecionada estiver em uma planilha desprotegida, o resultado da verificação será exibido no intervalo selecionado imediatamente.
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 verificar se uma pasta de trabalho ativa está protegida ou não com o código VBA. Faça o seguinte.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela 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 Sub
3. aperte o F5 chave para executar o código.
Você obterá uma das seguintes caixas de diálogo com base em sua pasta de trabalho.
Proteja ou desproteja facilmente várias planilhas em uma pasta de trabalho ao mesmo tempo no Excel:
A Kutools for Excel's Proteger planilha e Folha de trabalho desprotegida utilitários podem ajudá-lo a proteger ou desproteger facilmente várias planilhas na pasta de trabalho ativa ao mesmo tempo no Excel. Veja a imagem abaixo:
Baixe agora a trilha gratuita completa de 30 dias do Kutools para Excel!
Melhores ferramentas de produtividade de escritório
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...
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!