Excel 保護工作表

Question

我的檔案裡頭﹐有 100 個工作表﹐這 100 個工作表的 format 是一樣的﹐因此在設定格式時﹐我都會把所有的工作表選起來﹐用“工作群組“的方式來改變 format。

我現在遇到一個問題﹐我要把這 100 個工作表全部保護起來﹐但是工作表內有某些格子是不能被鎖定保護的（儲存格會 key 資料）﹐試過很多次﹐我可以用“工作群組“來解除這 100 的工作表儲存格的【鎖定】﹐但是保護這 100 個工作表的動作似乎不能以 “工作群組“的方式來作﹐而是必須一個一個保護。這樣實在非常麻煩﹐因為我必須一個一個工作表來作保護﹐萬一format 有要改的時候﹐就又要一個一個解除﹐改完 format﹐又再 一個一個保護。

請問達人﹐有什麼方法可以快捷把所有的工作表保護起來呢？

Answer 1

參考以下VBA吧.

Sub protectsheets()
For Each Sheet In Sheets
Sheet.Select
ActiveSheet.Protect Password:="q"
Next
End Sub

Sub unprotectsheets()
For Each Sheet In Sheets
Sheet.Select
ActiveSheet.Unprotect Password:="q"
Next
End Sub

2006-03-14 11:59:15 補充：
不是太複雜啦,只是不用VBA的話達不到您要的效果~