Activation Macros obligatoire
Bonjour à tous.
ayant créé un fichier contenant des macros (plein de macros) je voudrai rendre leurs activations obligatoires à l'ouverture du fichier.
J'ai donc utilisé un bout de code que j'ai trouvé sur le net, qui fonctionne très bien. Mais voilà, j'ai un problème.
En effet, j'ai fait un bouton qui fait une sauvegarde dans un dossier avec renommage (horodatage) du fichier (génère autant de document qu'on appui sur le bouton de sauvegarde) et un envoi par mail du fichier sauvegardé. Forcément quand je fait une sauvegarde, ça sauvegarde le paramétrage complet du fichier, à savoir le paramétrage de visibilité des feuillets. Donc quand j'ouvre le fichier créé par la sauvegarde, les feuillets sont visible même sans activer les macros (GROS PROBLÈME!!!).
Voici le codeà l'ouverture du fichier pour obliger l'activation des macros.
Affichage des feuilles
Sheets("Client").Visible = -1
Sheets("Détail de la vente").Visible = -1
Sheets("Informatique").Visible = -1
Sheets("Detail").Visible = -1
Sheets("TPS HORS LABO+TPS COULEUR").Visible = -1
Sheets("TPS LABO").Visible = -1
Sheets("TPS GENERAL").Visible = -1
'Feuille de démarrage cachée
Sheets("MACROS").Visible = 0Du coup a chaque sauvegarde il faudrait que je fasse l'inverse avant la sauvegarde.
'Masquage des feuilles
Sheets("Client").Visible = 0
Sheets("Détail de la vente").Visible = 0
Sheets("Informatique").Visible = 0
Sheets("Detail").Visible = 0
Sheets("TPS HORS LABO+TPS COULEUR").Visible = 0
Sheets("TPS LABO").Visible = 0
Sheets("TPS GENERAL").Visible = 0
'Feuille de démarrage cachée
Sheets("MACROS").Visible = -1
La sauvegarde maintenant et apres encore le code pour afficher les feuillets.
Sheets("Client").Visible = -1
Sheets("Détail de la vente").Visible = -1
Sheets("Informatique").Visible = -1
Sheets("Detail").Visible = -1
Sheets("TPS HORS LABO+TPS COULEUR").Visible = -1
Sheets("TPS LABO").Visible = -1
Sheets("TPS GENERAL").Visible = -1
'Feuille de démarrage cachée
Sheets("MACROS").Visible = 0
est- ce que cela vous semble correct?
Mais il va falloir intégrer ce reglage sur le bouton sauvegarde de excel (la disquette) aussi non?
Je vous remercie d'avance
Bonne journée
Bonjour,
Tu ne nous mets pas de fichier et juste des bouts de code sans les procédures entières
Comment veux-tu que l'on t'aide
Bonjour,
Tu ne nous mets pas de fichier et juste des bouts de code sans les procédures entières
Comment veux-tu que l'on t'aide
Salut BrunoM45, je me suis mal exprimé en fait.
Le code que j'ai mis fonctionne très bien pour la sauvegarde avec mes boutons créés. Ce que je voudrai savoir c'est si il est possible de modifier le fonctionnement du bouton Sauvegarde (la disquette)et aussi par le menu fichier enregistrer et enregistrer sous.
Merci
Re,
Il faut simplement utiliser l’événement BeforeSave de l'objet ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub