Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Mit VBA Usernamen speichern und einlesen
#1
Hallo Excelperten,

ich möchte ich einer Excel 2003-Datei, die einen Blattschutz hat und für mehrere Benutzer freigegeben ist, den Namen des Nutzers (Initialien) abfragen.

Diese Initialen soll in VBA gespeichert und in ein Feld der Tabelle kopiert werden.

Es soll nicht der Anmeldename von Excel oder Username von Windows sein.

Hat jemand eine Idee?

Vielen Dank schon einmal!

Excelbeginner
to top
#2
Hi,

Gegenfrage:
Woher weiß Excel denn welcher Benutzer Änderungen vornimmt?

Könntest Du vielleicht mit einer Referenztabelle arbeiten, in der Username und Initialen hinterlegt sind?

Gruß
Max
to top
#3
Hallöchen,

im Prinzip geht das so. Du musst nur mal schauen, für 2003 sollte in dem If der erste Teil gehen.

Code:
Option Explicit

Public Sub UserInitialen()
'Variablendeklarationen
'Objekt
Dim WSHShell As Object
'String
Dim strUI As String
'Textkonstante
Const strHK As String = "HKEY_CURRENT_USER\Software\Microsoft\Office\"
   'Scriptobjkt zuweisen
   Set WSHShell = CreateObject("WScript.Shell")
   'Wenn Excelversion < 12, dann
   If Application.Version < "12.0" Then
   'Registryschlüssel auslesen
   strUI = WSHShell.RegRead(strHK & Application.Version & _
      "\Common\Userinfo\UserInitials")
   'oder nicht Wenn Excelversion < 12, dann
   Else
   'Registryschlüssel auslesen
   strUI = WSHShell.RegRead(strHK & "Common\Userinfo\UserInitials")
   'Ende Wenn Excelversion < 12, dann
   End If
   'Meldung ausgeben
   MsgBox strUI
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#4
Hallo SchauAn,

vielen Dank für Deinen Tipp. Wahrscheinlich ändern sich die Gegebenheiten, da die Mitarbeiter wohl jeder ihr eigenes Excel bekommen. Den Eintrag der Initialen des Usernamens hatte ich schon umgesetzt.

Mal schauen. Ich komme ggf. auf Deinen Vorschlag zurück

Vilen Dank!

Excelbeginner
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Daten einlesen von Tab1 auf Tab2 Medina 1 35 Heute, 08:06
Letzter Beitrag: schauan
  Problem bei "Attachments.Add" Pfad einlesen Bernie 2 191 04.07.2016, 11:36
Letzter Beitrag: Bernie
Question Zwei Tabellenblätter beim Speichern - in eine andere Daten zusätzlich speichern? randyh 3 329 29.04.2016, 15:16
Letzter Beitrag: schauan
  Brauche wieder Hilfe beim Messwerte einlesen skafo 18 1.293 22.03.2016, 07:19
Letzter Beitrag: skafo
  Einlesen von Dateien in verschiedene Spalten Reismann 11 1.005 17.12.2015, 15:34
Letzter Beitrag: Reismann
  csv-Datei in vorhandene Exceldatei einlesen Glausius 40 3.078 06.12.2015, 14:27
Letzter Beitrag: schauan
  Textdatei einlesen, nach Trennzeichen trennen und in eine bestimmte Spalte schreiben johann.s 4 981 19.09.2015, 10:25
Letzter Beitrag: johann.s
  Tabelleninhalte in bestehende Tabelle einlesen Oliver_Berlin 4 1.040 13.07.2015, 19:08
Letzter Beitrag: Oliver_Berlin
  Spaltendaten in neuem Tabellenblatt einlesen Steini 7 1.343 27.03.2015, 13:25
Letzter Beitrag: BoskoBiati
  Daten einer 2. Tabelle in die 1. Tabelle einlesen Willi53 2 855 14.01.2015, 20:28
Letzter Beitrag: Willi53

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste