VBA to Protect sheets & keep some options on

Dears,

I will be very grateful if some one can help me. I have excel file include 50 sheets, so I made one sheet that include all the basis info for all the sheets and at the same time I made command button to protect/Unprotect all the sheets in one command.

This is the commands:

Private Sub CommandButton1_Click()
Dim WS As Worksheet
Dim PW As String

PW = "secret" ' to change Password
For Each WS In Worksheets
WS.Protect Password:=PW
Next WS
End Sub
Private Sub CommandButton2_Click()
Dim WS As Worksheet
Dim PW As String

PW = "secret" ' to change Password
For Each WS In Worksheets
WS.Unprotect Password:=PW
Next WS
End Sub


So what I need is to add something to those VBA to keep some of the options active, I mean if you go to: Tools/Protections .. in seen box/window you can select in checkbox for the options, i.e:
1. Format Rows 2. Edit object
Which means that even if the sheet protected, the user can select objects and can change the row's formats as I selected.

Therefore what should I add to this VBA to activate those two options.

Many thanks in advance for any kind assistance.