Optionen für Benutzer einschränken
15.07.2003 12:57:05
Carsten
ich habe eine Datei in der mehrere Mitarbeiter arbeiten müssen. Über eine UserForm wird beim Start eine Auswahlmaske mit Optionsfeldern angezeigt über die man auswählt was man machen will.
Ich möchte nun gewisse Optionen an einen Benutzernamen binden, d.h. es soll zuerst nach dem Benutzer gefragt werden. Wenn der Benutzername nicht der Vorgabe (z.B. Admin) entspricht sollen bestimmte Optionsfelder deaktiviert werden.
Zur Zeit deaktiviere ich ein Optionsfeld in Abhängigkeit vom Dateinamen und zwar so:
Private Sub UserForm_Initialize()
If ThisWorkbook.Name = "Kalkulation Basis.xls" Then
OptionButton1.Enabled = False
Else
OptionButton1.Enabled = True
End If
End Sub
(Danke an ChrisL)
Ich kriegs aber nicht gebacken, das Ganze an eine Inputbox zu binden.
Hat jemand eine Idee?
Gruß
Carsten