Gewusst wie: Festlegen und Löschen von Arbeitsmappenkennwörtern

Artikel
04/28/2010

Aktualisiert: Juli 2008

Betrifft
Die Informationen in diesem Thema gelten nur für die angegebenen Visual Studio Tools for Office-Projekte und Versionen von Microsoft Office. Projekttyp Projekte auf Dokumentebene Projekte auf Anwendungsebene Microsoft Office-Version Excel 2003 Excel 2007 Weitere Informationen finden Sie unter Verfügbare Features nach Anwendung und Projekttyp.

Die Informationen in diesem Thema gelten nur für die angegebenen Visual Studio Tools for Office-Projekte und Versionen von Microsoft Office.

Projekttyp

Projekte auf Dokumentebene
Projekte auf Anwendungsebene

Microsoft Office-Version

Excel 2003
Excel 2007

Weitere Informationen finden Sie unter Verfügbare Features nach Anwendung und Projekttyp.

Sie können ein Kennwort erstellen, um den Zugriff auf eine Arbeitsmappe einzuschränken. In den folgenden Beispielen wird das Kennwort der Arbeitsmappe festgelegt. Legen Sie das Kennwort auf eine leere Zeichenfolge fest, um das Kennwort zu löschen.

Festlegen eines Kennworts in einer Anpassung auf Dokumentebene

So legen Sie ein Kennwort fest

Legen Sie die Kennworteigenschaft von ThisWorkbook auf eine vom Benutzer bereitgestellte Zeichenfolge fest.

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

Festlegen eines Kennworts in einem Add-In auf Anwendungsebene

So legen Sie ein Kennwort für die aktive Arbeitsmappe fest

Legen Sie die Password-Eigenschaft der Microsoft.Office.Interop.Excel._Workbook-Klasse auf eine vom Benutzer bereitgestellte Zeichenfolge fest. Wenn Sie dieses Beispiel verwenden möchten, führen Sie den Code von der ThisAddIn-Klasse im Projekt aus.

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