Protect sheet button is not working

[Sophster]

I have created a button with the below assigned macro so that when the button is clicked, the whole spreasheet freezes.
This works with the below code but the issue is that anyone can click on the review tab and unprotect sheet. the worksheet will then unlock without requesting the password, whereas it requests the password without the macro.

Is there a way to fix the code so that anyone clicking on "unprotect sheet" will be prompted to enter the password. Any help would be greatly appreciated.! Thanks very much!

Sub ProtectSheet()

    ActiveCell.Cells.Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
End Sub

[pike]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[Roger Govier]

Hi

Just add password to your code

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Password"

Change the word within the quotes for "Password" to a word of your choice (and one you can remember!!!)

[Sophster]

Thanks Pike and sorry for not using the code tags. I'm not usually using vba, but need to in this instance. Below is the code with the code tags. I hope this will help

 ActiveCell.Cells.Select

 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

 ActiveSheet.EnableSelection = xlNoSelection

[royUK]

You don't need to select the cells.

[Sophster]

Many thanks all for your precious help! It's very much appreciated! Will make sure to follow the rules next time for VBA queries.