allow hide/unhide rows&columns when sheet protected (macro)

Hello all

just wondering how i can integrate the user to have the ability to hide/unhide rows&columns when the sheet is protected.

my code is below...much appreciated!

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet
For c = 1 To Sheets.Count
               With Worksheets(c)
        .Protect Password:="analyst", AllowDeletingRows:=True, userinterfaceonly:=True
        .EnableOutlining = True
        End With
Next c

thxs!