[XL-2010] bloquer enregistrer sous Excel 2010

[moi244]

Bonjour à tous,
j,ai un code qui bloque le bouton fichier eregistrer sous et enregistrer ainsi que le raccourci Ctrl+S sous Excel 2003. Mais il ne fonctionne pas sous 2010.
Avez vous une suggestion?.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub empecheEnr()
 
With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = False
End With
With Application.CommandBars("Worksheet Menu Bar")
.Controls("Fichier").Enabled = False
End With
 
'desactive le raccourci clavier Ctrl+S
Application.OnKey "^s", ""
 
End Sub

Merci!