How to toggle visibility of all the evaluatable cells (but not their output)?

Question

I know that I can select individual evaluatable cells and disable their Open property (through Cell > Cell Properties), but is there a simple way to toggle the Open status of all evaluatable cells?

This, this and this may be helpful. – bobthechemist Jul 25 '13 at 22:44 — bobthechemist, Jul 25 '13 at 22:44

Michael E2 · Accepted Answer · 2015-05-16T10:15:05.383

4

Something like this? (V9 and after only, because of Cells.)

toggleCellOpen[nb_: SelectedNotebook[]] :=
 (CurrentValue[#, CellOpen] = Not@CurrentValue[#, CellOpen]) & /@ 
   Select[Cells[], CurrentValue[#, Evaluatable] &]

edited May 16 '15 at 10:15

answered Jul 26 '13 at 21:18

Michael E2

235,386
17
334
747

How to toggle visibility of all the evaluatable cells (but not their output)?

1 Answers1