This is the jist of it.
Application.DisplayAlerts = False
If Range("AY11") = 1 Then
Range("B2,B4,B6,B8,B10,B12,B14,B38,B40,B42,B44,B46,B48,B50,B52").Value = ""
Worksheets(1).Unprotect Password:="xxxx"
Range("AY11").Value = 2
Worksheets(2).Unprotect Password:="xxxx"...