interdire la suppression d'une feuille avec VBA

Bonjour Aze, le Forum

A ma connaissance je ne vois pas d'évènement 'Sheet_BeforeDelete' et par conséquent il faut jouer avec les Protection de la Structure du Classeur...

Menu Excel
[li]=> Outils[/li]
[li]=> Protection[/li]
[li]=> Protection Classeur[/li]
[li]=> Cocher 'Structure'[/li]

Inconvénient : ce paramètre va s'appliquer à toutes les Feuilles du Classeur...

Une solution VBA : consisterait à utiliser l'évènement 'Workbook_SheetActivate' dans le Private Module de ThisWorkBook et d'y placer un code comme celui-ci :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Protection As Boolean
    Protection = IIf(Sh.Name = 'TheSheetToProtect', True, False)
    ThisWorkbook.Protect Structure:=Protection
End Sub

Cliquez pour agrandir...

Par contre il restera éventuellement un autre inconvénient avec cette méthode, la Feuille 'TheSheetToProtect' sera également protégée en ce qui concerne le changement de nom, la copie et le déplacement... Donc voir si celà peut convenir...

Bon Aprèm
@+Thierry