User Forms with cell formatting and sorting

Good day

I have a user form with 2 checkboxes (4&5)

I have checkbox 4 for "AllowSorting"and i need 5 for "AllowCellFormating"

This is what i have so far but ive tried adding allowcellformating but cannot get both to work together


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, _
AllowSorting:=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

How would i add it to this macro to make it work

Try this

Please Login or Register  to view this content.

Thank you so much it, worked.....but you already knew it would

Originally Posted by pkool

Thank you so much it, worked.....but you already knew it would

I'm glad it works for you If you are satisfied with the solution you can set the thread as solved in the Thread Tools Menu at the top. Thanks for the Reputation!