Password Protect Workaround: Using Macro to act like WS Protect

I have created this simple format to at the moment stimulate the user from gaining access to a certain WS although it can be circumvented pretty easily by them just selecting "Yes":

Please Login or Register  to view this content.

All it does is take them to another worksheet if the select "No"

My intentions would be to take this a step further in which I pull up a Userform which has a textbox for a "Password". If they get the password right it gives them access to the worksheet if they get it wrong it does the same maneuver and sends them back to the "Home" worksheet as shown in the previous code.

Any help would be appreciated.

Jared