Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Paßwortdatei anlegen

Gruppe

Arbeitsmappe

Problem

Wie kann ich einem Benutzer unabhängig von den Office- und Excelpaßwörtern einen eigenen Paßwortschutz ermöglichen? Das Paßwort soll jederzeit abruf- und Eingaben sollen nachprüfbar sein.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim sWord As String, sPass As String
   sWord = GetSetting("MeinProgramm", "Einstellungen", "Kennwort")
   If sWord = "" Then Exit Sub
   sPass = InputBox(prompt:="Ihr Passwort:")
   If sPass = sWord Then
      MsgBox prompt:="Alles paletti"
   Else
      MsgBox "Nix geht mehr!"
   End If
End Sub

StandardModule: Modul1

Sub SetPassword()
   Dim sWord As String
   sWord = InputBox(prompt:="Ihr Passwort:")
   If sWord = "" Then Exit Sub
   SaveSetting _
      appname:="MeinProgramm", _
      section:="Einstellungen", _
      key:="Kennwort", _
      setting:=sWord
End Sub

Sub DeletePassword()
  DeleteSetting "MeinProgramm"
End Sub