Windows user name and password for authentication

[tsawyer73]

I'd like to protect a small area in the excel sheet. Example H45:M47 where the user should put his/her windows username and password as authentication method through a VBA userform window.

I'm not a VBA expert due to that fact the full step by step VBA code and setup will appreciate!

Thanks

 

[Kyle123]

IF they've already logged into windows - hence you have their username. What use is them typing their password into your spreadsheet again? Windows has already checked who they are - and cytop is right; I suspect that your it department would put the brakes on this one - it may even violate IT policies

 

[tsawyer73]

I wouldn't like to store any username and password just call them from the windows system for the temporarly authentication process.

 

[Kyle123]

But what would that actually give you? You already know they are who they say they are since they've already logged into windows.

To get their windows username you can use the environ function - MsgBox environ("username")

 

[tsawyer73]

as I try to explain to everybody the reason is very simple. I wouldn't like the maintain username/password table but I need to protect some area in the excel sheet. If somebody can give me the solution I'll appreciate that.
Thanks

 

[Kyle123]

Then just maintain a list of users who are permitted and check the active user against that list, you can either keep this list on a hidden worksheet and use vlookup or hardcode it into your vba project. If they are in the list they can edit, if they aren't then they can't, simples

Assuming a list of usernames in A1-A10

Function isPermitted() As Boolean


    If UBound(Filter(Application.Transpose(Sheets("MySecretSheet").Range("A1:A10").Value), Environ("username"))) = 0 Then isPermitted = True
    
End Function

 

[tsawyer73]

Then just maintain a list of users who are permitted and check the active user against that list, you can either keep this list on a hidden worksheet and use vlookup or hardcode it into your vba project. If they are in the list they can edit, if they aren't then they can't, simples

Assuming a list of usernames in A1-A10

Function isPermitted() As Boolean


    If UBound(Filter(Application.Transpose(Sheets("MySecretSheet").Range("A1:A10").Value), Environ("username"))) = 0 Then isPermitted = True
    
End Function

I think that isn't a rigth solution because now the authentication handled by userform and based on this I'd like use username and passwrod through userform graphic interface.

 

[Kyle123]

I give up what you're trying to do is complicated and pointless. Since the user has already logged in, why do you need them to log in again? - you already know who they are

 

[Jubjab]

I think that isn't a rigth solution because now the authentication handled by userform and based on this I'd like use username and passwrod through userform graphic interface.

I don't see why the userform invalidates that suggestion. Just run the function from the userform.

 

[Kyle123]

I don't really know why you need a userform at all, it's better to keep uneccessary ui to a minimum. Just alert them if they can't edit it when they try, otherwise just let them edit away without a userform getting in the way

 

[tsawyer73]

I give up what you're trying to do is complicated and pointless. Since the user has already logged in, why do you need them to log in again? - you already know who they are

Hello,pls check the file and H45:M47 area. That area protected with VBA script with single password without any username referenced password. I must find the way how can I change that simple method to any username and password related authentication process.(https://docs.google.com/file/d/0B0Jd2YDhu80QUFplb01wcFpDUmc/edit?usp=sharing)