Top-Themen

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

Mitglied: xaumichi

xaumichi (Level 1) - Jetzt verbinden

07.06.2010 um 20:54 Uhr, 2767 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
Microsoft Office

Inhalte von mehreren Arbeitsblätter in einem Arbeitsblatt untereinander kopieren

Frage von SaphireMicrosoft Office

Hallo Liebe Leute, ich habe mich zwar im Forum detailliert umgesehen und Lösungsvorschläge anderer Beiträge versucht anzuwenden, leider jedoch ...

Microsoft Office

Excel Arbeitsblätter kopieren sich selbstständig

gelöst Frage von KMP1988Microsoft Office7 Kommentare

Servus, ich habe ein Problem mit Excel 2013. Ein Kunde hat bei sich am PC eine Excel-Datei mit mehreren ...

Microsoft Office

Range eines Arbeitsblattes definieren ??

gelöst Frage von SaphireMicrosoft Office10 Kommentare

Liebe Leute, bitte um eure Hilfe bezüglich der untenstehenden Makro. Diese Makro funktioniert zwar, nur werden die Arbeitsblætter nicht ...

Microsoft Office

MAKRO EXCEL bestimmten Zahlen von einem Arbeitsblatt X in ein neues Arbeitsblatt Z kopieren

gelöst Frage von user2k14Microsoft Office8 Kommentare

hallo, ich möchte gerne ein Makro erstellen, welches mir ein bestimmtes Wort sucht, dieses Wort kommt immer vor in ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 2 TagenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 3 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Server
Standortvernetzung zu einem Strato VServer (Windows)
Frage von matzefratze81Windows Server10 Kommentare

Moin, ich komme aus einem Enterprise-Umfeld und habe den Fehler gemacht, dass ich mich auf ein kleines Unternehmen eingelassen ...

Grafikkarten & Monitore
4k EIZO Monitor, Fernseher und Splitter
Frage von LerxxeyGrafikkarten & Monitore9 Kommentare

Hallo Zusammen, vielleicht könnt ihr mir bei einem Problem helfen wo ich einfach nicht mehr weiterkomme Und zwar haben ...

TK-Netze & Geräte
Fax im Betrieb
Frage von gansa28TK-Netze & Geräte6 Kommentare

Hallo zusammen, Endlich wurden meine Gebete Erhört und der Rechner meines Bekannten dem ich etwas unter die Arme greife, ...

Windows Server
HyperV Failover Cluster Konzeption und Aufbau
Frage von snowboard86Windows Server5 Kommentare

Hallo liebe KollegInnen, Ich habe eine Frage zu Hyper V Failover-Clusters. Wir sind ein mittelständisches Handelsunternehmen und haben aktuell ...