Désactiver bouton sauvegarder

[SerGoy]

J'ai créé un formulaire sous excel avec un macro (Ctrl + S) qui sauvegarde le document sous le nom inscrit dans une cellule. Voilà qui arrive que accidentellement que l'on clic sur la disquette en haut dans la barre de tâche. Peut-on désactiver ce bouton sans pour autant le retirer ??? 🙄

 

[ERIC S]

Re : Désactiver bouton sauvegarder

Bonjour

une piste peut-être

dans thisworkbook
pour "beforesave" ou "beforeclose" ou les deux

tu compares le nom de ton fichier avec celui de ta cellule et s'ils sont différents,

cancel=true

non testé 😡 😡 😡

A+

 

[porcinet82]

Re : Désactiver bouton sauvegarder

Salut SerGoy, Eric,

Je viens d'essayer ta proposition et effectivement ca fonctionne nickel.

Code a placer dans le module ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not ActiveWorkbook.Name = Sheets("feuil1").Cells(1, 1).Value Then Exit Sub
End Sub

A toi de modifier le nom de la feuille et l'adresse de la cellule,

@+

 

[SerGoy]

Re : Désactiver bouton sauvegarder

La feuille concernée = "Soum."
La cellule concernée = "H6"

Dans ton PHP tu parle de cells(1, 1) ???

😱

Un grand merci de l'aide apportée...

SerGoy

 

[porcinet82]

Re : Désactiver bouton sauvegarder

re,

Il te suffit de modifier le code comme suit :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not ActiveWorkbook.Name = Sheets("Soum.").Range("H6").Value Then Exit Sub
End Sub

Le Cells(1,1) corresponda la cellule ligne 1, colonne 1 c'est à dire a la cellule A1

@+

 

[ERIC S]

Re : Désactiver bouton sauvegarder

re

je pense qu'un cancel=true est mieux (adandon de la procédure) plutôt que le exit sub

A vérifier

 

[porcinet82]

Re : Désactiver bouton sauvegarder

Bonsoir,

Eric, effectivement, le cancel=true semble plus approprié, je n'avais pas fait gaffe qu'il y avait un booleen dans la procédure. Mais les 2 fonctionnent...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not ActiveWorkbook.Name = Sheets("Soum.").Range("H6").Value Then Cancel = True
End Sub

@+