Zugriffsrechte auf Arbeitsblatt pro Benutzer

Private Sub Workbook_SheetActivate#ByVal Sh As Object# If ActiveSheet#Na#e = Sheets#1##Na#e Then Exit Sub If ActiveSheet#Na#e Environ#"UserNa#e"# Then x = MsgBox#"Sie haben keinen Zugriff auf dieses Tabellenblatt." & Chr#13# _ & "Bitte wählen Sie IHR Blatt #" & Environ#"UserName"# & "# aus!", vbOKOnly, " _ Sicherheitshinweis") Sheets(1).Activate End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function WinUserName() As String ' Returns the network login name Dim lngLen As Long, lngX As Long Dim strUserName As String strUserName = String(254, 0) lngLen = 255 lngX = apiGetUserName(strUserName, lngLen) If (lngX > 0) Then WinUserName = Left(strUserName, lngLen - 1) Else WinUserName = vbNullString End If End Function Sub ADMIN_Test() If UCase(WinUserName) = "ADMIN" Then MsgBox "Administrator !" Else MsgBox "Leider nicht ADMIN !" End If End Sub

Hallo NoNet,
danke daß du nochmal reingeschaut hast :-)
****klaro : Per Shell aus VBA heraus muss man das mit cmd.exe /c aufrufen ...****
Du also auch, das wollte ich wissen. Ich muß bei meinem WinXP cmd /c auch bei Start---Ausführen voransetzen, ist das bei dir auch so? Ich war irritiert daß du nur von Set ...
geschrieben hast.
Set ist wie "Dir" keine einzelne Exe-Datei sondern in Command.exe bzw. cmd.exe eingebaut.
Also wundert es mich nicht daß bei
S = Shell("set")
bei mir Fehler 53, datei nicht gefunden., kommt.
Andrerseits ist das frühere Prompt, bzw. jetzt Start---Ausführen irgendwie was anderes.
Denn beim Prompt (=Eingabeaufforderung) reicht set oder dir.
Btw, kennst du Subst? Schöner Befehl. Du hast sicher wie ich einen Unterordner "Test" o.ä. samt ggfs. einigen Unterverzeichnissen um mal was zu testen.
Im Code ist es dann auf die dauer recht lästig immer den kompletten Pfad anzugeben. Deshalb habe ich mir mittels Subst das stark vereinfacht.
In "Autostart", der bei mir diesen Pfad hat:
C:\Dokumente und Einstellungen\ich2\Startmenü\Programme\autostart
habe ich eine .bat Datei erstellt in der u.a. sowas steht:
subst K: c:\test
subst U: c:\test\marion
Klappt vorzüglich.
**** und diese Umgebungsvariable
gilt dann auch nur innerhalb der Shell - in VBA bleibt der %UserName% bestehen wie er ist.****
Ja. So wie ich das sehe ist Username der Name den man angibt wenn man Windows installiert.
Noch ungetestet ist was geschieht wenn ich in die o.g. Batch einfüge:
Set Username=Admin
Mein Bauchgefühl sagt mir daß dann %UserName% Admin sein wird.
****Eine sicherere Methode als per ENVIRON() den Benutzername zu prüfen ist diese Methode per Windows API****
Schaue ich mir noch genauer an.
Gruß
Reinhard

Hallo Reinhard,
der Befehl SET ist keine ausführbare Datei (EXE, BAT, MSI, COM, VBS, etc.) sondern ein interner "Befehl" der Eingabeaufforderung CMD.EXE (früher unter DOS : Command.Com), daher lässt er sich nicht direkt per SHELL() aufrufen sondern nur als Parameter der CMD.EXE (also: SHELL "cmd.exe /c set.....").
Daher hatte ich in meinem ursprünglichen Beitrag auch geschrieben :

Windows Eingabeaufforderung : SET

Bedeutet also : WINDOWS Eingabeaufforderung starten (per "START - Ausführen : CMD - OK") oder per "START - Programme - Zubehör") und dann in der Eingabeaufforderung SET eingeben :
Userbild

Klaro kenne ich SUBST - habe ich schon vor über 20 Jahren unter DOS genutzt und auch regelmässig unter Windows - und sogar schon einige Male in EXCEL-Beiträgen erwähnt bzw. empfohlen :
http://www.spotlight-wissen.de/archiv/message/1047049.html
https://www.herber.de/forum/archiv/976to980/t979789.htm#979794
http://www.spotlight-wissen.de/archiv/message/581302.html
etc. ;-)
Übrigens : Die Umgebungsvariable %Username% ist nicht der Name, den man beim Installieren von Windows angegeben hat, sondern der Name des Benutzerprofiles mit dem man sich anmeldet.
Innerhalb einer CMD-Sitzung (z.B. BATCH-Datei) bleibt der geänderte Wert der Umgebungsvariablen erhalten, aber er "vererbt" sich nicht auf das globale Windows-System, so dass er per Environ("Username") in VBA nicht abgefragt werden kann.
Es gibt allerdings auch die Möglichkeit eine Umgebungsvariable GLOBAL zu verändern, diese Methode ist mir jedoch gerade entfallen (einzig in den Systemeigenschaften lässt sich das ändern - jedoch erst nach Reboot des PCs gültig).
Gruß, NoNet

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim wks As Worksheet Application.ScreenUpdating = False Sheets("NoMacro").Visible = True For Each wks In Worksheets wks.Visible = (wks.Name = "NoMacro") * 3 + 2 Next Me.Save End Sub

Private Sub Workbook_Open() Dim strUser As String, wks As Worksheet With Application .EnableCancelKey = False .ScreenUpdating = False End With strUser = Environ("Username") On Error GoTo ERRHANDLER Select Case LCase(strUser) Case "admin" For Each wks In Worksheets wks.Visible = True Next Case Else Sheets(strUser).Visible = True End Select Sheets("NoMacro").Visible = 2 ERRHANDLER: Application.EnableCancelKey = True If Err.Number Then MsgBox "Kein Zugriff erlaubt!", , "Berechtigungsprüfung" Me.Close End If End Sub

Beliebteste Forumthreads (12 Monate)

Zugriffsrechte auf Arbeitsblatt pro Benutzer

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zugriffsrechte auf Arbeitsblatt pro Benutzer

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread