this workbook

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
Application.CommandBars("Ply").Enabled = False
ThisWorkbook.Sheets("welcome").Visible = True
For Each ws In ThisWorkbook.Sheets
If Not ws.Name = "welcome" Then ws.Visible = xlVeryHidden
Next ws
UserForm1.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayWorkbookTabs = True
ThisWorkbook.Sheets("welcome").Visible = True
For Each ws In ThisWorkbook.Sheets
If Not ws.Name = "welcome" Then ws.Visible = xlveryhiden
Next ws
Application.CommandBars("Ply").Enabled = True
End Sub
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
MsgBox "Sorry File Is Protect", vbInformation
Sh.Delete
Application.DisplayAlerts = False
End Sub