Help: Unprotect Sheet Re-Protect Permitting 1 row Deletion

P

Perico

This might be a duplicate post but not sure anyone will see my other one
which is in a reply.

I'm trying to allow users of a protected sheet to delete a duplicate row.
When protection was applied thru the menu, "Allow User To Delete Row" was
checked.
Problem: when this code runs and I right click the pink dup row number,
"Delete" is not enabled. Please help!

If whichsheet = "ResData" Then
ThisWorkbook.Sheets("ResData").Unprotect ("myPw")
Intersect(Range("resRecNum"), rw).Interior.ColorIndex = 7
'pink

rw.Locked = False

Intersect(Range("resRecNum"), rw).Offset(-1,
0).Interior.ColorIndex = 50 'green
Intersect(Range("resMeasure"), rw) = "DUP"

'rw.Offset(-1).Locked = False

ThisWorkbook.Sheets("ResData").Protect ("MyPw"),
AllowDeletingRows:=True
 
D

Dave Peterson

This is what I guessed in the other post.

Is rw a row in a range--less than all the columns?

maybe

rw.entirerow.locked = false
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top