How to Block Symbols without evaluating them?

Question

Suppose I have a list of names of Symbols:

f1 := Print[\"f1 is evaluated!\"];
list = {\"f1\", \"f2\"};

The obvious way to

Answer 1

You could try to use ToExpression:

In[9]:= list = {"f1", "f2"};

In[19]:= f1 = 25;

In[20]:= ToExpression[
 StringJoin["{", Riffle[list, ","], "}"], InputForm, 
 Function[vars, Block[vars, f1], HoldAll]]

Out[20]= 25