Macro to unprotect sheet, unlock selected cells and protect sheet again

[Mylarbi]

I hope someone will be able to help me with this please.
To start with, I have created and protected a worksheet with password "thisisprotected".
Data entry cells are unlocked and formula cells are locked.
Ocassionally, the user may need to temporarily unprotect the sheet to modify any protected/locked cell and protect the sheet again.
What I want to do now is get a macro code for this. So the steps will be;

-The user will first select the cells they want to modify. Then they will run the macro with a shortcut.
The macro will;
1. unprotect the sheet with password "thisisprotected"
2. unlock the selected cells
3. protect the sheet again with password "thisisprotected".
Thanks

 

[KOKOSEK]

Sub BlahBlah()
    ActiveSheet.Unprotect Password:="thisisprotected"
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveSheet.Protect Password:="thisisprotected"
End Sub

 

[Mylarbi]

Wow, that's quick, simple and works as expected. Thank you @KOKOSEK