保护工作表之后，怎样快速清除允许用户编辑区域的数据

右击工作表标签>查看代码>粘贴下面代码并根据实际修改工作表密码后按F5.
Sub test()
ActiveSheet.Unprotect "保护工作表密码" '撤销工作表保护
For Each r In ActiveSheet.Protection.AllowEditRanges
r.Range.ClearContents '清除允许编辑区域内容
Next
ActiveSheet.Protect "保护工作表密码" '重新保护工作表
End Sub