Please Note this is not a secure fix but if your just trying to keep it very simple:
Dim strInput As String, strMsg As String
strMsg = "Enter the password."
strInput = InputBox(Prompt:=strMsg, Title:="Password", XPos:=2000, YPos:=2000)
If strInput = "APASSWORDHERE" Then
'Do Whatever...