Método Workbook.ProtectSharing (Excel)

Salva a pasta de trabalho a protege para compartilhamento.

Sintaxe

expressão. ProtectSharing (FileName, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword, FileFormat)

Expressão Uma variável que representa um objeto Workbook .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Opcional	Variantes	Uma sequência de caracteres indicando o nome do arquivo salvo. Você pode incluir um caminho completo; se não fizer isso, o Microsoft Excel salvará o arquivo na pasta atual.
Password	Opcional	Variantes	Uma sequência de caracteres, que distingue maiúsculas de minúsculas, indicando a senha de proteção a ser dada ao arquivo. Não deve ser maior que 15 caracteres.
WriteResPassword	Opcional	Variantes	Uma sequência de caracteres indicando a senha de reserva de gravação para este arquivo. Se um arquivo for salvo com a senha e a senha não for fornecida quando o arquivo for aberto, o arquivo será aberto somente leitura.
ReadOnlyRecommended	Opcional	Variantes	True para exibir uma mensagem quando o arquivo é aberto, recomendando que o arquivo seja aberto para somente leitura.
CreateBackup	Opcional	Variant	True para criar um arquivo de backup.
SharingPassword	Opcional	Variantes	Uma sequência de caracteres indicando a senha a ser usada para proteger o arquivo para compartilhar.
FileFormat	Opcional	Variantes	Uma cadeia de caracteres que indica o formato de arquivo.

Comentários

Use strong passwords that combine uppercase and lowercase letters, numbers, and symbols. As enhas fracas não combinam esses elementos.

• Senha forte: Y6dh!et5
• Senha fraca: House27

Passwords should be 8 or more characters in length. A pass phrase that uses 14 or more characters is better. É fundamental que você se lembre de sua senha. If you forget your password, Microsoft cannot retrieve it. Store the passwords that you write down in a secure place away from the information that they help protect.

Exemplo

Este exemplo salva a pasta de trabalho um e a protege para compartilhamento.

 
Sub ProtectWorkbook() 
 
    Dim wbAWB As Workbook 
    Dim strPwd As String 
    Dim strSharePwd As String 
 
    Set wbAWB = Application.ActiveWorkbook 
 
    strPwd = InputBox("Enter password for the file") 
    strSharePwd = InputBox("Enter password for sharing") 
 
    wbAWB.ProtectSharing Password:=strPwd, _ 
        SharingPassword:=strSharePwd 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.