Vba excel s'applique à ouverture excel...

Fermé
pat_noumea - 29 déc. 2010 à 05:50
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 30 déc. 2010 à 00:22
Bonjour,

j'ai de placer dans workbook ce code afin que les utilisateurs ne puisse pas sauvegarder le fichier sur lequel il travail...

Private Sub Workbook_Open()

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

Mon probleme est que 1) je suis un nul de VBA et 2) maintenant cette fonction est en permanence dans excel... Dur... dur

Un champion est-il cappable de m'aider ??? ou de m'expliquer simplement ce que j'ai fais afin de revenir à l'etat initiale.

Par avance merci de votre aide

Patrick



A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
30 déc. 2010 à 00:22
Bonjour,

Pour rétablir les menus ou/et les barres d'outils :
Clic droit sur la barre de menu / Personnaliser ... /onglet Barres d'outils
choisir la barre puis Réinitialiser
0