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


ADVERTISEMENT

VBA Code Not Working On Another Computer?

May 22, 2013

I have made a program using excel vba with userforms, however upon using it on another or any computer with the same version of Office(2007) i am getting a debugging error and highlighting any lines with the words "format" & "date" in the vba code.

View 3 Replies View Related

How To Get To A Computer On Our Network Using Code

Jan 29, 2007

I have code below that works well most of the time. One of the cases below will not work. It insists on requiring a name and password.

(note: it is the only Windows 2000 operating systems)

I want to enter this in my case line to automatically add the username and password.

Let's say the username is: "dave" and the password is: "happy"

How can I add this to this part of the code?

Case "DJ"
strfilename = "\DAVEJONESDavesProposals" & strfilename

Sub Save_and_SaveSalesman()

Dim strPath As String, strPath2 As String, CurrPath As String

Dim WB1 As Workbook
Dim WB2 As Workbook

View 9 Replies View Related

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

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.

View 3 Replies View Related

Macro To Get Computer ID

Jun 28, 2007

a macro to get the computer ID of the computer where the excel file is opened?

View 9 Replies View Related

Macro Does Not Run On Different Computer In Same Network

Jan 20, 2007

I wrote a macro that runs perfect when started from my pc, but if started from a different ps which is logged into the same network it doesn't run, also the macro is stored on the server. I have a code in the private section of the workbook:

Private Sub Workbook_Open()
Call FINAL
End Sub

then the macro 'FINAL' is stored in the 'Modules' section and starts with:

Sub FINAL()
'this part opens the Edit/Links dialog from which the user has to choose the relevant model
Dim Which_financial_model_contains_the_data As String
ActiveWorkbook.ChangeLink Name:= _
"T:DEALSSSalsa (Project)Financial modelsProject Salsa Model - BASED ON SPONSOR CASE - b - 20061214.xls" _
, NewName:= _
"Which_financial_model_contains_the_data" _
, Type:=xlExcelLinks

View 6 Replies View Related

Macro To Create Folder In Computer

Mar 6, 2014

Can a macro create a folder in my computer and use the value in cell A1 as the folder name? This is where I want the folder to be created C:UsersUserDesktop.

View 8 Replies View Related

Paste Special Won't Work When Move Macro To Some Other Computer

Jan 20, 2012

Designing very simple macro, it simply trims of some bits from the spreadsheet.

I paste special the trimmed cells over the top of the existing cells.

The macro works fine on my computer.

I took the code from my computer and put it on the other persons computer. The macro didn't work claiming issue with the paste special.

View 7 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

Get Computer ID

Mar 5, 2008

Is there a code available that can be used to get the user's computer ID number (Not Computer Name)? I'm using a password generator to randomly generate a password and I would like to use this unique password with the user's Computer ID.

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

VBA Macro Code Needed To Run The Code Contained Within A Cell

Dec 17, 2008

I have a macro that, when run, needs to read the contents of cell B5, and run the code that it contains.

Cell B5, for example, would contain the text:
Range("B13").Formula = "SUM(D12:D14)"

I need a macro to "execute this code", as if it were in the macro itself.

I have assigned the above to a variable, but am not sure how to execute it.

EG.


Dim the_calc
the_calc = Range("B5").value

Now, how do I run the_calc ?

View 9 Replies View Related

Computer IP Address

Mar 10, 2006

I have a problem running an excel macro on different laptops because the IP needs to be known (my program links to databases that are installed on a "server" laptop). The IP can be sourced by using the "Start, Run, cmd, ipconfig" but my users can have problems with process.

Does anyone know of a vb function that will display the ip of the computer that the code is run on?

View 9 Replies View Related

Overflow On One Computer But Not On The Other

Sep 8, 2007

i am experiencing runtime error '6': overflow on one computer but not on another computer when it is the exact same file running on two different computers.

View 9 Replies View Related

Formula To Get The Name Of My Computer?

Apr 5, 2008

Is there a code or formula to get the name of my Computer?

View 9 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved