Macro To Get Username

Jun 29, 2007

I have copied a macro off another board that get the username of the computer where the excel file is opened. It works fine on my pc but when I have sent the workbook to a colleague my username came up when he opened it. Also what I am trying to do is to modify the macro that does a vlookup on a range in worksheet 1 from where it picks name and surname (and transpose it onto worksheet 2 on cell A2), email (on B2), tel number (on C2) etc etc.

ADVERTISEMENT

Find Username Match And Pull All Data At Same Row W/username

Oct 5, 2007

I have a thousand names on a column, and I have a several worksheet tabs as locations, such as CA, AZ, TX, and NY.

All names goes to main worksheet, show like this

apitchford 10 100 123
bkishpaugh 9 211 123
blee 14 234 111
cbonny 21 125 412

I need to pull a specific name, example, name = blee, move that name with all data on that row into TX.

I will need to set as automatically, becuase the names add and delete on the main worksheet, and will auto update those tab worksheets. (make sense?)

I have tried INDEX and MATCH, but they keep putting one data in, not all data.

View 9 Replies View Related

Get Username & Computer Name Macro Code

Sep 12, 2006

why the Function & Property Get below is used to return the username and computer name when the Environ method does exactly the same in only two lines of code.

I would sooner use the Environ method but not if there is a valid reason why the function is used.

Option Explicit

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

Private Declare Function GetComputerName Lib "kernel32.dll" _
Alias "GetComputerNameA" ( _
ByVal lbbuffer As String, _
nSize As Long) As Long

Public Property Get UserName() As String

Dim stBuff As String * 255, lAPIResult As Long
Dim lBuffLen As Long

View 3 Replies View Related

Create Username And Password To Login Into A Macro Enabled Workbook

Jan 3, 2011

I need a macro ie when a user opens a macro enabled workbook,he should be asked for a username and password to access workbook. Administrator should have right to create users with reset password rights

View 5 Replies View Related

API To Get Username

May 29, 2008

I have Timesheet workbooks with 3 levels of access (user, viewer & me as developer).

I want use the GetuserName API function (with If/Then) to auto open the wkbk if I am loged in under my network login so psuecode looks bit like this

If network user is me then open wkbk
else ask for username & password

I have googled & searched the forum & the closest I have is this

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

Function ReturnUserName() As String
' returns the NT Domain User Name
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next...............

View 9 Replies View Related

Get UserName Or Log In Name

Nov 10, 2006

I've got a sheet with a "Last Edited By:" field and I want this to be populated with the current users name i.e. I suppose I mean the user name that is assigned to Excel, as opposed to the XP log in... although I guess either would do. I'm OK on the change event thing, but just dont know the function to find the the current users name.

View 3 Replies View Related

Insert Username Using VBA

Jan 17, 2007

I'm trying to use the code listed below on the works shared drive. When I open up the worksheet and save it, my log on identity is left as required in Cell B2 etc.. When someone else uses the sheet it just leaves the company name in this cell and not their log on identity? The date & time function always works ok. Can anyone advise me if what I'm after is achievable.

The code I've used below was used from a previous string on a similar question.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Now()
Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = Application.UserName
End Sub[/b]

View 9 Replies View Related

Username / Password At Login

May 31, 2013

I have below piece of code which I'm not sure how to finish up. What I'm trying to do is have 'Username' and 'password' entered before logging into the workbook. It does not have to be 'UserForm" if it is possible, but it would be useful if we use Ucase...

I'm just not sure how this code works with

"Sub sUserLogon(strStandardID As String, strPassword As String)"

stated in this way..

VB:
Sub sUserLogon(strStandardID As String, strPassword As String)
Dim strUserName As String
Dim StrMessage As String
Application.DisplayAlertsAlerts = False
StrMessage = "User Logged In"

[Code] ......

View 2 Replies View Related

Unprotecting A Worksheet By Username

Dec 4, 2009

I would like to unlock the work sheet based on the username. However this code does not seems to be working.

The object is that only these users have access to the locked cells on a sheet and those users not on the list would only have access to the unlocked cells.

View 3 Replies View Related

Time And Username Stamp

Oct 21, 2011

This time stamp macro is great but I would also like to record the person who said 'Y' in the same cell as the date stamp '12:00p.m. MWatson'. The persons name should come from the Username.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range([P13], Cells(Rows.Count, "p"))) Is Nothing Then 'change your range on this line"
With ActiveSheet
If Target.Value = "Y" Then
Target.Offset(0, 1).Value = Now

[Code] ........

View 2 Replies View Related

Print Username In Footer?

Nov 26, 2012

I would like the name of the User to print in the Footer in Excel.

View 9 Replies View Related

VBA (IE Enter UserName And PassWord)

Feb 7, 2007

I am using the below code to access a website with IE.

My next step (of many) is to Login to this website.

The login screen requires that I enter:
User Name:
Password:

How can I tell IE to enter my user name and Password?

Sub Macro2()
'
'Macro2 Macro
' Macro recorded 2/6/2007 by dsggodwin
Public Sub Goto_ToyotaSupplier_Click()
Dim EXP

Set EXP = CreateObject("InternetExplorer.application")
EXP.Visible = True
'put the webpage here
EXP.Navigate ("https://www.portal.toyotasupplier.com/skpi/SkpiGatewayServlet?jadeAction=NCPARTS_SEARCH")
End Sub

View 9 Replies View Related

Getting Username From System In A Cell

Apr 17, 2009

I am trying to get the username from the system to display in A1 in a file in Excel. I got this code form internet and put it in the sheet by clicking right mouse on the sheet1 tab and view code and then pasted it there.

Function UserNameWindows() As String
UserNameWindows = Environ("USRNAME")
End Function

And then as per the instructions on the same page I inserted this formula in A1 : =UserNameWindows()

The person stated that by doing this, I should be able to get user name displayed in A1. BUt all it gives me is #NAME?.

View 9 Replies View Related

Protect With Username VBA Content

Sep 28, 2009

i need a macro that will only open a file to certain users using the "get username" environ thing,

and only allow a list of users to access this file,

this will be a log of things that only managers whouls have access to, i have all the managers usernames (windows log ons) and what i need is that if the log on on the current machine, (the one currently opening the file) does not match one on th elist then the file should not open.

i could pasword protect the file but since my managers are kinda lazy and i wnat to show off a little (maybe hopefully that will push my promotion forward a couple of days at least)

View 9 Replies View Related

To Submit UserName & Password On IE

Feb 18, 2010

I'm trying to create a program that will automatically log in to a website that requires a username & password. I am able to enter the username and password in the correct text boxes, but I can not get the form to submit to approve the login. It refreshes and removes the password.

I have attached my code. The web url is inside it.

Sub IE_login()
Dim ie As InternetExplorer
Dim C
Dim ULogin As Boolean, ieForm
Dim MyPass As String, MyLogin As String
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "https://applications.dacgroup.com/login.aspx"
'Loop until ie page is fully loaded
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop

View 9 Replies View Related

UserName For Access To Second Workbook

Jun 16, 2006

I have a problem with the Excel UserName & opening of a second xls File. Info:
The first file macro, looks as to the Excel UserName, and sets which worksheets from a second file in the network the person can see. then changes the Excel UserName to "helpdl", this is done because only 4 people have access to the Workbook on a network drive, see Code below (only the interesting part of the macro)

'Set the Excel UserName to "helpdl"
'(from Sub Change_UserName)
MyName = Application.UserName
OName = MyName
NewName = "HelpDL"
UserName = NewName
'Set the name of the Active File To "Slave"
Set wbSlave = ActiveWorkbook
'Open the Master from the Network (Wiesbaden server sv030100)
Workbooks.Open "\sv030100GruppenDL60116_MEWA Car Policy_Neukonzeption.xls"
'Set the name of the Active File to "Master"
Set wbMaster = ActiveWorkbook...........................

View 2 Replies View Related

Web Query. Log On Username & Password

Jan 9, 2007

code below, I need :

1) navigate to a web page
2) submit my userId and password
3) beeing redirected to a different url I have to menage this situation for passing url to
4) quering sub

I am using Excel 2000 with win98
Error 429 Can't create object:which one?

Public Sub First()
Dim obEx As Object
Dim obj As New MSHTML.HTMLBody
Dim strPass As String
Dim elUid As New MSHTML.HTMLInputElement
Dim elPass As New MSHTML.HTMLInputElement
Dim elSubmit As New MSHTML.HTMLInputElement
Dim strUid As String
Dim Desc As String

View 9 Replies View Related

Get Username & Use To Change Directory

Oct 2, 2007

I have an Excel macro that pulls an external .txt file from a particular directory on a users computer. The directory is different for each user because of the way the computers are configured, see example below.

Bob's computer:
c:obwork

Jill's computer:
c:jillwork

There is a system variable called %username% on each computer that can be used for navigation in an OS enviroment. So if you were at the command prompt on user's computer and typed cd\%username%work you would be put in the desired directory. Is there a way to leverage this system level variable, %username%, in an Excel macro?

View 2 Replies View Related

Incorrect Username For Workbook In Use

May 14, 2008

Usually when you try to open a file that someone else is using, it lets you know the file is in use, and lets you know who is using it. However, the situation I have is that when a user tries to open the file that is in use, it tells them that the file is in use, but gives them the wrong user who is using it!

For example, User1 opens the file and closes it again. User2 comes along and opens the file and stays in the file. User3 comes along and tries to open the file, but instead of saying User2 is using the file. It says User1 is using!

The file we have was originally built in Excel 97, but we using it through compatibility mode in Office 2007. The file is needed by various users, but putting it on shared access is not an option.

View 9 Replies View Related

Extracting Username From A List Of Tweets

Dec 21, 2012

I have a list of tweets, and I would like to extract just the username found within the tweet. I'm not sure if a formula is the best way to do this, or possibly a macro.

The example I've attached is only of 18 tweets, but the spreadsheet I'm looking to use this on is 100,000+ tweets, so I need something easily scalable. One thing to note is that a tweet can have more than oneuser mentioned in it, such as the first tweet in the example.

Tweet Example.xlsx

View 13 Replies View Related

Unlocking With Username And Autolocking When Save

Feb 13, 2014

Excel can automatically recognise individuals by their windows login name so you can fully automate the protect/unprotect of the correct sheets without even individuals having to use passwords.

The first step though would be to gather the id's of all users.

1. Create an additional sheet and call it UserLog
2. Put the following code into all the worksheet code modules

[Code] ......

Once you know the windows login names and which sheet they are responsible for you can add the following code to each worksheet.

[Code] .....

I have tried as per below and it is not working.

I have about 50 user that uses one document and will record their comments to instructions, but only 20 users will be able to add the instructions. The document needs to autolock when it is saved and can only be unlock with the username of the 20 users.

View 1 Replies View Related

Show / Hide Sheets Per Username

Mar 8, 2014

I'm trying to only show specific sheets per user using the environ variable and this code seems to work for the single user / sheet but the master user does not function correctly i.e. the code does not show all sheets, this is the code I am using:

[Code] ......

Why the above code does not respect the Master User "Jane" should be able to see all sheets?

Original source for this code was found here:

HTML Code:  [URL]....

View 7 Replies View Related

Usage Input Box And Application.username

Mar 27, 2009

I would like to combine the application.username function with the input box however, I do not know the proper syntax.

View 2 Replies View Related

Check Username On File Start Up

Oct 28, 2009

i have a spreadsheet with the following worksheets:

"Data Entry" (sheet 1)
"Menu" (sheet 2)
"Username" (sheet 3)

In username the range a2:b5 contains the following:
a2= John b2=Write
a3=Scott b3=Readonly
where John or Scott are usernames in Environ("Username")

Is it possible to write a macro that does the following:
1. When the file is opened it looks at the network username and checks again the Username range in sheet3, if it is Write then the user can change cells in Data Entry and save the workbook, if Readonly then they can only view and not save, and if not there at all, then the worksheet closes.

2. When the file is opened write a log in a hidden sheet callled "Log" of the time opened and the username

3. Is it possible to do the same but making a copy of all cells changed ??

View 3 Replies View Related

Including Environment Username In Cell

Feb 1, 2006

I have searched the forum several way to resolve my issue and the only solutions were as follows:

PHP
Public Function UserName()UserName = Environ("username")UserName = Computer("UserName")End FunctionOption ExplicitFunction NetworkUserName() As StringDim responseNetworkUserName = Environ("Username")End Function 

Problem is that I get a #REF! and #NAME? instead of the user names
I am using Excel 2000 (I can not upgrade, Government PC) plus we need it to support Excel 2000 - present versions.

View 13 Replies View Related

Save To Directory Based On Username?

May 20, 2013

I have a button that saves my excel workbook to a network drive, but what I'd like to do is have it save the file to a directory named after the user, instead of all the users in the department saving to one folder. For instance, R:customerserviceweight reconstructionusername, where username a directory named after the user.

Code:
Private Sub Save_Click()Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
FileName1 = Range("A2")
FileName2 = Range("A3")
ActiveWorkbook.SaveAs Filename:="R:CustomerServiceWeight Reconstruction" & FileName1 & " - " & FileName2 & " - " & Format(Date, "yyyymmdd") & ".xlsm", FileFormat:=52
End Sub

View 1 Replies View Related

OpenLDAP Query - Whether Username Active Or Not

Mar 3, 2014

Please consider the following:

A
B

1
John.Doe

2
Jane.Doe

3
Mary.Roe

I am looking for a way to query an OpenLDAP instance, using the values in column A and looking up whether or not the username is active or not. The return value would be true/false in column B, which would indicate that yes, the username is active, or no, it is not.

View 1 Replies View Related

Excel 2010 :: Insert Username Without VBA?

Apr 10, 2014

I'm keen to add a field to a spreadsheet that populates a cell with the username of the last person who edited the file, as in the system or logon name, e.g. first.lastname syntax.

I would however like to keep this sheet as an .xlsx and not have it as an .xlsm. I have the code to use VBA, but is there way to grab the username without VBA to keep the .xlsx format?

I'm using Excel 2010.

View 1 Replies View Related

Handling Username And Password Window Using VBA?

Jul 22, 2014

As part of my requirement, i'm trying to update some data into share path. While trying to access the share path, i'm being asked to key-in appropriate username & password. Windows alert will be opened when my code try to access share path, there I have to enter username & password using script.

Is there any way achieve this using VBA?

View 2 Replies View Related

Sorting Based On Category And Username

Mar 25, 2008

I have imported a list of information from a text file created by my network admin. I need to take the information from different categories in the list and sort them by category. All of the information is in once cell, but each has a common prefix (ie. URL = or Username), etc. After each prefix is the information I'd like to sort under the category (each category is the prefix). All of the information (prefix & data) is in cell A because it was a text file, and I'd like to simply find a way to say if A10 = URL= then place the information in C10...Below is what I need to sort.

URL = [url]
User Name =
Source IP = 0.0.0.0
Destination IP = 12.345.67.89

Disposition = CATEGORY_BLOCKED
Lookup Code = WISP_URL_BLOCKED
Category = Proxy Avoidance

Elapsed Time = 0 ms

AVG TIME PER REQUEST = 0 ms

------------------------------------------
Sending URL_LOOKUP_REQUEST_EX...
------------------------------------------

URL = [url]
User Name =
Source IP = 0.0.0.0
Destination IP = 123.456.789.101

Disposition = QUOTA_USER_BLOCKED
Lookup Code = WISP_URL_BLOCKED
Category = Social Networking and Personal Sites

Elapsed Time = 0 ms

AVG TIME PER REQUEST = 0 ms

View 9 Replies View Related

Log UserName Of User On Data Entry

Dec 2, 2006

I have a spreadsheet where for traceability purposes, I get some vba to enter elsewhere on the sheet, the date and time that data is entered into a cell. Is it possible to also somehow capture the name of the person entering the data. We are on a network, so the pc does "know" which user is logged in.

View 8 Replies View Related

Place Username In Directory Path

Mar 9, 2007

I've been trying to get the network username and found the solution on a previous thread. I have got to the point where I have copied the network username to my workbook. I now want to save this workbook into My Documents using that value for the username. So, so far i have:

'Get username from network

Dim User As String

CUser = Environ("username")
Cells(5000, 9) = Environ("username")
user = Application.ActiveCell

' Protect workbook and save in My Documents

ActiveSheet.Protect

ChDir "C:Documents and SettingsXXXXXXXMy Documents"

ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsXXXXXXMy DocumentsSalary Review Data 2007 - " & country & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Close

The user who saves this workbook, will be doing so on their own PC's so i need the file to save to their 'My Documents' folder. So i need to replace the red X's with the user's network username (which I have extracted and dim'd as User. How do i write this into the path of the directory?

View 2 Replies View Related

Enter Username & Password On Web Page

Oct 25, 2007

I am trying to log on to an FTP site and post a file through Excel VB. I have managed to open a new Explorer window and direct it to the URL, but I don't know what to do next. After navigation to the URL a Pop-Up Window comes asking for UserName and Password and I don't know how to supply it and click submit.
After I have completed that I will need to give the path of the file, click post, and close the window when it is done.

Here is what I got so far:

The commented out stuff is not working. I got it off a similar application that someone else in my company wrote that accomplishes a similar task.

Sub SConnect()
Dim IE As InternetExplorer
Dim IEURL As String
Dim IEDoc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
Set IE = New InternetExplorer
IE.Visible = True
IEURL = "https://something.com" .................

View 4 Replies View Related

Automate Username & Password Log In To Web Page

Nov 21, 2007

I'd like to automatically enter the username and password from a spreadsheet.

Currently, I've got a spreadsheet that has a login id in one cell and a password in an adjacent cell.

I click a button on the spreadsheet to call a hyperlink to a webpage while excell is using the copy function to copy the username to the clipboard.

Once the webpage loads, I just paste the username into the username box.

Then I go back to excel, copy the password, then back to the webpage and pastes the password.

This works good for me, but I'd like to make it a little bit better.

What I'd like to be able to do, if I had the username and password in one cell seperated by a symbol (say, "=" since usually don't use that one) then when I hyperlink to the webpage, I hit paste.

>> this time, when I hit paste, (maybe using some kind of a api code or something), excel pastes into the first box, *automatically* hits the [TAB] key, and paste the password.

View 3 Replies View Related

Runtime Error 1004 When Username Not In List

Mar 13, 2014

I am getting an Run Time error 1004 Application-defined or object defined-error.

I am assuming this is occuring because the username is not in the list for the pivot table as I am using some code which includes Environ, some code that if user name is not in pivot table then bring back no data or make pivot table blank. I have included the code below.

[Code] ........

View 1 Replies View Related

Entering Correct Username Displays Colour

Apr 11, 2007

i have a username and password textbox and i want to know when i enter a correct username the textbox it is in turns green and when wrong it will turn red, here is the code i have so far im not very experienced but know bits and pieces.

Code for txtpassword.text

View 10 Replies View Related

Invalid Username Msgbox And Runtime Error

May 7, 2014

I have a code for userform login. The users will enter their user name, password, and role and then click on submit. The user names, password and roles are given in the sheet "user access".

Now the problem is if a user enters a wrong user name which is not on the sheet "user access", it gives a msg stating invalid username. And if I click ok it is showing a run time error. Is there a way to stop showing this run time error and just show the invalid username msg box alone.

View 3 Replies View Related

Storing Username And Password Data In .txt File

Aug 20, 2008

I was able to get some help a while ago and hoping for someone to reply as well. Any one have ideas how to create a userform which will be use for username and password input? I know how to create one but is there anyway that the username and password will be stored as .txt file instead of using worksheet to store the data?

View 14 Replies View Related

Add A New Comment With The Date/time Added To The Username

Oct 22, 2009

I need a mar that I want to attach to a button that would:Add a new comment with the date/time added to the username [format XYZ 22/10/09 14:48] and then I type the comment text, and/or
Append a new comment to the existing comment, in the same format as for 1.

View 7 Replies View Related

Display Username In Message Box That Has A File Open

Feb 2, 2010

I have bit of code that:
(1) opens another spreadsheet
(2) updates that spreadsheet
(3) saves that spreadsheet
(4) closes that spreadsheet

If the spreadsheet that requires updating is open by another user, I display a message indicating the file is open and no updates occured. There are about 20 persons within the organization that may have this file open? Is there away to display the username of the person who has the file open?.

View 4 Replies View Related

Excel 2010 :: Recovering Username On Specified Cell

Oct 4, 2013

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

Public Function UserName() As String
Dim Buffer As String * 100
Dim BuffLen As Long
On Error GoTo UNerr

[Code] ......

I found the code online and attempted to call the user name using =username() on the specified cell, but I receive the #NAME? error. I looked around and found several references to check the VB refence box for anything missing and I did not find anything incorrect.

To note, I am attempting this at my job's PC which will be used on other employees PC's as well.

View 6 Replies View Related

ADVERTISEMENT