i have the following code in "thisworkbook"

i want to allow users to be able to change the font color and all as it is restricted at the moment. pls help. thx u

Private Sub Workbook_Open()

For c = 1 To Sheets.Count
               With Worksheets(c)
        .Protect Password:="analyst", userinterfaceonly:=True
        .EnableOutlining = True
    End With
Next c

End Sub