set worksheet password in VBA Macro?

i need to unprotect and protect worksheet in VBA macro. This must be done by BPC Set Worksheet Password capability.

Excel native protection can be managed in macro, but it is not suitable for us.

We won't use excel's native protection.

I made a macro to manage BPC Set Worksheet Password feature. I recorded a macro, but it doesn't work.

Is there any function to do this?