Excel Problem - Delete Row Macro

[thesteelmaker]

I have a protected worksheet, to stop people deleting thing
unnecessarily. Although some rows need to be deleted occasionally.

I want to delete these rows using a macro that unprotects the sheet
deletes the row that has been selected and then protects the shee
again.

I created the following macro, which works:

Sub DeleteMealItem()
ActiveSheet.Unprotect
Selection.EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True
Scenarios:=True
End Sub

But there are some rows in the sheet that i don't want anyone to b
able to delete.

Is there a way to run this so nobody can accidentally delete rows 1 t
8

 

[Frank Kabel]

Hi
one way: To prevent any deletion if row 1-8 are within the selection,
try

Sub DeleteMealItem()
If Intersect(Selection, Range("1:8")) Is Nothing Then
ActiveSheet.Unprotect
Selection.EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
else
msgbox "Rows 1- 8 cannot be deleted"
end if
End Sub

Frank

 

[thesteelmaker]

Thank you very much Frank, that worked fine.

Now i wish i had chosen to do VBA on the course i am doing, it woul
have been more helpfull to me

 

[Frank Kabel]

Hi
thanks for the feedback. You may find the following sites interesting:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
http://www.mvps.org/dmcritchie/excel/excel.htm#vbatutorials
http://support.microsoft.com/support/excel/content/vba101/default.asp