Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Arbeitsblatt mit Benutzername öffnen

Frage Microsoft Microsoft Office

Mitglied: xaumichi

xaumichi (Level 1) - Jetzt verbinden

07.06.2010 um 20:54 Uhr, 2753 Aufrufe, 3 Kommentare

Hallo!

So, jetzt bin habe ich noch eine Frage:

Ist es möglich, den Benutzernamen/LogIn Namen eines Rechner mit Hilfe von Excel 2007 auslesen?
Und kann man dann mit diesen Informationen eine Exceldatei so bearbeiten, dass für jeden Benutzernamen (der zuerst ausgelesen wurde) das jeweilige Arbeitsblatt geöffnet wird?

Klingt ziemlich kompliziert und befürchte, dass es auch so sein wird.
Aber vielleicht kann mir ja doch wer helfen!

mfg
Mitglied: tbesand
07.06.2010 um 21:38 Uhr
Hallo selbst,

dieser Code stammt von einer MS Seite:
  ' Declare for call to mpr.dll. 
   Declare Function WNetGetUser Lib "mpr.dll" _ 
      Alias "WNetGetUserA" (ByVal lpName As String, _ 
      ByVal lpUserName As String, lpnLength As Long) As Long 
 
   Const NoError = 0       'The Function call was successful 
 
   Sub GetUserName() 
 
      ' Buffer size for the return string. 
      Const lpnLength As Integer = 255 
 
      ' Get return buffer space. 
      Dim status As Integer 
 
      ' For getting user information. 
      Dim lpName, lpUserName As String 
 
      ' Assign the buffer size constant to lpUserName. 
      lpUserName = Space$(lpnLength + 1) 
 
      ' Get the log-on name of the person using product. 
      status = WNetGetUser(lpName, lpUserName, lpnLength) 
 
      ' See whether error occurred. 
      If status = NoError Then 
         ' This line removes the null character. Strings in C are null- 
         ' terminated. Strings in Visual Basic are not null-terminated. 
         ' The null character must be removed from the C strings to be used 
         ' cleanly in Visual Basic. 
         lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1) 
      Else 
 
         ' An error occurred. 
         MsgBox "Unable to get the name." 
         End 
      End If 
 
      ' Display the name of the person logged on to the machine. 
      MsgBox "The person logged on this machine is: " & lpUserName 
 
   End Sub
Ich würde diese Sub zu einer Function ummodeln, die Dir den ermittelten Usernamen als string zurückliefert, und dann in der auto_öffnen Funktion der gewünschten Arbeitsmappe einige Zeilen ähnlich der folgenden aufrufen:
Private Sub auto_open()        '...oder wie hiess das doch gleich? 
    Dim strUsername As String 
    strUsername = GetUserName() 
    ActiveWorkbook.Sheets(strUsername).Activate 
End Sub 
Hope this helps,
/Thomas
Bitte warten ..
Mitglied: xaumichi
07.06.2010 um 22:06 Uhr
Hm....gut, danke schön! Dann werd ich mich hier mal ein durcharbeiten und schau, was sich machen lässt.
Danke schon mal.

mfg
Bitte warten ..
Mitglied: LotPings
07.06.2010 um 23:21 Uhr
Warum nicht einfach über das Environment ?

    strUsername = Environ("USERNAME")
Gruß
LotPings
Bitte warten ..
Ähnliche Inhalte
Windows 10
Citrix Receiver - Benutzernamen speichern (2)

Frage von hendrik.vondankbahr zum Thema Windows 10 ...

Windows 7
gelöst Nervige Eingabeaufforderung für Benutzername und Kennwort Eingabe (7)

Frage von Freddy0013 zum Thema Windows 7 ...

Linux
Rdesktop Linux Benutzername leer lassen (3)

Frage von opc123 zum Thema Linux ...

Windows Netzwerk
gelöst Benutzername oder Passwort falsch (3)

Frage von Havanna63 zum Thema Windows Netzwerk ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(2)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...