Interdire sauvegarde

  • Initiateur de la discussion Initiateur de la discussion Gasp73
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Gasp73

XLDnaute Nouveau
Bonjour,

J'ai un fichier Excel original (contenant des champs vierges à remplir), et j'ai fait une MACRO qui permet d'enregistrer sous un autre nom le fichier une fois complété (en cliquant sur un bouton de commande).

Cependant, pour être sûr que l'original ne soit pas modifié, j'aimerais bloquer la sauvegarde (via une MACRO si possible), que se soit via "fichier/sauvegarder sous", "fichier/sauvegarder", ou même via le raccourci "disquette bleue".

Le problème est que j'ai trouvé des codes à insérer dans ThisWorkbook, mais j'ai l'impression que ça me bloque aussi la sauvegarde via ma 1ère MACRO, ce qui m'embête fortement...

Avez vous une idée ??

Merci d'avance !!

Voici le code de ma MACRO pour enregistrer mon fichier via le bouton de commande :
Code:
Sub Sauvegarde_AJA()
    
    On Error GoTo errorhandler
    
    'Récupération des données
    Genre = "AJA"
    If Range("L9").Value <> "" Then
        Date_AJA = Range("L9").Value
        Sheets("Données").Select
        Range("B22:C22").Value = Date_AJA
        Range("C22").NumberFormat = "yyyy-mm-dd"
        Date_AJA = Range("C22").Text
        Range("B22:C22").Select
        Selection.Delete
        Sheets("Formulaire").Select
    End If
    Secteur = Range("O9").Text
    Intitulé = Range("C6").Text
    Chemin = "Q:\Fiabilisation\AJA - APA\AJA\"
    
    'Sauvegarde dans le bon dossier
    If Range("L9").Value <> "" Then
        If Intitulé <> "" Then
            If Secteur = "Atelier central" Then
                Chemin_final = Chemin & "ATC_Garage\"
                Nom_fichier = "AJA - " & Date_AJA & " - " & Intitulé
                Chemin_fichier = Chemin_final & Nom_fichier & ".xls"
                ActiveWorkbook.SaveAs Filename:=Chemin_fichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
            ElseIf Secteur = "Electrolyse" Then
                Chemin_final = Chemin & "Electrolyse_Captation\"
                Nom_fichier = "AJA - " & Date_AJA & " - " & Intitulé
                Chemin_fichier = Chemin_final & Nom_fichier & ".xls"
                ActiveWorkbook.SaveAs Filename:=Chemin_fichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
            ElseIf Secteur = "Fonderie" Then
                Chemin_final = Chemin & "Fonderie\"
                Nom_fichier = "AJA - " & Date_AJA & " - " & Intitulé
                Chemin_fichier = Chemin_final & Nom_fichier & ".xls"
                ActiveWorkbook.SaveAs Filename:=Chemin_fichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
            Else: MsgBox "Veuillez renseigner le secteur concerné par l'AJA"
            End If
        Else: MsgBox "Veuillez renseigner l'intitulé de la panne"
        End If
    Else: MsgBox "Veuillez renseigner la date de l'AJA"
    End If
    
    Exit Sub
    
errorhandler:
    MsgBox "Erreur n° : " & Err.Number & vbLf & Err.Description
    
End Sub
 
Re : Interdire sauvegarde

Bonsoir Gasp73 🙂,
Essaie de mettre EnableEvents à False le temps de faire ta sauvegarde, puis à True 🙄.
Sinon, si tu déclares un booléen public, tu peux utiliser ce même booléen dans la procédure Before_Save
Si Flag = Faux -> Cancel = True
Et tu mets Flag à Vrai dans ta procédure avant la sauvegarde, puis à Faux 😛
Bonne suite 😎
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
890
Réponses
2
Affichages
734
Retour