XL 2013 Bloquer les fonction enregistrer et enregistrer sous

rochethomas · 13 Octobre 2022

Bonjour
J’utilise un bouton avec une macro qui enregistre mon ficher dans un endroit spécifique en fonction de donné dans le classeur .
Je voulais savoir si il était possible de bloquer les fonctions enregistrer et enregistrer sous qui sont dans Excel pour utiliser que mon bouton !

Compte Supprimé 979 · 13 Octobre 2022

Re,

Dans le module de ton bouton de sauvegarde tu as juste à mettre ceci au tout début

Code:

Public FlagSave As Boolean

ça ensuite au tout début de ta sub

VB:

  ' Mettre le Flag à VRAI
  FlagSave = True

L'autre partie comme indiqué est à mettre dans ThisWorkbook

A+

Compte Supprimé 979 · 13 Octobre 2022

Bonjour Thomas

A mettre dans un module

VB:

Public FlagSave As Boolean

Sub Sauvegarde()
  MsgBox "Le bouton à été utilisé", vbInformation, "OK pour la SAUVEGARDE"
  ' Mettre le Flag à VRAI
  FlagSave = True
  ' Ici le code de sauvegarde

End Sub

Dans ThisWorkBook on utilise l'évènement BeforeSave

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If FlagSave = False Then
    MsgBox "Merci d'utiliser le bouton prévu à cet effet", vbCritical, "SAUVEGARDE IMPOSSIBLE..."
    Cancel = True
  End If
End Sub

J'espère que ce sera assez clair pour vous
A+

rochethomas · 13 Octobre 2022

BrunoM45 à dit:

Bonjour Thomas

A mettre dans un module

VB:

Public FlagSave As Boolean

Sub Sauvegarde()
  MsgBox "Le bouton à été utilisé", vbInformation, "OK pour la SAUVEGARDE"
  ' Mettre le Flag à VRAI
  FlagSave = True
  ' Ici le code de sauvegarde

End Sub

Dans ThisWorkBook on utilise l'évènement BeforeSave

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If FlagSave = False Then
    MsgBox "Merci d'utiliser le bouton prévu à cet effet", vbCritical, "SAUVEGARDE IMPOSSIBLE..."
    Cancel = True
  End If
End Sub

J'espère que ce sera assez clair pour vous
A+

Je doit mettre ça dans le module de mon bouton de sauvegarde ?

Compte Supprimé 979 · 13 Octobre 2022

Re,

Dans le module de ton bouton de sauvegarde tu as juste à mettre ceci au tout début

Code:

Public FlagSave As Boolean

ça ensuite au tout début de ta sub

VB:

  ' Mettre le Flag à VRAI
  FlagSave = True

L'autre partie comme indiqué est à mettre dans ThisWorkbook

A+

rochethomas · 13 Octobre 2022

BrunoM45 à dit:
Re,

Dans le module de ton bouton de sauvegarde tu as juste à mettre ceci au tout début

Code:

Public FlagSave As Boolean

ça ensuite au tout début de ta sub

VB:

' Mettre le Flag à VRAI FlagSave = True

L'autre partie comme indiqué est à mettre dans ThisWorkbook

A+

Super un grand merci pour votre aide et votre rapidité de réponse !!

Cela a l'air tellement simple ...

rochethomas · 13 Octobre 2022

BrunoM45 à dit:

Bonjour Thomas

A mettre dans un module

VB:

Public FlagSave As Boolean

Sub Sauvegarde()
  MsgBox "Le bouton à été utilisé", vbInformation, "OK pour la SAUVEGARDE"
  ' Mettre le Flag à VRAI
  FlagSave = True
  ' Ici le code de sauvegarde

End Sub

Dans ThisWorkBook on utilise l'évènement BeforeSave

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If FlagSave = False Then
    MsgBox "Merci d'utiliser le bouton prévu à cet effet", vbCritical, "SAUVEGARDE IMPOSSIBLE..."
    Cancel = True
  End If
End Sub

J'espère que ce sera assez clair pour vous

rochethomas · 13 Octobre 2022

Puis je vous demander une autre informations , lors de l'enregistrement de mon fichier j'utilise les donné d'une cellule qui donne la date cependant lorsque le format de la cellule est en date la macro ne marche plus (je suppose que c'est windows qui ne gere pas les / dans les titres de fichier) je voulais savoir si il existe une solution quand meme ?

Compte Supprimé 979 · 14 Octobre 2022

Bonjour Thomas

Lorsqu'on veut enregistrer un fichier avec une date, on utilise

VB:

sNomFic = Format(Range("A1"),"yyyy.mm.dd") & ".xlsx"

Comme ça le nom du fichier est Ok avec Windows et trié correctement

A+

XL 2013 Bloquer les fonction enregistrer et enregistrer sous

rochethomas

XLDnaute Nouveau

Compte Supprimé 979

Compte Supprimé 979

Guest

rochethomas

XLDnaute Nouveau

Compte Supprimé 979

Guest

rochethomas

XLDnaute Nouveau

rochethomas

XLDnaute Nouveau

rochethomas

XLDnaute Nouveau

Compte Supprimé 979

Guest

Discussions similaires