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

Actualización: Julio de 2008

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.

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

Vea también

Tareas

Cómo: Proteger los libros

Cómo: Proteger las hojas de cálculo

Conceptos

Trabajar con libros

Protección mediante contraseña en documentos de Office

Acceso global a objetos en proyectos de Visual Studio Tools para Office

Descripción de los parámetros opcionales en las soluciones de Office

Historial de cambios