Zentrale Paßwortablage
28.11.2003 15:51:05
Torsten K.
in ca. 60-70 Budgetdateien habe ich über Buttons Makros hinterlegt, deren Ausführung ich auf mich allein beschränkt habe, indem ich eine Paßwortabfrage vorangestellt habe (z.B. bestimmte WS ein-/ausblenden). Hintergrund: Die Dateien werden auch von anderen Usern genutzt.
Dafür habe ich in jeder Datei in einem Modul folgenden Code hinterlegt:
Option Explicit
Function GetPassword() As Boolean
Dim PW As String
PW = InputBox("Bitte Password angeben", "Passwortabfrage", "")
If PW = "Kennwort" Then
GetPassword = True
Else
GetPassword = False
End If
End Function
Der Code eines Button sieht dann so aus:
Private Sub cmb_SettingsShow_Click()
If GetPassword = True Then
Sheets("Settings").Visible = True
Sheets("Settings").Select
Else
MsgBox "Password ist falsch"
End If
End Sub
Wenn ich jetzt aus welchen Gründen auch immer, daß Paßwort wechseln möchte, müßte ich alle 60-70 Dateien durchgehen und ändern.
Gibt es nicht eine Möglichkeit, dieses Paßwort oder diese Funktion zentral in einer Datei einzustellen, und die Buttons der Budgetdateien darauf referieren zu lassen? Wenn ja, wie müßte ich den oben genannten Code anpassen und was muß ich sonst noch dabei berücksichtigen?
Als VBA-Einsteiger bin für Eure Hilfe sehr dankbar.
Gruß
Torsten
Anzeige