Option Explicit
'===========================================================================================
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
Const nm$ = "не удалишь"

If Sh.Name <> nm Then Exit Sub
Sh.Name = "%$%DELETE%$%"
Sh.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
Sheets(ActiveWorkbook.Sheets.Count).Name = nm
End Sub

Option Explicit
Const nm$ = "не удалишь"
'===========================================================================================
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
If Sh.Name <> nm Then Exit Sub
ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub
'===========================================================================================
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> nm Then Exit Sub
ActiveWorkbook.Protect Structure:=False, Windows:=False
End Sub

Option Explicit
Const nmCompare$ = "%$%не удалишь1%$%не удалишь2%$%точно не удалишь%$%"
'===========================================================================================
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
If Not nmCompare like  "*%$%" & Sh.Name & "%$%*" Then Exit Sub
ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub
'===========================================================================================
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not nmCompare like  "*%$%" & Sh.Name & "%$%*" Then Exit Sub
ActiveWorkbook.Protect Structure:=False, Windows:=False
End Sub