Assign Password To A Hidden Sheet, Only 1 Cell Populated

This is my input for password prompt:


Sub CommandButton1_Click()
Dim wSheet As Worksheet

On Error GoTo ErrHandler

Currently, my excel is protected with a password "PSWD" when users open the file. In my vba script, I have a function that can unprotect my excel without any password input box to the users. This method is to unprotect the file and allow users to do any formating columns and rows tasks, such as add or delete cells. After users finish their job, the file will be protected back. The function is such as below:


Dim wSheet As Worksheet
For Each wSheet In Worksheets
Application.ScreenUpdating = False
If wSheet.ProtectContents = True Then
wSheet.Unprotect Password:="PSWD"
Else

My questions are:

1. How I can create a hidden sheet that has one cell populated only?

2. How can I assign the password that the user enters at the "TextBox1" (first code) to a cell of of the hidden sheet? Do I have to modify the first code?

3. For the second code, how am I going to assign the value to at the wSheet.Unprotect/Protect Password:="..." with whatever the user has previously chosen as a password that refers at the hidden sheet?