Interdire enregistrement

Eric C

XLDnaute Barbatruc

• 8 Juin 2013

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 8 Juin 2013

• #3

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 8 Juin 2013

• #4

Re : Interdire enregistrement

Bonjour à tous

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

 

Pièces jointes

• LectureSeule.jpg

  45 KB · Affichages: 53

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 9 Juin 2013

• #5

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+

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 9 Juin 2013

• #6

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+

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 9 Juin 2013

• #7

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juin 2013

• #8

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 :

Code:

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+

 

Vote positif 0 Vote négatif