Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel interdire la sauvegarde (disquette du menu excel)

interdire la sauvegarde (disquette du menu excel)

15 réponses
Avatar
Pej
Bonjour à tous,

J'aimerai pouvoir interdire la sauvegarde de mon fichier lors du click sur
la disquette du menu excel et provoquer dans le même temps la fermeture de
toute l'application excel

merci d'avance à tous.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Daniel
Rectification.
Non (je me lève, les yeux pas en face des trous !)
A mettre dans "thisworkbook".
Daniel
"Pej" a écrit dans le message de news:

Bonjour Daniel et merci de ton aide.
Je vais tester ça ce matin et je te tiens au courant.
est-ce que cette fonction peut se mettre dans un worksheet?

Merci encore de ton aide.


Ca doit le faire :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ActiveWorkbook.Close SaveChanges:úlse
Application.Quit
End Sub

Daniel
"Pej" a écrit dans le message de news:

Bonjour Daniel,

Merci de ta réponse. As-tu une autre solution?


Au temps pour moi. Ca n'empêche pas la sauvegarde.
Daniel
"Daniel" a écrit dans le message de news:
upAB%
Bonjour.
Tu peux utiliser la procédure Workbook_BeforeSave dans laquelle tu
mets
:
Application.Quit
Mais cela s'applique à Fichier / Enregistrer et Fichier /
Enregistrer

sous.
Cordialement.
Daniel
"Pej" a écrit dans le message de
news:

Bonjour à tous,

J'aimerai pouvoir interdire la sauvegarde de mon fichier lors du
click
sur
la disquette du menu excel et provoquer dans le même temps la
fermeture
de
toute l'application excel

merci d'avance à tous.




















Avatar
Pej
Merci daniel.

Je me permets d'insister un petit peu car c'est l'utlime étape à la
finalisation de mon fichier.
Je fais copier automatiquement mon fichier d'origine mais seulement la
feuille de résultat que je mets au service de tout le monde. Elle peut être
consultée mais je ne veux pas qu'on puisse la modifier, donc l'enregistrer.
As-tu une solution à me proposer ou une autre manière d'approche?

Merci d'avance.


Rectification.
Non (je me lève, les yeux pas en face des trous !)
A mettre dans "thisworkbook".
Daniel
"Pej" a écrit dans le message de news:

Bonjour Daniel et merci de ton aide.
Je vais tester ça ce matin et je te tiens au courant.
est-ce que cette fonction peut se mettre dans un worksheet?

Merci encore de ton aide.


Ca doit le faire :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ActiveWorkbook.Close SaveChanges:úlse
Application.Quit
End Sub

Daniel
"Pej" a écrit dans le message de news:

Bonjour Daniel,

Merci de ta réponse. As-tu une autre solution?


Au temps pour moi. Ca n'empêche pas la sauvegarde.
Daniel
"Daniel" a écrit dans le message de news:
upAB%
Bonjour.
Tu peux utiliser la procédure Workbook_BeforeSave dans laquelle tu
mets
:
Application.Quit
Mais cela s'applique à Fichier / Enregistrer et Fichier /
Enregistrer

sous.
Cordialement.
Daniel
"Pej" a écrit dans le message de
news:

Bonjour à tous,

J'aimerai pouvoir interdire la sauvegarde de mon fichier lors du
click
sur
la disquette du menu excel et provoquer dans le même temps la
fermeture
de
toute l'application excel

merci d'avance à tous.

























Avatar
Daniel
Protège la feuille avec un mot de passe.
Outils / Protection / Protéger la feuille.
Daniel
"Pej" a écrit dans le message de news:

Merci daniel.

Je me permets d'insister un petit peu car c'est l'utlime étape à la
finalisation de mon fichier.
Je fais copier automatiquement mon fichier d'origine mais seulement la
feuille de résultat que je mets au service de tout le monde. Elle peut
être
consultée mais je ne veux pas qu'on puisse la modifier, donc
l'enregistrer.
As-tu une solution à me proposer ou une autre manière d'approche?

Merci d'avance.


Rectification.
Non (je me lève, les yeux pas en face des trous !)
A mettre dans "thisworkbook".
Daniel
"Pej" a écrit dans le message de news:

Bonjour Daniel et merci de ton aide.
Je vais tester ça ce matin et je te tiens au courant.
est-ce que cette fonction peut se mettre dans un worksheet?

Merci encore de ton aide.


Ca doit le faire :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ActiveWorkbook.Close SaveChanges:úlse
Application.Quit
End Sub

Daniel
"Pej" a écrit dans le message de news:

Bonjour Daniel,

Merci de ta réponse. As-tu une autre solution?


Au temps pour moi. Ca n'empêche pas la sauvegarde.
Daniel
"Daniel" a écrit dans le message de news:
upAB%
Bonjour.
Tu peux utiliser la procédure Workbook_BeforeSave dans laquelle
tu
mets
:
Application.Quit
Mais cela s'applique à Fichier / Enregistrer et Fichier /
Enregistrer

sous.
Cordialement.
Daniel
"Pej" a écrit dans le message de
news:

Bonjour à tous,

J'aimerai pouvoir interdire la sauvegarde de mon fichier lors du
click
sur
la disquette du menu excel et provoquer dans le même temps la
fermeture
de
toute l'application excel

merci d'avance à tous.



























Avatar
michdenis
Bonjour Pej,

Tu prends un classeur QUI N'A JAMAIS ÉTÉ ENREGISTRÉ et tu copies ces 2 procédures. Assure toi que tout est parfait avant
d'enregistrer la première fois ce fichier car c'est la "seule" fois que tu pourras le faire. Et à la fermeture du fichier, aucune
sauvegarde
ne sera effectué sans aucun message particulier à l'usager. Si c'était le seul fichier ouvert, l'application excel va se fermer. La
procédure
tient aussi compte du fait qu'il peut y avoir la présence du classeur perso.xls sur certain poste.


À copier dans le ThisWorkbook
'-------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Wk As Workbook, A As Integer
On Error Resume Next
Set Wk = Workbooks("perso.xls")
If Err <> 0 Then
A = 1
Else
A = 2
End If
ThisWorkbook.Saved = True
If Workbooks.Count = A Then
Application.Quit
End If

End Sub
'-------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If UCase(Right(ThisWorkbook.Name, 4)) <> ".XLS" Then
If ThisWorkbook.Saved = True Then Exit Sub
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show
Application.EnableEvents = True
Cancel = True
Else
Cancel = True
End If
End Sub
'-------------------------------


Salutations!





"Pej" a écrit dans le message de news:
Bonjour Michel et merci beaucoup,

je vais tester ça ce matin.
Une question tout de même n'y a t il pas une fonction comme ça que l'on
puisse mettre dans un worksheet? car en fait la feuille utilisé n'est qu'une
copie de mon fichier complet.

merci d'avance


Bonjour Pej,

Ceci ne permet pas de sauvegarder les données en utilisant le bouton de commande "enregistrer" de la barre d'outils mais la
commande
enregistrer du menu Fichier demeure disponible

à copier dans le ThisWorkbook de ton classeur
'---------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = False Then
ActiveWorkbook.Close SaveChanges:úlse
Application.Quit
End If
End Sub
'---------------------


Salutations!



"Pej" a écrit dans le message de news:
Bonjour à tous,

J'aimerai pouvoir interdire la sauvegarde de mon fichier lors du click sur
la disquette du menu excel et provoquer dans le même temps la fermeture de
toute l'application excel

merci d'avance à tous.





Avatar
Clément Marcotte
Je veux bien, mais:

1) Même en bloquant le menu, tu n'as pas bloqué les raacourcis-clavier.

2) N'importe qui peut copier le fichier original sur un autre support pour
l'ouvrir et jouer dedans. Donc, m'est avis que tu perds ton temps. M'est
avis que tu devrais plutôt regarder de fournir un fichier intermédiaire qui
irait se nourrir, par ADO, DAO ou autrement à ton fichier de nonnées. Pour
peur que tu aies besoin de changer les données périodiquement, la protection
me semblerait plus efficace.


"Pej" a écrit dans le message de news:

Bonjour,

Ce fichier ne m'est pas destiné, il doit être visible par tous mes
collaborateurs. En revanche, étant donné que cela résumé mon travail (moi
seul connait les données inscrites) je ne veux pas que quelqu'un modifie
ces
données. Je veux que seulement tout mon service en profite mais aucun ne
modifie.


Ça sert à quoi de vouloir bloquer ça quand il suffit de faire Ctrl-s ?


"Pej" a écrit dans le message de news:

Bonjour à tous,

J'aimerai pouvoir interdire la sauvegarde de mon fichier lors du click
sur
la disquette du menu excel et provoquer dans le même temps la fermeture
de
toute l'application excel

merci d'avance à tous.









1 2