I have sensitive security machine parameters in my calculation input cells. I'd like to hide input cells and permanently lock them so that other users cannot open or see my input cells.

I want that other users can use slide bars and numeric input window in Manipulate [ ] function but I have to hide and lock the details of calculations to protect the security machine parameters.

I know that we can hide Input Cells using the following code, but other users can still open it by double clicking the right cell bracket or editing the notebook.

CreatePalette[
 Column[{Button[
    "Hide code", {NotebookFind[SelectedNotebook[], "Output", All, 
      CellStyle];
     FrontEndExecute[
      FrontEndToken[SelectedNotebook[], 
       "SelectionCloseUnselectedCells"]]}], 
   Button["Show code", 
    NotebookFind[SelectedNotebook[], "Input", All, CellStyle]]}]]

How can I create, hide, lock, and distribute my notebook without revealing the details of calculations?