Private Sub Workbook_Open()For Each sh In ThisWorkbook.SheetsIf sh.Name *1 = Format(Date, "D")*1 Thensh.ActivateExit ForEnd IfNextend sub
遗憾，被人抢答
