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
Bookmarks