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

Frage Microsoft Microsoft Office

Mitglied: xaumichi

xaumichi (Level 1) - Jetzt verbinden

07.06.2010 um 20:54 Uhr, 2762 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
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 37 MinutenViren und Trojaner

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 4 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell8 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...