[OT?] Impedire l'aggiunta di un nuovo foglio in Excel

[Nicola]

Non so se questo è il NG giusto ma uno su VBA non l'ho
trovato.
Devo impedire che un utente possa aggiungere un foglio ad
un file excel che gira come applicazione stand alone. Se
ciò venisse fatto salterebbero tutti gli indici
dell'insieme worksheets e quindi...
Ho provato con:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Select
ActiveWindow.SelectedSheets.Delete
MsgBox "Impossibile aggiungere nuovi fogli di lavoro"
End Sub
ma Excel chiede la conferma per l'eliminazione e quindi se
l'utente preme Annulla il foglio rimane inserito.
Qualche idea?
Grazie
Nicola

[Tiziano Marmiroli]

Post by Nicola
Non so se questo è il NG giusto ma uno su VBA non l'ho
trovato.

Era meglio microsoft.public.it.office.excel

Post by Nicola
Devo impedire che un utente possa aggiungere un foglio ad
un file excel che gira come applicazione stand alone. Se
ciò venisse fatto salterebbero tutti gli indici
dell'insieme worksheets e quindi...
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Select
ActiveWindow.SelectedSheets.Delete
MsgBox "Impossibile aggiungere nuovi fogli di lavoro"
End Sub
ma Excel chiede la conferma per l'eliminazione e quindi se
l'utente preme Annulla il foglio rimane inserito.
Qualche idea?

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
MsgBox "Impossibile aggiungere nuovi fogli di lavoro"
End Sub