G
guainflo
Guest
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 :
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)?
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 :
Code:
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 SubComment 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)?