H
Hervé
Guest
Bonjour,
Je inséré la date de la dernière modification de mon classeur avec la macro suivante :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)
Sheets('Feuil1').Select
ActiveSheets.Unprotect
Sheets('Feuil1').Range('G23').Value = Now()
ActiveSheets.Protect
End Sub
Or, ça ne fonctionne pas vraiment, un message d'erreur apparait et précise que la cellule est protégée !!! C'est le cas mais la macro devrait parer à ce problème, non ?
Je sollicite donc votre avis quant à ce pb. Merci.
Hervé
Je inséré la date de la dernière modification de mon classeur avec la macro suivante :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)
Sheets('Feuil1').Select
ActiveSheets.Unprotect
Sheets('Feuil1').Range('G23').Value = Now()
ActiveSheets.Protect
End Sub
Or, ça ne fonctionne pas vraiment, un message d'erreur apparait et précise que la cellule est protégée !!! C'est le cas mais la macro devrait parer à ce problème, non ?
Je sollicite donc votre avis quant à ce pb. Merci.
Hervé