Allow macro in shared workbook

Hi,

I have made this macro, so you can unprotect and protect the sheet by clicking on a box.
But the issue is, that the workbook is a shared file, so the macro's doesn't work.

any ideas?
Feel free to make alternative solution if the one i have made can be done better

PW:
1234 or 9999