Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何保护工作簿或页面与解除保护

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

嗯 … 保护的英文是什么 ? 你知道吗 ?

嗯 … 这个问题太简单了吧 ~ 哈哈 ~ 不可能不知道了 ~ 就是 Protect嘛 ~ 那么 , 不保护又是什么呢 ?

嗯 … 不保护好像有点不够贴切 , 那么 … 解除保护的英文会是什么呢 ? 很简单嘛 ~ 简单得很 , 就是前面加上 UN 的 PROTECT , UnProtect 了. 这个说明了什么 ? 这就说明了 … … 嘿嘿嘿 … … 嘿嘿嘿 … 我懂英文 ~ 哈哈哈哈 ~

好了 ~ 回到问题上吧 ~

正如刚才所说 , 保护和解除保护是 Protect 和 UnProtect , 在 VBA 的程序代码当中 , 要保护工作簿或者工作页 , 程序代码也是包含了 Protect 和 UnProtect 的 , 看一下程序代码 :

==================

ThisWorkbook.Protect Password:="1234", structure:=True, Windows:=True

Worksheets("Sheet1").Protect Password:=" abcd1234"

==================

上面的一句是保护工作簿 , 而下面的一句是保护指定工作页 , 你会发现 , 其实单从文字上来看就已经知道 , 这句程序代码是说明 这个 WORKBOOK 需要保护 , 这个页面需要保护 , 但是 , 保护工作簿的程序代码跟保护工作页的程序代码是不同的 , 工作簿的保护设定多了两个东西 , 一个是 structure:=True , 另一个是 Windows:=True .

structure:=True 的意思是 , 对档案的结构进行保护 , 设定为 TRUE 之后 , 工作页的名称就无法修改了 , 而且 , 工作页的次序也不能变更 , 还有 , 如果你用你的鼠标指着工作页的名称按下右键 … 嘿嘿嘿 ~ 看到了吧 ~ 满好玩的 ~ 哈哈 ~ 而 Windows:=True 这个的意思是 , 当设定为 TRUE , 工作簿就不可以进行分割 , 冻结等等的东西 .

对指定页面保护的程序代码 , 要注意 Worksheets("Sheet1") 这个部份 , 这里是必须要指明需要保护的是那个页面 . 但是这个就不用设定什么 STRUCTURE 和 WINDOWS 了 , 就是简简单单的 PROTECT 就可以了 . 定成保护之后 , 页

有保护 , 当然就有解除保护 , 解除保护的方法跟保护差不多 , 只是把Protect 和 UnProtect 换一下 , 再把密码加上去就行了 ~

==================

ThisWorkbook.Unprotect Password:="1234"

Worksheets("Sheet1").Unprotect Password:="abcd1234"

==================