how to create password in VBA Project after workbook opened

Hi Guys,

I write the code for time bombing "KillMe". This is worked if the VBAProject is not protected by password. If protected then could not be executed and got the error message.
I don't know how to create the vba code to protect the VBAProject after the workbook is opened, please need your golden hands for it.
This code i will write after "KillMe" if the date is not expired. So the workbook will remaining open during the "KillMe" being execute.

Private Sub Workbook_Open()
Module1.killme
'The code I will write here.
'If the date is not expired then the VBAProject will be protected by password...(I need the code, how to create it).
End Sub

Thanks in advance for any helps.

Best Regards,
Iqbal