Interdire enregistrement

[gerard55]

Bonjour à tous
Je voudrais intrerdire l'enregistrement d'un fichier portant le nom "matrice" et ce, pour que la matrice reste tujours vierge
Comment puis-je écrire ce code si cela est possible.
Merci d'avance
a+
Gérard

 

[Eric C]

Re : Interdire enregistrement

Bonjour le forum
Bonjour gerard55

Tu places cette ligne de code dans le classeur. En mettant Cancel à True tu annules la sauvegarde.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

 

[Efgé]

Re : Interdire enregistrement

Bonjour gerard55, Eric C
Sans aller jusqu’à la méthode radicale de Eric C 😀 (C'est certain, il n'y aura jamais d'enregistrement), on peux trouver un moyen terme en enregistrant la matrice en tant que modèle (.XLTX ou .XLTM).
On ouvre le modèle comme n'importe quel classeur, mais à l'enregistrement on se retrouve avec un .XLSX ou .XLSM.
Si quelqu'un passe du temps sur le classeur, il serait dommage de tout perdre.
Cordialement

 

[MJ13]

Re : Interdire enregistrement

Bonjour à tous

Une idée à tester: Tu peux, via l'explorateur, mettre ton fichier en lecture seule.

 

[gerard55]

Re : Interdire enregistrement

Bonjour,
Merci Eric C Efgé MJ13 je pense que je vais prendre la solution de Eric car je ne peux pas créer un modèle. La solution en lecture seul, je ne parviens pas à l'ouvrir ça bug.
Merci
a+

 

[gerard55]

Re : Interdire enregistrement

Bonjour ERIC
Une fois le code écrit, je ne peux pas l'enregistrer.
Par contre en mettant le fichier en lecture seule ça fonctionne
a+

 

[Eric C]

Re : Interdire enregistrement

Bonsoir le forum
Bonsoir Gerard55, bonsoir Efgé, bonsoir MJ13

Tu ouvres ton classeur (si tu as mis le code ci-dessus, tu mets "Cancel à False" , tu fais tes modifications, tu enregistres ton fichier pour le ré-ouvrir et placer "Cancel à True ", tes modifs auront été prises en considération.

 

[job75]

Re : Interdire enregistrement

Bonjour gerard55, Eric C, Efgé, MJ13,

En l'état ce fil est incomplet 🙄

Allez d'abord dans VBA (Alt+F11).

1) Placer dans ThisWorkbook ces 2 macros :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True 'évite l'invite s'il y a eu des modifications
End Sub

2) Menu Exécution => Mode Création (pour désactiver les macros).

3) Menu Fichier => Enregistrer.

4) Menu Exécution => Quitter le mode Création.

A+