1 pièce(s) jointe(s)
Problème lors de l'application de la protection des macros VBA
Bonjour,
Je suis confronté à un problème que je n'arrive pas à résoudre seul.
J'en appelle donc à votre aide :roll:
Le contexte est le suivant :
Je dois créer une macro qui importe un fichier texte, traite ce fichier sous excel et re-enregistre le fichier sous un fortmat txt.
Cette macro fonctionne très bien lorsque je ne protège pas mon projet.
(cf. Process_EDF_non_protege)
Maintenant je souhaite vérouiller l'acces au code source des macros.
Je protège donc mon projet VBA (Outils -> Propriétés du projet -> Protection -> Vérouiller le projet pour affichage)
Lorsque j'exécute ma macro, celle-ci me renvoit le message d'erreur suivant lors de l'enregistrement du fichier en format txt :
Erreur d'exécution 1004
La méthode 'SaveAs' de l'objet _Workbook a échoué.
Voici un extrait du code lors de l'enregistrement du fichier :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Dim FileName As String
' Demande fichier de sauvegarde
FileName = Application.GetSaveAsFilename("", "EDF Files (*.txt), *.txt")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:= _
FileName, FileFormat:= _
xlTextPrinter, CreateBackup:=False
fin_macro1:
ActiveWorkbook.Saved = True
Application.Quit |
Les fichiers excel contenant les macros sont en pièce jointe
Mot de passe pour déverouiller la protection : "1234"
Voila si quelqu'un a une idée pour résoudre mon problème je suis preneur.
Merci par avance
