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 ?
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.