OptionButton Enabled
09.09.2008 09:47:00
max
erstelle gerade ein neues Berichtswesen. Nicht jeder User hat auf jeden Berichte Zugriff. Ich habe eine Userform "Berichtsauswahl" mit OptionButtons für die vorhandenen Berichte angelegt. Um den berechtigten Zugriff zu steuern, frage ich den Usernamen über eine Inputbox ab. Bei dem jeweiligen User sollen nun nur die OptionButtons akiv sein, für die er berechtigt ist. Bei folgenden Makro (AuswahlBerichte ist die Userform und Allgemeine Berichte ist ein OptionButton in dieser UserForm) kommt immer die Meldung: "Fehler beim kompilieren. Variable nicht definiert". Die Meldung bezieht sich auf 'AllgemeineBerichte'.
Sub userform_anzeigen()
Dim UserName As String
UserName = InputBox("Benutzername eingeben", "Anmeldung")
If UserName = "name" Then
AuswahlBerichte.Show
AllgemeineBerichte.Enabled = False
Else
AllgemeineBerichte.Enabled = True
End If
End Sub
Die Lösung ist sicher einfach, aber ich kann es nicht. Für eure schnelle Hilfe Dank im voraus.
max