Select locked cells resets on exit

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.

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