Password from cell

[KlausW]

Hi I am using this VBA code found here on Mr. Excel to run a macro after I have entered the password. Now I would like the code to find the password in cell H1.
Some who can help, any help would be appreciated.
Best regards Klaus W

Sub MPW()
Dim MyPassword
MyPassword = InputBox("Please enter password", "Password Prompt", "********")

'hardcode password
If MyPassword = "password" Then
    MsgBox "Access Granted", vbInformation, "Access"
    'call macro
    Exit Sub
Else
    MsgBox "Access denied", vbCritical, "Error"
    Exit Sub
End If
End Sub

 

[Special-K99]

So instead of using an InputBox to enter a password you want to set the password according to the value in cell H1 ?

Change

MyPassword = InputBox("Please enter password", "Password Prompt", "********")

to

MyPassword = Range("H1").value

 

[KlausW]

No, I still want to use an Input Box to enter a password in and the correct code is in cell H1. And it must then be entered in an Input Box to run another VBA code. KW

 

[RoryA]

If MyPassword = Sheets("some sheet").Range("H1").value Then

I think is what you are looking for.

 

[KlausW]

If MyPassword = Sheets("some sheet").Range("H1").value Then

I think is what you are looking for.

Hi, I get this message after I rename the sheet and write the same code that I have in cell H1. Access denied. KW

 

[KlausW]

I think it's because I use numbers, if I use letters it works. Can it be changed so that you can use both parts. KW

 

[RoryA]

Try:

If CStr(MyPassword) = Cstr(Sheets("some sheet").Range("H1").value) Then

 

[KlausW]

Try:

If CStr(MyPassword) = Cstr(Sheets("some sheet").Range("H1").value) Then

Hi RoryA Just as it should be, thank you very much.
Good evening here from Denmark
With best regards
Klaus W