Pb de créeation de macro dans un nouveau classeur

[Alex]

Je voudrai mettre :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.ReadOnly = False Then
ThisWorkbook.Save
'On remmet le fichier en fichier caché + lecture seule
SetAttr ThisWorkbook.FullName, vbHidden + vbReadOnly
End If
End Sub

dans un classeur en passant par une macro .
Comment je peut faire ?

 

[Celeda]

Bonjour,

Dans le fichier ci-joint, il y a la procédure de placée dans This Workbook (Alt F11)
Donc quand tu veux enregistrer le fichier, tu dois le sauvegarder sous un autre nom.


Celeda