interdire la suppression d'une feuille avec VBA

[aze]

Re-bonjour,

2ème post aujourd'hui, dsl de vous embêter un peu.

Ma question est toute simple :
Connaissez-vous la syntaxe pour empecher la suppression d'une feuille Excel ?

Merchi bien.
🙂

 

[_Thierry]

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

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