Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

UserName ermitteln

Dieses Makro liest den UserName (Benutzernamen) des eingeloggten Benutzers aus. Dies ist für Dateien/Programme interessant, die nur für bestimmte Benutzer freigegeben werden sollen. Damit lässt sich eine Benutzerverwaltung realisieren, welche abhängig vom angemeldeten Benutzer einzelne Programmfunktionen freischaltet bzw. sperrt.

Da die Anmeldung am Windows-Rechner durch einen ausgeklügelten Sicherheitsmechanismus als relativ sicher gilt, ist diese Art der Benutzerverwaltung sehr empfehlenswert.

Kopieren Sie den nachfolgenden Code in ein Standard-Module.

_

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub  ShowUserName()

'** Dimensionierung der Variablen
Dim  Buffer As String * 100
Dim  BuffLen As Long, strUserName$

'** Auslesen des Benuterznamens
 BuffLen = 100
 GetUserName Buffer, BuffLen
 strUserName = Left(Buffer, BuffLen - 1)

'** Ausgabe über eine MsgBox
 MsgBox "Benutzername: " & strUserName

End  Sub

 

Wenn Sie den Code ausführen, wird der Username über eine Message-Bog ausgegeben, siehe Abbildung:

 

Den so ausgelesenen Benutzernamen können Sie dann entsprechend in der weiterführenden Programmierung verwenden.

Eine Formel-Lösung zum Auslesen des Benutzernamens finden Sie in dem folgenden Artikel:
Benutzernamen (User-Name) per Formel auslesen

   

Relevante Artikel

  • Anzahl Formeln in einer Arbeismappe ermitteln

    16010 Mit Hilfe dieser Prozedur werden alle Formeln einer Arbeitsmappe ermittelt werden. Dies kann beispielsweise für statistische Zwecke nützlich sein. Die Prozedur durchläuft alle vorhandenen...

  • Übersicht aller Excel Schlüsselwörter

    108000a Nachfolgend eine Übersicht aller VBA-Schlüsselwörter   A B 1 Deutsch Englisch 2     3 Abs Abs 4 AktiviereAnw AppActivate 5 AktVerz CurDir 6 Alle Each 7 Als As 8 AlsWert ByVal 9 AlsZeiger ByRef 10...

  • Gelöschte Elemente aus PivotTable Auswahl entfernen

    Ein bekanntes Problem im Zusammenhang mit PivotTables ist die Tatsache, dass Einträge die aus der Quelldatei für die PivotTable gelöscht wurden, weiterhin im Auswahlfeld der PivotTable vorhanden...

  • Gruppieren und Filtern trotz Blattschutz

    Sobald der Blattschutz aktiviert ist, gibt es keine Möglichkeit mehr, die Gruppierungsfunktion bzw. die Autofilterfunktion über Excel-Standards zu nutzen. Gleichgültig, welche Schutzoption aktiviert bzw....

  • Tastenkombinationen deaktivieren und aktivieren

    108039 In Excel sind einige Tastenkombination mit Funktionen hinterlegt. Mit der Tastenkombination [Alt] + [F11] können Sie die VBA-Entwicklungsumgebung starten. Möchten Sie diese Standardfunktion deaktivieren...