How do I password protect a macro

I found this vba but need it modified to include it to be password protected by me so when other users open the workbook and enter data, it cannot be deleted by them or anyone else and I am the only person who can unprotect the workbook.
Private Sub Worksheet_Change(ByVal Target As Range)

'ensure all cells are unlocked before commencing

If Target.HasFormula Or Trim(Target.Value) <> "" Then
Me.Unprotect
Me.EnableSelection = xlUnlockedCells
Target.Locked = True
Me.Protect
End If


End Sub