Freigeben über


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

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.

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

Siehe auch

Aufgaben

Gewusst wie: Schützen von Arbeitsmappen

Gewusst wie: Schützen von Arbeitsblättern

Konzepte

Arbeiten mit Arbeitsmappen

Kennwortschutz für Office-Dokumente

Globaler Zugriff auf eigene Objekte in Visual Studio Tools for Office-Projekte

Optionale Parametern in Office-Projektmappen

Änderungsprotokoll

Date

Versionsgeschichte

Grund

Juli 2008

Codebeispiel hinzugefügt, das in einem Add-In auf Anwendungsebene verwendet werden kann.

Kundenfeedback.