Gruppe
Allgemein
Bereich
Arbeitsmappe
Thema
Paßwortdatei anlegen
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