XL 2013 Bloquer les fonction enregistrer et enregistrer sous

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+

Cliquez pour agrandir...

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+

Cliquez pour agrandir...

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 😉

Cliquez pour agrandir...