Macro enregistrer

Bonjour,

Je suis en train de faire un document pour enregistrer toutes les NC d'une entreprise.

Il s'agit d'un document excel. J'ai réussi à faire une macro qui enregistre la NC sous le nom voulu, issu d'une cellule du doc à l'endroit voulu.

Maintenant, je cherche comment protéger mon fichier de base pour que personne n'enregistre dessus.

J'ai pensé à une macro qui empêcherais d'utiliser le enregistrer.

Mais du coup je me suis bloquer moi même et je peux plus rien enregistrer. Je sais c'est très bête mais je débute, alors je comprend pas tout.

En faite j'ai trouver sur un forum les infos suivantes, mais il doit me manquer un truc dans l'application :

J'ai mis dans Feuil 1 :

Private Sub CommandButton1_Click()
SaveAuthorized = True
ThisWorkbook.Save '(si on doit sauver le classeur à ce stade)
TaMacroTransfer '(soit tu appelles la macro soit tu place ta procédure ici)
SaveAuthorized = False 'on remet la boolean en verrou
End Sub 

Puis dans "Thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAuthorized = True Then Exit Sub 'on sort si le "verrou" n'est pas locked sinon...
Cancel = True
MsgBox "Enregistrer la NC avec le Bouton Créer la NC"
End Sub

Et enfin dans module 1

Public SaveAuthorized As Boolean

Mais comme dis : comment je fais maintenant pour enregistrer ?

Et comment je fais pour supprimer cette protection dans le nouveau fichier excel créer car dans celui ci je veux que l'utilisateur puisse l'enregistrer,

Pour plus de clarté je joins mon fichier.

Merci d'avance pour vos réponses

Bonjour

A voir si cela peut t'aider

Bonsoir, merci pour la réponse

ça à l'air d'être ce que je recherche.

Mais je n'arrive pas à l'utiliser : où est ce que je dois mettre le mot de passe ?

Avec ton fichier : MarieGE Fichier de base

la première fois il m'a fallut effectivement mettre un mot de passe pour enregistrer.

mais les fois suivantes où j'ai ouvert, il me le demande plus. C'est normale ?

Bonjour

Comme ce n'est qu'une ébauche perfectible, il suffit de mettre ton mot de passe dans la macro

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Tu remplaces MDP par ton mot de passe

Attention au nom du fichier : Actuellement c'est MarieGE Fichier_de_base V001.xlsm

Il te faudra modifier ce nom si tu fais un "Enregister Sous"

Merci pour la réponse

ok pour le mot de passe et le changement de nom du fichier,

mais voilà la réponse que j'obtient :

erreur de compilation projet ou bibliothèque introuvable

et c'est la partie rep = ... qui est surligner.

est-ce que ça veut dire qu'il faut que je créer l'Inputbox ("mot de passe")

et si oui, je fais comment ?

Bonjour

Vérifies dans les références VBE (menu Outils -->Références) il faut décocher toutes celles qui sont notée "Manquant"

Sinon l'InputBox et le pendant du MsgBox pas besoin de le créer

ok j'ai réussi.

Par contre je voudrais pas que quand j'execute la macro enregistrersous, il me demande un mot de passe.

c'est possible ??

merci beaucoup pour vos réponses, surtout mes questions qui sont quelques fois bizarre !!!

Merci beaucoup,

c'est bon j'avais pas vu que vous aviez modifier ma macro enregistrersous.

Merci beaucoup pour vos réponses !!!