Return to Answer

replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/

edited Apr 13, 2017 at 12:55

I lack the reputation to comment on a different answer so I must write my own answer (how perverse!).

Let me add to what simon simon wrote.

First, there need to be quotes around "TrackCellChangeTimes" in the code he wrote here here or else it enters the Notebook's options as something like CellContext`TrackCellChangeTimes.

Second, it is possible to programmatically clear the CellChangeTimes from a notebook. Here is one approach:

 CleanNotebook[nb_NotebookObject] := Module[{}, SetOptions[nb, PrivateNotebookOptions -> {"FileOutlineCache" -> False}, "TrackCellChangeTimes" -> False]; SetSelectedNotebook[nb]; SelectionMove[nb, All, Notebook]; FrontEndExecute[{FrontEnd`RemoveOptions[FrontEnd`SelectionObject, "CellChangeTimes"]}] ]

The last three commands come from inspecting the system file ./SystemFiles/FrontEnd/SystemResources/HistoryOverview.nb in the Mma distribution; that is the code for the palette which lets you inspect the CellChangeTimes.

I lack the reputation to comment on a different answer so I must write my own answer (how perverse!).

Let me add to what simon wrote.

First, there need to be quotes around "TrackCellChangeTimes" in the code he wrote here or else it enters the Notebook's options as something like CellContext`TrackCellChangeTimes.

Second, it is possible to programmatically clear the CellChangeTimes from a notebook. Here is one approach:

 CleanNotebook[nb_NotebookObject] := Module[{}, SetOptions[nb, PrivateNotebookOptions -> {"FileOutlineCache" -> False}, "TrackCellChangeTimes" -> False]; SetSelectedNotebook[nb]; SelectionMove[nb, All, Notebook]; FrontEndExecute[{FrontEnd`RemoveOptions[FrontEnd`SelectionObject, "CellChangeTimes"]}] ]

I lack the reputation to comment on a different answer so I must write my own answer (how perverse!).

Let me add to what simon wrote.

First, there need to be quotes around "TrackCellChangeTimes" in the code he wrote here or else it enters the Notebook's options as something like CellContext`TrackCellChangeTimes.

Second, it is possible to programmatically clear the CellChangeTimes from a notebook. Here is one approach:

 CleanNotebook[nb_NotebookObject] := Module[{}, SetOptions[nb, PrivateNotebookOptions -> {"FileOutlineCache" -> False}, "TrackCellChangeTimes" -> False]; SetSelectedNotebook[nb]; SelectionMove[nb, All, Notebook]; FrontEndExecute[{FrontEnd`RemoveOptions[FrontEnd`SelectionObject, "CellChangeTimes"]}] ]

Source Link

answered Feb 5, 2014 at 21:13

duetosymmetry

I lack the reputation to comment on a different answer so I must write my own answer (how perverse!).

Let me add to what simon wrote.

First, there need to be quotes around "TrackCellChangeTimes" in the code he wrote here or else it enters the Notebook's options as something like CellContext`TrackCellChangeTimes.

Second, it is possible to programmatically clear the CellChangeTimes from a notebook. Here is one approach:

 CleanNotebook[nb_NotebookObject] := Module[{}, SetOptions[nb, PrivateNotebookOptions -> {"FileOutlineCache" -> False}, "TrackCellChangeTimes" -> False]; SetSelectedNotebook[nb]; SelectionMove[nb, All, Notebook]; FrontEndExecute[{FrontEnd`RemoveOptions[FrontEnd`SelectionObject, "CellChangeTimes"]}] ]