Localize variables with Block

Block[{f = Sin[x + I y]}, ParametricPlot[Evaluate[{Re[f], Im[f]}], {x, -Pi, Pi}, {y, -2, 2}, Mesh -> Automatic]]

-Graphics-

? f

Missing[UnknownSymbol, f]