A
Alex
Guest
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 ?
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 ?