problème macro

[DAMIEN]

bonsoir
quelqu'un peut il m'expliquer pourquois cette macro (auto_close) ne marche pas correctement (la protection ne ce réactive pas) en faisant fichier quitter sur excel 97 alors alors que sur excel 2002, elle marche bien.


la macro:

Sub auto_open()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.CommandBars("File").Controls(5).Enabled = False
Application.CommandBars("File").Controls(3).Enabled = False
Application.CommandBars("TOOLS").Controls(7).Enabled = False

End Sub
Sub auto_close()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.CommandBars("File").Controls(5).Enabled = True
Application.CommandBars("File").Controls(3).Enabled = True
Application.CommandBars("TOOLS").Controls(7).Enabled = True
End Sub

merci

damien

 

[Dan]

Bonsoir Damien,

Essaie de n'utiliser que l'instruction : Activesheet.protect

Une remarque cependant, comme Thierry le faisait remarquer dans le post <http://www.excel-downloads.com/html/French/forum/messages/1_62276_62276.htm>, il est conseillé de ne plus utiliser ces macros.

Il faudrait remplacer "Auto_open" par "Private Sub Workbook_Open()" et "Auto-close" par "Private Sub Workbook_BeforeClose(Cancel As Boolean)"
Toutes deux à placer dans "This workbook" de VBA project.

Bon travail

@+

Dan