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

--
Message posted from http://www.ExcelForum.com

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


I have a protected worksheet, to stop people deleting things
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 sheet
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 be
able to delete.

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


---
Message posted from http://www.ExcelForum.com/

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

--
Message posted from http://www.ExcelForum.com

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...m#vbatutorials
http://support.microsoft.com/support...01/default.asp

--
Regards
Frank Kabel
Frankfurt, Germany

Thank you very much Frank, that worked fine.

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


---
Message posted from http://www.ExcelForum.com/