Discussion :

[GonAl]

Bonjour,
Question sur VBA Excel
Je souhaite interdire l'enregistrement sous le mêm nom du classeur contenant mon code.
Question du chien qui se mord la queue :
- je modifie le code VBa du classeur pour qu'on ne puisse pas l'enregistrer
- si ça marche les modification du classeur ne sont pas enregistrée mais ... de ce fait mon code non plus ! et il faut recommencer !

Comment faire pour enregistrer le code de blocage de l'enregistrement et que ce code ne fonctionne qu'à l'ouverture suivante ?
Merci
GonAl

[SfJ5Rpw8]

Tiens pour le principe.. tu déclare une variable qui mise à 1 autorise la sauvegarde:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public bAutoriseSauvegarde As Boolean
Sub SauveAPP()
  bAutoriseSauvegarde = True
  ThisWorkbook.Save
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 If Not bAutoriseSauvegarde Then
   Cancel = True
   MsgBox "Sauvegarde Interdite"
 End If
 bAutoriseSauvegarde = False
End Sub