Sub s() For i = 1 To 12 Sheets.Add(after:=Sheets(Sheets.Count)).Select ActiveSheet.Name = i & "月" ActiveSheet.Protect "welcome" NextEnd Sub
