本示例取消当前活动工作簿的保护。

ActiveWorkbook.Unprotect