How do I make the y-axis ticks more prominent using ListLinePlot?

Question

I have the following code:

Here is the link to electrons.xlsx

electrons = = Import["electrons.xlsx"];
electronslist = 
  Transpose@{electrons[[1]][[1 ;; All, 2]]/10^20, 
    electrons[[1]][[1 ;; All, 1]]*10^7};
electronsplot = 
 ListLinePlot[electronslist, Frame -> True, 
  AspectRatio -> GoldenRatio, PlotRange -> {{-0.1, 2}, {-3, 30}}, 
  FrameLabel -> {"", ""}, Axes -> None, BaseStyle -> {FontSize -> 20},
   PlotStyle -> {Opacity[1], Thick, Orange} , ImageSize -> 400, 
  FrameStyle -> Black, ScalingFunctions -> {Automatic, "Reverse"}, 
  FrameTicks -> {{Automatic, Automatic}, {Automatic, All}}, 
  FrameTicksStyle -> {Directive[FontOpacity -> 0, FontSize -> 0], 
    Automatic, Automatic, Directive[FontOpacity -> 0, FontSize -> 0]}]

It yields an output like this:

The y-axis ticks are hardly visible. How can I make them more prominent? I want the ticks to be like the one in the figure below.plot Also is there a way to shade the curve like done here:

Answer 1

tF = Charting`ScaledTicks[{Identity, Identity}, TicksLength -> {.035, .02}][##] /. 
    AbsoluteThickness[_] -> AbsoluteThickness[2] &;

llp = ListLinePlot[electronslist,
  Frame -> True,
  AspectRatio -> GoldenRatio,
  PlotRange -> {{-0.1, 2}, {-2, 30}}, FrameLabel -> {"", ""},
  Axes -> None,
  BaseStyle -> {FontSize -> 20},
  PlotStyle -> {Opacity[1], Thick, Orange},
  ImageSize -> 400,
  FrameStyle -> Directive[Black, AbsoluteThickness[2]],
  ScalingFunctions -> {Automatic, "Reverse"},
  FrameTicks -> ConstantArray[tF, {2, 2}],
  FrameTicksStyle -> {FontOpacity -> # & /@ {1, 0}, 
    FontOpacity -> # & /@ {0, 1}}] /. l_Line :> {l, Opacity[.5], FilledCurve[l]}

Post-process to change the automatic formating of tick labels:

reFormatLabel = ReplaceAll[t: {_Real, label_, {_Real, _Real}, {___}} :> Rationalize @ t]

reFormatLabel @ llp