Code to disable fill handle and cell drag & drop for specific worksheet only

I have a worksheet (M1) that has an excel table where the user is able to enter data. I have another worksheet (Sheet1) that extracts data from this excel table. However, I discovered that if the user decides to use the table's fill handle on one of row cells to drag down a row as a way to auto populate a new date, the Sheet1 worksheet does not recognize this new row. Instead, it loses the row it once had with formulas.

I am thinking that there may be a macro (or maybe a formula?) to do one of either two things:

A. Disable the fill handle and cell drag & drop feature, but ONLY for the M1 worksheet, not for the other worksheets that might be in the workbook. This way, the user is forced to manually type in the date instead of trying to drag down a new date.

B. Enable Sheet1 to recognize the new M1 row insert and not lose any of the rows with formulas.

Are there any such solutions? I'd be very grateful if there is. I've already spent days writing up sheets that read from excel table entries and would hate to drop this project because of this problem.

Please see the attached file and the MS word screenshot for further reference.

.
https://www.ozgrid.com/forum/index.p...drag-and-drop/

How do you write this code to deactivate the fill handle for this workbook only, not other workbooks?

Thank you for your suggestions.

I tried adding the code as best I can but apparently did not do it properly.

Please try setting the code on this attached workbook so I can see where I went wrong.

Thank you!

.
See attached :

Logit, thank you for putting this together properly.

Interesting that if any other workbook(s) are open at the same time as this one, then they also have their fill handles disabled. That'll still be fine for my purpose.
I'm going to try and see if there's a way to prevent deletion or insertion of rows/columns as well.

.
Use these macros instead :

Please Login or Register  to view this content.

Where ever there is the term Application ... it was replaced with ... ThisWorkbook.Application