workbook open > macro allow user to delete rows

[bluepenink]

Hello

I have the following VBA code, and I would like to allow users the ability to delete rows....how can i integrate that? pls and thx u

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim ws As Worksheet
For c = 1 To Sheets.Count
               With Worksheets(c)
        .Protect Password:="analyst", userinterfaceonly:=True
        .EnableOutlining = True
        End With
Next c
Worksheets("Overview").Activate
' Worksheets().Visible = True
For Each ws In ThisWorkbook.Worksheets
  If ws.Name <> "Enabling Macros" Then
    ws.Visible = True
  End If
Next ws
Worksheets("Calculations").Visible = False
Worksheets("Lookup").Visible = False
End Sub

thxs again!

 

[VoG]

Try

.Protect Password:="analyst", AllowDeletingRows:=True, userinterfaceonly:=True

 

[bluepenink]

thx u sir!