Thema: Paßwortdatei anlegen

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsmappe