Como: Definir e limpar senhas de pasta de trabalho

Artigo
08/08/2011

Crie uma senha para restringir o acesso a uma pasta de trabalho. Os exemplos a seguir definem a senha da pasta de trabalho. Para limpar a senha, defina a senha para uma seqüência vazia.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Excel 2007 e Excel 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

Definir uma senha em uma personalização em nível de documento

Para definir uma senha.

Defina a propriedade de senha do ThisWorkbook a uma seqüência fornecida pelo usuário.

Private Sub SetPassword()
    Dim password As String
    Dim confirmPassword As String

    password = Me.Application.InputBox("Enter the new password:").ToString()
    confirmPassword = Me.Application.InputBox("Confirm the password:").ToString()

    If password <> confirmPassword Then
        MessageBox.Show("The passwords you typed do not match.")
        Globals.ThisWorkbook.Password = ""
    Else
        Globals.ThisWorkbook.Password = password
    End If
End Sub

private void SetPassword() 
{
    string password = this.Application.InputBox("Enter the new password:",
        missing, missing, missing, missing, missing, missing, missing).ToString();

    string confirmPassword = this.Application.InputBox("Confirm the password:", 
        missing, missing, missing, missing, missing, missing, missing).ToString(); 

    if (password != confirmPassword)
    {
        MessageBox.Show("The passwords you typed do not match.");
        Globals.ThisWorkbook.Password = "";
    }
    else
    {
        Globals.ThisWorkbook.Password = password;
    } 
}

Definir uma senha em um suplemento em nível de aplicativo

Para definir uma senha para a pasta de trabalho ativa

Definir o Password propriedade da Microsoft.Office.Interop.Excel._Workbook classe para uma seqüência fornecida pelo usuário. Para usar esse exemplo, executa o código a partir de ThisAddIn classe no projeto.

Private Sub SetPassword()
    Dim password As String
    Dim confirmPassword As String

    password = Me.Application.InputBox("Enter the new password:").ToString()
    confirmPassword = Me.Application.InputBox("Confirm the password:").ToString()

    If password <> confirmPassword Then
        System.Windows.Forms.MessageBox.Show("The passwords you typed do not match.")
        Me.Application.ActiveWorkbook.Password = ""
    Else
        Me.Application.ActiveWorkbook.Password = password
    End If
End Sub

private void SetPassword()
{
    string password = this.Application.InputBox("Enter the new password:",
        missing, missing, missing, missing, missing, missing, missing).ToString();

    string confirmPassword = this.Application.InputBox("Confirm the password:",
        missing, missing, missing, missing, missing, missing, missing).ToString();

    if (password != confirmPassword)
    {
        System.Windows.Forms.MessageBox.Show
            ("The passwords you typed do not match.");
        this.Application.ActiveWorkbook.Password = "";
    }
    else
    {
        this.Application.ActiveWorkbook.Password = password;
    }
}