Workbook.ProtectSharing method (Excel) (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 de Livro .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Opcional	Variant	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	Variant	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	Variant	Uma sequência de caracteres indicando a senha de reserva de gravação para este arquivo. Se um ficheiro for guardado com a palavra-passe e a palavra-passe não for fornecida quando o ficheiro for aberto, o ficheiro será aberto como só de leitura.
ReadOnlyRecommended	Opcional	Variant	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	Variant	Uma sequência de caracteres indicando a senha a ser usada para proteger o arquivo para compartilhar.
FileFormat	Opcional	Variant	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.

• Palavra-passe segura: Y6dh!et5
• Palavra-passe fraca: Casa27

Passwords should be 8 or more characters in length. A pass phrase that uses 14 or more characters is better. É fundamental que memorize a sua palavra-passe. 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.