Problem with shapes on protected sheets

Dear experts,

I am trying to solve the problem with multilingual functionality for macro enabled excel model. In order to change language options for Form Control buttons, I have written the following code:

 Private Sub cbLanguages_Click()

ShLanguages.Range("C4") = cbLanguages.ListIndex

With ShEntry
    .Shapes("Button 1").TextFrame.Characters.Text = CStr(ShLanguages.Range("C19").Value)
    .Shapes("Button 3").TextFrame.Characters.Text = CStr(ShLanguages.Range("C20").Value)
    .Shapes("Button 5").TextFrame.Characters.Text = CStr(ShLanguages.Range("C21").Value)
End With

End Sub

Unfortunately code doesn't work correctly on protected sheets neither with unprotect/ protect options nor UserInterFaceOnly options.
Have been working around the shapes and formatting issues, but didn't find the solution.

Is there any solution for that?

Thanks a lot!

Thank you for the notice. I have attached the sample workbook.
The problem is that Multilanguage function, which I have described with the following simple code, doesn't work correctly on protected Sheet1 neither with unprotect/ protect options nor UserInterFaceOnly options:

 Private Sub ComboBox1_Click()

Sheet2.Range("B3") = ComboBox1.ListIndex

With Sheet1
    .Shapes("Button 1").TextFrame.Characters.Text = CStr(Sheet2.Range("B9").Value)
    .Shapes("Button 2").TextFrame.Characters.Text = CStr(Sheet2.Range("B10").Value)
    .Shapes("Button 3").TextFrame.Characters.Text = CStr(Sheet2.Range("B11").Value)
End With


End Sub

Is there any solution for that?

Thanks a lot!

Thanks a lot! As always - the simplest solution is the best.