Excel VBA获得（唯一）Excel用户的ID

Question

I'm currently looking for a way to identity a user of a workbook - preferably by hooking into some account information from Microsoft Excel. I've found the following line which gets the Excel username:

Application.UserName

However this isn't quite "safe" (unique) Enough as I Wish to make sure that only One person/user can use the workbook. It's Easy just Change the username in excel.

Is it possible to get some other account information? I'd prefer the e-mail used with the office/Excel account, however some other answers Say that it probably isn't possible to get that value(??).

Answer 1

By "safe" you mean unique? Try

Environ("username")

Application Username is the name of the User set in Excel Tools>Options

Environ("username") is the user name which you log into Windows with.

Answer 2

I had spent some time locating how to send an e-mail to the sending account (for self-notifications), and found an answer, and experimented, and explored some more, until I found that the following worked for my purposes:

Outlook.Application.Session.CurrentUser.Address

This answer recommends Application.Session.CurrentUser.AddressEntry.Address

However, if you are using early-binding in your code, you'll need to add a reference to the Microsoft Outlook [version#] Object Library .

---

Also , note that the above does not return a value which can be compared with either a hard-coded or an in-put value in standard email format, ie "myname@account.com".

---

However , for the way my Outlook is setup, I can access my e-mail address as a string via:

outlookApp.Session.Accounts(1).DisplayName

I will caution, however, that I have also read of times when this gave an unexpected value. It is also based of the first account listed; which may not always be the account for the CurrentUser , depending (on ?).