habe wiedermal ein problemchen.
Untenstehendes makro macht folgendes.
Es wird auf die NT-Kennung geschaut. Nur die Benutzer Frank und Bernd werden zu dem makro lese_schreibe geleitet. Alle anderen erhalten eine Zugangsberechtigung über eine UF wo alles weitere geregelt ist.
Ich bräuchte nun aber noch eine dritte Möglichkeit. Sagen wir Karl und Susi dürfen nicht alles was Frank und Bernd darf aber dennoch etwas mehr als die Allgemeinheit.
Wie bekomme ich das geregelt? Natürlich muss ich mir noch ein drittes ZielMakro ausdenken (beisp. lese_lese) - sollte aber nicht die Schwierigkeit sein.
Danke schon mal fürs drüber lesen
Gruß Frank
Private Sub Workbook_Open()
Dim arrBerechtigt, blnError ' Abfrage nach Nutzer NT-Kennung
arrBerechtigt = Array("frank", "bernd") 'Anmeldenamen
blnError = IsError(Application.Match(Environ("username"), arrBerechtigt, 0))
If blnError Then
' nur_lese
UserForm_Initialize.Show ' UF starten
Else
lese_schreibe
End If
End Sub