Code to prevent inserting rows and columns

[FGaxha]

Pls how to prevent inserting rows and columns in excel. This code not working:

Sub DisableInsertRowColumn() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1") ws.Protect Password:="YourPassword", AllowInsertingRows:=False, AllowInsertingColumns:=FalseEnd Sub

 

[mumps]

Copy and paste this code into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the code into the empty code window that opens up. Close the code window to return to your sheet. Try inserting a row or column.

Dim lRow As Long, lCol As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    lCol = ActiveSheet.UsedRange.Columns.Count
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Dim lRow2 As Long, lCol2 As Long
    lRow2 = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    lCol2 = ActiveSheet.UsedRange.Columns.Count
    If lRow2 <> lRow Or lCol2 <> lCol Then
        Application.Undo
    End If
    Application.ScreenUpdating = True
End Sub

 

[Joe4]

In the future, please use Code Tags when posting your VBA code.
It is extremely easy, only takes a second, and will make your code in a more user friendly format like mumps code is.
See: How to Post Your VBA Code

Your code is not very readable with all the wrapping like that. Luckily it is very short, otherwise it might be totally impossible to work with.

 

[FGaxha]

It does not work

 

[Joe4]

What does not work?
If mumps code does not work, why did you mark & accept it as the solution?

 

[FGaxha]

I marked it before testing

 

[mumps]

I tested it on a dummy sheet and it worked properly. It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your sheet.
Alternately, you could upload a copy of your file (de-sensitized if necessary) to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here.

 

[Joe4]

I marked it before testing

Please test it and confirm it is working before marking it as the solution!
Most people will not even bother looking at your question if it is marked as already having a solution.

Note that you can also remove the solution by checking on it again if it is not working.
I have done that for you here, but you can do it yourself in the future.