require password to share/ send email in excel 365

Question

I have a macro that requires a Password before the user can save. I am looking to require one before the user can email using the share button to email.

here is my code f