返回列表 上一主題 發帖

{分享]解除EXCLE保護儲存格的巨集程式

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
1# 跳轉到 »
發表於 2011-11-10 23:18 | 顯示全部帖子
2007沒試過
在2003，要移除保護，只要再強制做一次相同的保護，原來的工作表保護就沒了。
因為設了保護工作表後，在工具~保護上只剩下"取消保護工作表"可選
所以還是要VBA。不懂怎麼寫的朋友可在別的工作表錄製一遍保護工作表的代碼。
如錄下來的得到的是：
  1. Sub Macro1()
  2.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  3.         , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
  4.         AllowInsertingHyperlinks:=True, AllowFiltering:=True
  5. End Sub
複製代碼
你只要在底下加一行ActiveSheet.Unprotect
變成
  1. Sub Macro1()
  2.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
  3.         , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
  4.         AllowInsertingHyperlinks:=True, AllowFiltering:=True
  5. ActiveSheet.Unprotect
  6. End Sub
複製代碼
運行一下工作表保護就取消了。

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題