VBA Interdire suppression d'une feuille contenant Worksheet_Change

[guainflo]

Bonjour,

Je doit interdir à tous les utilisateurs la suppression de 2 feuilles.

La 1ère contient 2 boutons et les macros associées.

La 2ème contient une macro du style :

Private Sub Worksheet_Change(ByVal target As Range)
    nbcol = Worksheets("1 page").Range("B3")
    nblig = Worksheets("1 page").Range("B4")
    Dim Plage As Range
    Set Plage = Range(Cells(2, 3), Cells(2 + (nblig - 1), 3 + (nbcol - 1)))
    If Application.Intersect(target, Plage) Is Nothing Then
        MsgBox "Hors cible."
        Application.EnableEvents = False
        Range("A2") = nblig
        Application.EnableEvents = True
    Else
        MsgBox "Dans la cible."
        Application.EnableEvents = False
        Range("A3") = nbcol
        Application.EnableEvents = True
    End If
End Sub

Comment interdir la suppression des 2 feuilles par un utilisateur quelconque, en ajoutant des lignes de code pour cela mais sans mot de passe (c'est-à-dire que tous le monde peut modifier le programme sans avoir à entrer un mot de passe)?

 

[skoobi]

Re : VBA Interdire suppression d'une feuille contenant Worksheet_Change

Bonjour guainflo,

Je crois pas que cela soit faisable, à confirmer par d'autres, en tout cas pas en ajoutant du code dans l'événement de la feuille puisqu'elle sera détruite...
Au mieux il est possible de détecter la suppression d'une feuille par VBA mais pas interdire la suppression sauf en protégeant le classeur.