Allow Cell Formatting in a userform

Good morning/afternoon/evening

I would like to ask you kind people for a little more help. I have created a userform to password protect/unprotect all worksheets at once with help from this forum. What i would like is to activate the check box so that if i would like to allow cell formatting i can. See image below. Another thing if possible, is when i input the password, is there a way a popup can appear to confirm password. This is what i have so far....

Private Sub CheckBox4_Click()

End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdProtect_Click()
Dim wSheet As Worksheet
    On Error Resume Next
    For Each wSheet In Worksheets
        If wSheet.ProtectContents = True Then
            wSheet.Unprotect Password:=txtPwd.Text
    Else
            wSheet.Protect Password:=txtPwd.Text, _
                AllowFormattingCells:=CheckBox4.Enabled
        End If
    Next wSheet
    If Err <> 0 Then
        MsgBox "You have entered an incorrect password. All worksheets could not " & _
        "be unprotected.", vbCritical, "Incorrect Password"
        End If
    On Error GoTo 0
    Unload Me
End Sub

Private Sub Label5_Click()

End Sub

Private Sub txtPwd_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Your help or suggestions would be appreciated greatly

To allow formatting if the checkbox is checked, ad the following code after the Dim wSheet as Worksheet line of the code you posted above..

If CheckBox4 = True Then
ActiveSheet.Protect AllowFormattingCells:=True
MsgBox "Cells can now be formatted"
Else
ActiveSheet.Protect AllowFormattingCells:=False
End If

Can you attach a sample workbook with your userform and code please? I'm trying to make a mock-up of what you have and things aren't making sense to be when I do. I'd rather work with the real thing so I can do a better job of helping you out. The code I provided should only work on the active sheet if the checkbox is checked and with my mock-up, I'm getting the same results as you are.

pkool,
Just wanted to let you know I haven't forgotten about you. I was on vacation last week and was just now able to take a look at your workbook. The only thing I've noticed is that there is 1 or 2 lines that might be creating the problem you are having.
Here is the code with those 2 lines commented out...

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdProtect_Click()
Dim wSheet As Worksheet
If CheckBox4 = True Then
ActiveSheet.Protect AllowFormattingCells:=True
MsgBox "Cells can now be formatted"
'Else
'ActiveSheet.Protect AllowFormattingCells:=False
End If
    On Error Resume Next
    For Each wSheet In Worksheets
        If wSheet.ProtectContents = True Then
            wSheet.Unprotect Password:=txtPwd.Text
    Else
            wSheet.Protect Password:=txtPwd.Text
                'AllowFormattingCells:=CheckBox4.Enabled
        End If
    Next wSheet
    If Err <> 0 Then
        MsgBox "You have entered an incorrect password. All worksheets could not " & _
        "be unprotected.", vbCritical, "Incorrect Password"
        End If
    On Error GoTo 0
    Unload Me
End Sub

The problem is that the Checkbox code I provided will only work on the sheet that is active when the code runs.