指定月份自动加密锁定VBA

nnsea

Private Sub Workbook_Open()
If Month(Date) = 10 Or Month(Date) = 11 Then    '三四月份加密码保护
Sheets("sheet1").Protect Password:="123"       '密码：123
ElseIf Month(Date) = 5 Or Month(Date) = 6 Then   '五六月份直接退出
ThisWorkbook.Close False
Else                      '其它月份正常使用，可编辑
Exit Sub
End If
End Sub