A Macro para proteger planilhas na pasta de trabalho Fechar

Às vezes, você precisa enviar o seu livro do Excel para o mundo com planilhas específicas protegida. Se você achar que você está protegendo constantemente e folhas desproteger antes de distribuir suas pastas de trabalho, a macro aqui pode ajudá-lo.

Como as obras de macro

O código é acionado pelo evento BeforeClose do livro. Ao tentar fechar o livro, este evento é acionado, a execução do código dentro. A macro protege automaticamente a folha especificada com a senha indicada e salva a pasta de trabalho:

Private Sub Workbook_BeforeClose (Cancel As Boolean) "Passo 1:. Proteger a folha com um passwordSheets (" Sheet1 ") Proteger Password: =" RED "a" Etapa 2: Salvar o workbookActiveWorkbook.SaveEnd Sub

Na Etapa 1, você está explicitamente especificando quais folha para proteger - Sheet1, neste caso. Você também fornecer o argumento de senha, senha: = "RED", que define a senha necessária para remover a proteção.

Este argumento de senha é opcional. Se você omiti-lo, a folha ainda será # 173-protegido, mas você não vai precisar de uma senha para desproteger-lo.

senhas do Excel são case-sensitive, então você vai querer prestar atenção à palavra-passe e capitalização exatas que você está usando.

Passo 2 diz Excel para guardar o livro. Se você não salvar a pasta de trabalho, a protecção da folha você apenas aplicada não estará em vigor na próxima vez que o livro é aberto.

Como usar o macro

Para implementar essa macro, você precisa copiar e colá-lo na janela de código de eventos do Workbook_BeforeClose. Colocar a macro aqui permite que ele seja executado cada vez que você tentar fechar a pasta de trabalho:

1. Ative o Editor do Visual Basic pressionando Alt + F11.

2. Na janela do projecto, encontrar o seu nome do projeto / pasta de trabalho e clique no sinal de mais ao lado e veja todas as folhas.

3. Clique ThisWorkbook.

4. Na lista drop-down de eventos, selecione o evento BeforeClose.

5. Digite ou cole o código no módulo recém-criado, modificando o nome da folha (se necessário) e a senha.

   
   Digite o seu código no evento de pasta de trabalho BeforeClose.

Note que você pode proteger folhas adicionais, adicionando declarações de adição antes da instrução Activeworkbook.Save.