Attribute VB_Name = "testcellope1"
Sub ƒeƒXƒg()
    
    Range("B2").Locked = False

    ActiveSheet.Protect

End Sub