Microsoft 365 Désactivation/activation Application.CommandBars("ply").Enabled

[pat66]

Bonjour Le forum,

merci d’examiner mon problème

Lorsque j'ouvre un classeur je lui demande de désactiver le clic droit sur les onglets avec :

Application.CommandBars("ply").Enabled = False

Lors de la fermeture, je souhaite que l'on ferme ce classeur systématiquement sans enregistrer (sauf si on utilise une macro spécifique facultative), les éventuelles modifications avec :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Ce document n'est pas enregistrable, utilisez les boutons cet effet !", vbInformation, "Projet"
    Cancel = True
End Sub

'
et

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ret As Integer
    ret = MsgBox("Souhaitez vous fermer ce document ?", vbYesNo + vbInformation, "Projet")
    If ret = vbNo Then
    Cancel = True
    Else
   ThisWorkbook.Saved = True
   End If
   End Sub

Alors ma question est :
comment réactiver Application.CommandBars("ply").Enabled =true lors de la fermeture afin d'éviter que le clic droit reste désactivé pour les classeurs que je pourrais ouvrir ultérieurement.

Merci beaucoup pour votre aide et vos conseils !

 

[Franc58]

Salut, je pense que tu devrais l'insérer à cet endroit du code:

 Else
        ThisWorkbook.Saved = True
        Application.CommandBars("ply").Enabled = True

 

[pat66]

Bonjour Le forum
Bonjour Franc58

J'ai testé ta proposition, hélas cela ne fonctionne pas et je viens de m'apercevoir que j'avais déjà, lors d’un post-précédent, demandé de l'aide pour résoudre ce problème qui est toujours resté insoluble à ce jour.

Désolé pour le dérangement...

Bonne journée à tous.

 

[patricktoulon]

Bonjour
il y a pourtant plusieurs solutions

1. tout simplement d'enregistrer le fichier en xltm
2. enregistrer le fichier en lecture seule
3. aller à information /protéger le classeur et choisir "marquer comme final"
4. bloquer le menu enregistrer et enregistrer sous dans le backstage(ribbon customUI)

et bien d'autre encore
ma préférée étant le xltm (fichier model )qui ne nécessite aucune intervention de ta part

alors @pat66 tu va choisir quoi comme solution

 

[pat66]

Bonjour patricktoulon,

pourrais-je comprendre quel est l'intérêt de modifier l'extension d'un classeur de XLSM en XLTM
afin de tout simplement pouvoir réactiver le clic droit sur les onglets ?

merci

 

[patricktoulon]

re
Bon d'"accords c'est jeudi le debut de semaine a été difficile
alors je vais aller doucement
tu ne veux pas que l'on puisse enregistrer le document xltm sont des fichier model que l'on peut pas modifier
ensuite pour ta barre ply tu la remet true dans le before close c'est tout
punaise dur dur hein!!
aller il reste encore un jour et c'est le weekend 😂 😂 😂

 

[pat66]

🤣🤣, j'adore ton humour, je vais essayer de comprendre avec un test et je reviens vers toi, merci🤣