Submit Button to Lock Worksheet

Add a button from the controls toolbox to the sheet to run this code to protect & lock the sheet

Option Explicit

Private Sub CommandButton1_Click()
 With ActiveSheet
        .Cells.Locked = True
        .Protect "secret"
    End With
End Sub

Transferring the results would be a little more complicated,an example work book would help