How to put ticks on all 12 edges of a Graphics3D box?

Question

The code below puts ticks and labels on 3 of the 12 edges of a Graphics3D box. How does one put ticks (without labels) on the other 9 edges?

einsteinworldline = Graphics3D[{AbsoluteThickness[3], Arrowheads[0.05], 
   Arrow[{{-100, -100, 0}, {0, 0, 200}}], Line[{{-100, -100, 0}, {100, 100, 400}}]}, 
  PlotRange -> {{-200, 200}, {-200, 200}, {0, 400}}, Axes -> True, 
  BoxRatios -> {1, 1, 1}, AxesLabel -> {x, y, t}, 
  AxesEdge -> {{-1, -1}, {-1, -1}, {-1, -1}},
  LabelStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16]]

Answer 1

Wolfram Tech Support says it is not possible to put ticks on the other 9 edges.