Select locked cells resets on exit

[tichvra]

I created a form which uses various macros and VBA commands. All cells that are alowed to be changed are unlocked and all others locked without ability of being selected. Problem appears when I exit form and enter again, then locked cells become selectable. They are still locked but they can be selected and formated.

Why does this hapen and how do I solve this problem?

Thanks in advance for your help.

[ChemistB]

Sounds like something's wrong with your macro. Can you post the code with some clear explainations on what you expect it to be doing?

[tichvra]

I use macro for buttons wich on click executes some calculations:

Sub Button1_Click()
Sheets("Sheet_1").Unprotect Password:=""
......
Sheets("Sheet_1").Protect Password:="", UserInterFaceOnly:=True, AllowFormattingCells:=True, Contents:=True
End Sub

I have 3 buttons in Sheet_1 and 2 buttons in Sheet_2. All of them have this lines of code at the beginnig and the end of macro.
Formating of unlocked cells must be possible.

Thanks for your help.

[tichvra]

I put this line of code to module and problem solved

Private Sub Workbook_Open()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="", _
UserInterFaceOnly:=True
Next wSheet
End Sub