Prevent Deleting Sheet

This may not be exactly what you want, but if you go to Tools>Protection and make sure Workbook Structure is checked you will prevent a user from deleting sheets, it also stops them from adding sheets,hiding & unhiding, renaming and moving sheets.Unfortunately it applies to all sheets so Protection will have to be removed before you can add a new sheet.

I have merged the two threads.

I notice that you didn't even take the trouble to tell Roy why his suggestion was not of any help.

By posting new topics when you don't get a suitable (or any) answer to your original thread, all you do is to create more work for us admins and increase the likelihood of people trying to solve problems that have already been solved elsewhere.

Please remember that this is a FREE resource staffed by very skilled volunteers who give up their time to help people like you for no financial gain. It is thereforein your interest not to abuse this help.

Regards,

Will

One thing to try is modify the main menu to hide the "Edit / Delete Sheet" item when activating IMPSHEET then putting the menu item back when leaving the sheet. This is not absolute protection - if the user has added a Delete Sheet button to one of the toolbars, it would still work (I would think that most people don't have that button added though)

Put the following VBA Code in the IMPSHEET object (not in a general module).

Private Sub Worksheet_Activate()
Set mymenubar = CommandBars.ActiveMenuBar
mymenubar.Controls("Edit").Controls("Delete sheet").Visible = False
End Sub

Private Sub Worksheet_Deactivate()
Set mymenubar = CommandBars.ActiveMenuBar
mymenubar.Controls("Edit").Controls("Delete sheet").Visible = True
End Sub

.....Ralph

In addition to ralph's good idea, you could put the following code into the Thisworkbook module. If the user does delete the sheet, then he won't be able to save the workbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim w
    Set w = ActiveSheet
    Application.ScreenUpdating = False
    On Error Resume Next
    Sheets("IMPSHEET").Activate
    If Err.Number = 0 Then
        w.Activate
        Exit Sub
    Else
        MsgBox "The worksheet IMPSHEET has been deleted, therefor this workbook may not be saved", _
            vbOKOnly + vbCritical, "Deleted Sheet Problem"
        Cancel = True
    End If
End Sub

Sorry I don´t understand your question.
You want prevent to delete some definite area in IMPSHEET or prevent to delete whole sheet?

As well as disabling Delete Sheet on the Edit menu, to disable the worksheet tab pop-up menu :-

Private Sub Worksheet_Activate()
CommandBars("Ply").Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
CommandBars("Ply").Enabled = True
End Sub