Cómo: Establecer y borrar contraseñas del libro

Artículo
08/10/2011

Cree una contraseña para restringir el acceso a un libro. En los ejemplos siguientes se establece la contraseña del libro. Para borrar la contraseña, establézcala en una cadena vacía.

Se aplica a: la información de este tema se aplica a los proyectos de nivel de documento y los proyectos de nivel de aplicación para Excel 2007 y Excel 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.

Establecer una contraseña en una personalización en el nivel del documento

Para establecer una contraseña

Establezca para la propiedad de contraseña de ThisWorkbook una cadena proporcionada por el usuario.

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;
    } 
}

Establecer una contraseña en un complemento en el nivel de la aplicación

Para establecer una contraseña para el libro activo

Establezca la propiedad Password de la clase Microsoft.Office.Interop.Excel._Workbook en una cadena proporcionada por el usuario. Para usar este ejemplo, ejecute el código desde la clase ThisAddIn del proyecto.

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;
    }
}