AW: Windows Benutzer Berechtigung
15.04.2018 00:42:34
Maik
Moin Peter,
Danke für deinen Lösungsansatz.
Ich konnte es gerade mit einer anderen Möglichkeit realisieren.
Function IsInvalidUser() As Boolean
Dim asUsers() As String
asUsers = Split("user1,user2,user3", ",")
IsInvalidUser = IsError(Application.Match(Environ("UserName"), asUsers, 0))
End Function
Damit kann ich sagen Die User haben vollrechte und die anderen nur das was ich ihnen zuteile.
If IsInvalidUser Then
'Eintrag gefunden, TextBoxen in die Zellen schreiben
Tabelle1.Cells(lZeile, 1).Value = Trim(CStr(DTPicker1.Value))
Tabelle1.Cells(lZeile, 2).Value = DTPicker2.Value
Tabelle1.Cells(lZeile, 3).Value = ComboBox2.Text
Tabelle1.Cells(lZeile, 4).Value = ComboBox3.Text
Tabelle1.Cells(lZeile, 13).Value = ComboBox7.Text
Tabelle1.Cells(lZeile, 6).Value = TextBox1.Text
Tabelle1.Cells(lZeile, 7).Value = TextBox2.Text
Else
'Eintrag gefunden, TextBoxen in die Zellen schreiben
Tabelle1.Cells(lZeile, 1).Value = Trim(CStr(DTPicker1.Value))
Tabelle1.Cells(lZeile, 2).Value = DTPicker2.Value
Tabelle1.Cells(lZeile, 3).Value = ComboBox2.Text
Tabelle1.Cells(lZeile, 4).Value = ComboBox3.Text
Tabelle1.Cells(lZeile, 5).Value = ComboBox4.Text
Tabelle1.Cells(lZeile, 8).Value = ComboBox5.Text
Tabelle1.Cells(lZeile, 9).Value = ComboBox6.Text
Tabelle1.Cells(lZeile, 13).Value = ComboBox7.Text
Tabelle1.Cells(lZeile, 12).Value = ComboBox8.Text
Tabelle1.Cells(lZeile, 10).Value = ComboBox9.Text
Tabelle1.Cells(lZeile, 11).Value = DTPicker3.Value
Tabelle1.Cells(lZeile, 6).Value = TextBox1.Text
Tabelle1.Cells(lZeile, 7).Value = TextBox2.Text
Tabelle1.Cells(lZeile, 15).Value = TextBox5.Text
Tabelle1.Cells(lZeile, 14).Value = TextBox4.Text
End If