Como proteger todos os livros de trabalho numa pasta de uma só vez no Excel?
No Excel, pode proteger um livro de trabalho para impedir que outros utilizadores o editem, mas já alguma vez imaginou proteger vários livros de trabalho de uma só vez? Apresentamos aqui alguns truques práticos para proteger todos os livros de trabalho numa pasta e várias folhas dentro do mesmo livro no Excel.
Proteger livros de trabalho numa pasta de uma só vez com VBA
Proteger várias folhas de uma só vez com Kutools para Excel
Proteger livros de trabalho numa pasta de uma só vez com VBA
Para proteger livros de trabalho numa pasta específica, pode utilizar um código de macro para resolver este desafio.
1. Ative um novo livro de trabalho e prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications e clique em Inserir > Módulo; depois, cole o código seguinte no script do Módulo.
VBA: Proteja livros de trabalho numa pasta.
Sub ProtectAll()
Dim xWorkBooks As Workbook
Dim xExitFile As String
Dim xPassWord As Variant
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then
Exit Sub
Else
xStrPath = xStrPath + "\"
End If
xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
If (xPassWord = False) Or (xPassWord = "") Then
MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
Exit Sub
End If xFile = «*.xls»
xExitFile = Dir(xStrPath & xFile)
On Error Resume Next
Application.ScreenUpdating = False
Do While xExitFile <> ""
Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
Application.DisplayAlerts = False
xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
Application.DisplayAlerts = True
Workbooks(xExitFile).Close False
Set xWorkBooks = Nothing
xExitFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub
2. Prima a tecla F5 e surge uma janela Selecionar uma pasta para introduzir a palavra-passe e proteger todas as suas folhas de cálculo.
3. Clique em OK e surge uma caixa de diálogo para introduzir a palavra-passe destinada à proteção dos livros de trabalho.
4. Clique em OK e surge uma caixa de diálogo a informá-lo de que todos os livros de trabalho na pasta selecionada foram protegidos com sucesso com uma única palavra-passe.
Ao abrir os livros de trabalho protegidos com o código acima, surge uma caixa de diálogo para introduzir a palavra-passe. Veja a imagem:
Dica: Este código funciona no Excel 2007 ou numa versão posterior. Se pretender aplicá-lo a uma versão anterior, basta alterar xFile = «*.xls» para xFile = «*.xlsx» no código.
Proteger várias folhas de uma só vez com Kutools para Excel
Na verdade, no nosso dia a dia é muito mais comum precisar de proteger várias folhas dentro do mesmo livro. Contudo, no Excel, é necessário proteger as folhas uma a uma utilizando a sua função incorporada. Felizmente, existe uma ferramenta poderosa – Kutools para Excel, cuja utilidade Proteger Folha de Cálculo lhe permite proteger todas as folhas ou as Planilhas Selecionadas do livro de trabalho de uma só vez.
Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:
1. Abra o livro de trabalho cujas folhas pretende proteger e clique em KUTOOLS PLUS > Proteger Folha de Cálculo > Proteger Planilhas.
2. Na caixa de diálogo Proteger Folha de Cálculo, pode selecionar as folhas que pretende proteger, conforme necessário, na lista. Veja a imagem:
3. Clique em Ok e surge outra caixa de diálogo para introduzir e confirmar novamente a palavra-passe. Veja a imagem:
4. Clique em Ok e surge uma caixa de diálogo a informá-lo de que a operação Proteger Planilhas foi concluída com sucesso.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos