One way to do this generally for a full notebook is to (on a Mac) is first to create a duplicate of your notebook. Then Option-click on the cell bracket of an input cell--this selects all Input cells. You can then delete all in the selected input cells and save the new notebook and/or export it as a CDF.
Another way to programmatically do this is, in the original notebook, paste in the following code and then execute it:
Module[{nb, nbg,},
nb = EvaluationNotebook[];
nbg = NotebookGet[nb];
nb = NotebookPut[nbg];
NotebookFind[nb, "Input", All, CellStyle];
NotebookDelete[nb]
]
This will create a new notebook from the original one with all the Input cells deleted. Of course you need to have executed the original input cells in the original notebook before executing this code in it.
