makro kullanarak mecut çalışma kitabı sayfası için yazılacak kod
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell = Date
End Sub

yada
oturum açarak mini calender eklentisi eklerseniz takvim ekranda sürekli durabilir.