VBA to Protect & Hide Worksheets in Excel w/ user Password

[Excelerate2]

I had a question and have been trying to add the ability to use the same code below but with adding a user defined password and/or without using a password (similar to the Excel's own 'protect/unprotect icon' which allows you to optionally use your own password or none at all)

I am stumped but if anyone knows how to modify it would be great!

Here is the code below (it has a fixed password: "123", but I would like the user to be able to create their own password, and maybe also opt for blank or no password:

--------
Option Explicit

Public Const conSheetPassword As String = "123"

Sub ViewSheet()

Dim userInput As Variant

userInput = InputBox( _
Prompt:="Input a password to unlock the worksheets.", _
Title:="Password Input", _
Default:="Password")

If LCase(Trim(userInput)) = LCase(conSheetPassword) Then
' Pass - all is good.

Sheet2.Visible = xlSheetVisible
Sheet6.Visible = xlSheetVisible

Sheet2.Select

Else

MsgBox "Incorrect password. Access Denied."

End If

End Sub
-------------------------
Sub HideSheet()

Sheet2.Visible = xlSheetVeryHidden
Sheet6.Visible = xlSheetVeryHidden

Sheet1.Select

End Sub

-------

 

[Excelerate2]

Basically just need it to be like Excel's own 'Protect/Unprotect Workbook icon' but in VBA.
Thanks...

 

[Excelerate2]

Basically, just need to use my above code but replace the hard-coded password method with a user defined password
(To allow the user to optionally use their own password of their own choice, and also opt to use no password).