Function AFTER_REFRESH()

如果取消保护活动工作表选项，必须提供正确的密码，否则

    Dim api As NewEPMAddInAutomation

   api.SetSheetOption "sheet1", 300,False, "mypassword"

End Function