bloquer enregistrer sous Excel 2010
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!
