ich möchte, dass eine bestimmte UserForm nur von zwei Berechtigten geöffnet werden kann. Wenn eine nicht berechtigte Person versucht die UF zu öffnen, soll eine Meldung erscheinen und die UF soll sich wieder schließen. Mit folgendem Code klappt die Abfrage und das Einblenden der Meldung bei den nicht Berechtigten, nur ich bekomme es nicht hin die UF anschließend zu schließen. Sie bleibt eingeblendet und der nicht Berechtigte kann darin arbeiten:
Private Sub UserForm_Initialize()
Dim x As Long, y As Long
If Not Environ("Username") Like "*00000" Or Not Environ("Username") Like "*00001" Then
MsgBox "Sie sind nicht berechtigt ..", vbCritical, "Firma XY"
Exit Sub
End If
x = Sheets("ZZ-List").Cells(65536, 4).End(xlUp).Row
For y = 4 To x
Me.ComboBox1.AddItem Sheets("ZZ-List").Cells(y, 4)
Next
End Sub
Was mache ich falsch?
Viele GGrüße
Martin