Guten Morgen zusammen,
Ich habe in mehreren Excelmappen den unten stehenden Code namens Berechtigung_pruefen eingefügt, sodass die Mappen nicht gestohlen werden können. Wie dem Code entnommen werden kann, ist eine txt-Datei unter dem Pfad abgelegt und wenn der Inhalt der txt-Datei dem des Codes entspricht, dann kann die Mappe benutzt werden. Das funktioniert auch soweit gut.
Sub Berechtigung_pruefen()
'Pfad zum SchlÙssel
Pfad = "D:\"
Datei = "License_230426.txt"
Codewort = "0m6w-86po-97ko-1s3r"
Password_check = "test"
If Dir(Pfad & Datei) > "" Then
Open (Pfad & Datei) For Binary As #1
Codeimport = Input(LOF(1), #1)
Close #1
End If
If Codewort > Codeimport Then
UserForm1.Show
End If
End Sub
Neue Problemstellung: Mit dem oben erläuterten Vorgehen, kann jeder die Mappen nutzen, der auf dem Server zugreifen kann. Genau das soll nicht mehr der Fall sein. Meine Idee ist, dass sich die personenbezogenen Berechtigungen über ein AddIn steuern lassen sollten, das beim Öffnen der jeweiligen Mappe abgerufen wird. In dieser AddIn befinden sich die Emailadressen ( die für die Anmeldung bei Office verwendet wird ) der berechtigten Personen, die die Mappen verwenden dürfen.
Könnte mir jemand dabei behilflich sein? Oder hat jemand eine bessere Idee, wie man die Berechtigung auf einzelne Personen beschränken kann?
Grüße
AL