Gewusst wie: Festlegen und Löschen von Arbeitsmappenkennwörtern
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.
Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Dokument- und auf Anwendungsebene für Excel 2007 und Excel 2010. Weitere Informationen finden Sie unter Verfügbare Funktionen nach Office-Anwendung und Projekttyp.
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
Kennwortschutz für Office-Dokumente