Sub pst()Dim st As WorksheetFor Each st In Worksheetsst.Protect "123"If st.Protection.AllowFormattingCells = False Then st.Protect AllowFormattingCells:=True End IfNext stEnd Sub
