Hi,
I have a protected sheet:

Public Sub SheetProtectionOn()
'ShortKey Ctrl-Shft-'P'
    Dim bUpdate As Boolean
    Dim oSh As Object
    bUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each oSh In Worksheets
        oSh.Protect _
        UserInterfaceOnly:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True, _
        AllowFormattingCells:=True, _
        AllowFormattingRows:=True, _
        AllowInsertingRows:=True, _
        AllowUsingPivotTables:=True, _
        Password:="Interxion"
    Next
    Application.ScreenUpdating = bUpdate
End Sub
I only want to have the user insert a row in a row/range with unprotected cells.
With above code it is AllowInsertingRows:=True or False (all or nothing)
How would I do this ?

Thanks for helping,
Arnold