Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Windows Benutzer Berechtigung

Windows Benutzer Berechtigung
14.04.2018 22:55:45
Maik
Moin Moin,
folgende Aufgabenstellung, ich habe 2 Benutzer Gruppen die eine Userform ausfüllen können. Ich möchte erreichen, dass wenn Gruppe 1 Eingaben macht alle Textboxen in die Tabelle gespeichert werden, wenn Gruppe 2 Eingaben macht aber nur z.B. die hälfte der Textboxen gespeichert werden.
Grüße Maik

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Windows Benutzer Berechtigung
14.04.2018 23:00:08
Maik
In der Userform könnt ihr sehen wie das gemeint ist. Gruppe 1 Label Schwarz + Rot in Tabelle schreiben. Gruppe 2 nur Label schwarz in die Tabelle schreiben.
https://www.herber.de/bbs/user/120972.zip
AW: Windows Benutzer Berechtigung
14.04.2018 23:58:32
Peter(silie)
Hallo,
die Berechtigungen musst du irgenwo hinterlegen.
Ich würde eine Textdatei empfehlen oder in der Excel Datei eine
user Tabelle anlegen.
Hier ein wenig Code für das Grundprinzip;
(ersetze die Const sachen durch die Textfile daten oder sheet daten).
Modul "Client"
Option Explicit
Public Enum TYPE_OF_USER
SuperUser       '0
NormalUser      '1
InvalidUser     '2
End Enum
Private Const SU1 As String = "SuperUser1"
Private Const NU1 As String = "NormalUser1"
Private Const IU1 As String = "InvalidUser1"
Public Sub GetTypeOfUser(ByVal ThisUsername As String, ByRef uOperationType As Long)
Select Case ThisUsername
Case SU1
uOperationType = SuperUser
Case NU1
uOperationType = NormalUser
Case IU1
uOperationType = InvalidUser
Case Else: uOperationType = InvalidUser
End Select
End Sub

UserForm Code:
Private Sub CommandButton1_Click()
Dim uTypes  As Variant
Dim uOp     As Long
uTypes = Array("SuperUser1", "NormalUser1", "InvalidUser1")
Client.GetTypeOfUser uTypes(0), uOp
Select Case uOp
Case 0
MsgBox "Do all"
Case 1
MsgBox "Do certain"
Case 2
MsgBox "Do none"
End Select

Anzeige
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

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige