VBA OnKey在开始时运行

我有一个OnKey子我用来迭代选定的单元格中的date，当我closuresexcel的OnKey指定返回到默认值。 任何想法我怎么可以有一个工作簿记得的OnKey指定，所以当我打开工作簿它记得的OnKey指定？

目前，我必须打开模块并通过中断模式运行它们，然后OnKey指定将在工作簿中工作。

inheritance问题中的代码

Sub CtrlUPKeystroke() Application.OnKey "^{UP}", "IterationByDay" End Sub Sub IterationByDay() Calculate Worksheets("sheet1").Activate ActiveCell.Value = DateAdd("y", 1, Now) End Sub