AW: Wenn bestimmter User Datei öffnet dann MsgBox
21.01.2015 14:57:31
Klaus
den Usernamen bekommst du mit Environ("Username") heraus
Sub TestMeinUsername()
MsgBox Environ("Username")
End Sub
Natürlich bekommst du damit nur den Username des gerade angemeldeten Benutzers heraus.
Um die Usernamen von anderen Usern heraus zu bekommen, kannst du dir eine kleine Falle basteln. Erstelle eine Datei (Endung xlsm) und in dieser nennst du eins der Blätter "Userliste". In Blatt 1 kopierst du irgenwas lustiges. Dann legst du das ganze auf dem Server ab und schickst eine Mail an alle, dass da eine total lustige Datei liegt. Der Code:
Private Sub Workbook_Open()
Dim lRow As Long
With Sheets("UserListe")
.Visible = xlVeryHidden
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(lRow, 1).Value = Environ("Username")
.Cells(lRow, 2).Value = Date
.Cells(lRow, 3).Value = Time
End With
ActiveWorkbook.Save
End Sub
sammelt dir dann die Usernamen unsichtbar ein. Das Blatt selbst kannst du nur per VBA wieder einblenden!
Eine einfachere, weniger Spaßige aber dafür legale Methode die Usernamen herauszufinden wäre, die User einfach zu fragen. Oder den Admin. Der Code oben kann dir als verbotene Mitarbeiterüberwachung ausgelegt werden, falls du damit auffliegst. Aber er zeigt eine Anwendung von Environ("Username"), vielleicht lernst du ja etwas.
IF-Zeilen können in VBA nicht mit Kommata getrennt werden. Entweder ein langes OR basteln
If Environ("Username") = "c.boehnke" Or Environ("Username") = "h.meyer" Or Environ("Username") = _
"c.schiffer" Then
End If
oder auf ein "Select Case" zurück greifen:
Dim bAktion As Boolean
Select Case Environ("Username")
Case "c.boehnke"
bAktion = True
Case "h.meyer"
bAktion = True
Case "c.shiffer"
bAktion = True
Case Else
bAktion = False
End Select
If bAktion = True Then
MsgBox ("Hallo Welt")
End If
Wenn du damit etwas kreativ bist, kannst du auch die Datei einfach schließen wenn der Username dir nicht passt oder unbekannt ist.
Zwischen IF und EndIF kannst du natürlich alles anstellen, nicht nur eine MsgBox plazieren. Wenn du dazwischen einen Code plazierst der den Internet-Explorer öffnet und eine Pornoseite ansteuert, dann passiert eben das. Genauso kannst du auch eine Userform starten, klar. Ein Modul kannst du nicht starten, denn Module kann man nicht starten. Aber Makros in Modulen, falls du das meinst.
Hoffe etwas geholfen zu haben!
Grüße,
Klaus M.vdT.
das mit der Pornoseite habe ich tatsächlich mal genutzt, um einen alten und prüden Kollegen aus meiner Datei heraus zu halten