Masquer le menu Fichier et icone Enregister

[seb26000]

Bonjour à tous,

J'ai besoin de bloquer les accès à la commande "Enregister" du menu "Fichier" ainsi qu'à l'icone "enregistrer".
Je souhaite faire cela afin d'insiter l'utilisateur à cliquer sur un bouton "enregistrement" où une macro y est associée.
Cette macro gère également l'enregistrement mais aussi d'autres actions.

Je ne souhaite pas passer par une commande type beforeclose.

Merci d'avance à vous tous !!!


A bientot

Sébastien

 

[DoubleZero]

Re : Masquer le menu Fichier et icone Enregister

Bonjour, seb26000, le Forum,

Voir cette discussion.

A bientôt 🙂

 

[Misange]

Re : Masquer le menu Fichier et icone Enregister

Bonjour
la situation est différente entre les versions. Es tu sur que tous tes utilisateurs utilisent la même ?
Sur 2010 ce n'est pas si facile de modifier les onglets en VBA.
Une excellente source sur ce sujet (en anglais) ici
Change built-in groups in the Ribbon
Perso je trouve plus simple de former les utilisateurs....
ou alors intercepter l'événement de sauvegarde (non pas le before_close mais le before_save) pour y mettre un message et annuler l'enregistrement si les actions requises n'ont pas été faites.

 

[seb26000]

Re : Masquer le menu Fichier et icone Enregister

Bonjour Misange

Je ne connais pas l'instruction beforesave. Est ce que ca fonctionne ainsi :
Si la personne clique sur "Fichier/Enregistrer" ou l'icone "Enregistrer",; un message peut bloquer l'enregistrement et l'inviter à cliquer sur le bouton prévu à cela ?
Par contre, si la personne clique sur le bouton, compte tenu qu'il y a l'instruction " ActiveWorkbook.Save" présente dans cette macro, cette derniere ne va t elle pas lancer l'instruction "beforesave" qui à ce moment là interdira l'enregistrement ?
Peux tu me donner un exemple de code pour bloquer l'enregistrement

Concernant la version d'utilisation : Je travaille sur une version 2010, mais au travail nous sommes en 2007, est ce que cela change quelque chose ?

Merci beaucoup

 

[tototiti2008]

Re : Masquer le menu Fichier et icone Enregister

Bonjour Seb26000, Bonjour 00 🙂, Bonjour Misange 🙂

à placer dans ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
    MsgBox "Pas le droit d'enregistrer par là, non mais !!!!"
End Sub

Sur le code du bouton qui enregistre, un truc comme ça

    Application.EnableEvents = False
    ThisWorkbook.Save
    Application.EnableEvents = True