Boa noite!!

Dentro de EstaPasta_de_trabalho, ponha o código.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
    Sh.Delete
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
     MsgBox "Não é  permitido adicionas guias"
End Sub

Não testado!!!

Att

Perfeito! Valeu Alexandrevba!!

Boa noite!!

Eu fico feliz por ajudar, obrigado pelo retorno!

Att