VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Paßwortdatei anlegen

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

    


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