Discussion :

[ferronimus]

Slt,
J'ai 5 feuilles qui sont sécuriser, lors de ma macro j'enlève le pass et le remet à la fin mais si sa débug avant la remise du code ma feuille n'est plus protégers.
Y a t'il un moyen pour que mes feuilles se resécurisent en cas d'erreur.
ferronimus

[Invité]

Bonjour ferronimus,

Vous pouvez essayer (c'est un exemple simple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Ma_procédure()
 
On Error GoTo Fin
 
  "Traitement"
 
 
Fin:
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, Password:="xxxxx"
End Sub

S'il y a une erreur la feuille est protégée et s'il n'y en a pas le passage par Fin: protègera aussi (vous pouvez remplacer les "False" par "True").

Amicalement.

[ferronimus]

slt, je voudrais savoir si il est possible de faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Ma_procédure()
 
On Error GoTo Fin
"Traitement"
On Error Resume Next
une ligne à problème que je connais et que je gère
On Error GoTo 0
"suite traitement"
Fin:
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, Password:="xxxxx"
End Sub

[ferronimus]

si personne répond j'en conclus que c'est bon sa marche alors