VBA code to protect sheet with certain settings.

[FragaGeddon]

I'm using a code in my sheets to hide certain columns. With the formula I'd also like to have the ability for the user to format columns.
Even if I protect the sheet manually, the next time the code is activated, it only allows 'Select Unlocked Sheets'.

Here's a part of my VBA code.

If Target.Address = "$B$3" Then
    If Target.Value <> "" Then blHide = False
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> "Blank" Then 'Sheets to exclude
                    ws.Unprotect ("password")
                    ws.Columns("C:D").Hidden = blHide 'Hide Columns
                    ws.Protect ("password")
            End If
        Next
End If

 

[Teeroy]

Change the settings applicable to the protection. i.e.

ws.Protect password:="password", AllowFormattingColumns:=True

 

[FragaGeddon]

Sorry I didn't get back sooner, but that worked. Thanks.