同時選取多各工作表無法同時設定保護工作表?

[u110686]

如題!

[u110686]

抱歉，可能題意不清楚重述如下：我要同時保護或取消多個工作表時，無法一次設定完成，是否有更快捷的方法，請各位大大幫忙!

[leonchou]

手動確實不行 (Excel2000)，
我只有VBA的方法，參考看看：
http://www.officefans.net/cdb/viewthread.php?tid=8978#pid24156

[u110686]

感謝leonchou 大大，我的問題有解了，謝謝!

[leonchou]

看來你有不同的心得哦，何不分享一下?

[u110686]

leonchou 大大：
    心得不敢當，下面的巨集還是有二處不通，請幫忙!

Sub 保護工作表()
    'Sheets("設定").Cells(100, 100).Hide  &&隱藏儲存格內容
    If ActiveSheet.ProtectContents Then
       pwd = InputBox("請輸入密碼：", "取消保護工作表")
       If pwd <> Format(Sheets("設定").Cells(100, 100).Value) Then Exit Sub
       'Sheets("設定").按鈕11.Name = "保護工作表"  &&變更按鈕標題
       For Each sh In Sheets
           sh.Unprotect
       Next
    Else
       pwd = InputBox("請輸入密碼：", "保護工作表")
       Sheets("設定").Cells(100, 100).Value = pwd
       'Sheets("設定").按鈕11.Name = "取消保護"
       For Each sh In Sheets
           sh.Protect
       Next
    End If
End Sub

問題一：Sheets("設定").Cells(100, 100).Hide  &&隱藏儲存格內容
問題二：Sheets("設定").按鈕11.Name = "保護工作表"  &&變更按鈕標題

這樣會出現「物件不支援此屬性或方法」的錯誤訊息。

[leonchou]

1. Range物件沒有Hide屬性或方法。
2. 按鈕11 不是一個物件。
3. 為何要把密碼放在儲存格裡?
4. 是表單工具列的按鈕還是控制工具箱的按鈕?

把問題釐清才好解決；方便的話把樣本檔傳上來。

[u110686]

leonchou 大大：

問題一：在巨集中如何取得或改變控制工具箱的按鈕標題的值？
(順便請教表單工具列的按鈕及控制工具箱的按鈕的差別?)

問題二：如何隱藏儲存格的值不讓人看到？

[leonchou]

1. 在巨集中如何取得或改變控制工具箱的按鈕標題的值?
控制工具箱按鈕 --
Sheet1.CommandButton1.Caption = "請按我"
表單工具列按鈕 --
Sheet1.Buttons(1).Caption = "也按我"

這只是舉例, 別照抄了。
Sheet的寫法有多種, 如 Sheet1、Sheets(1)、ActiveSheet 等等。

2. 表單工具列的按鈕及控制工具箱的按鈕的差別?
簡單的說是"精簡版"和"加強版"的差別~
早期版本的Excel只有表單工具列, 表單工具列的物件只能用於工作表或早期(Excel5.0以前)的對話方塊模組表, 做為自行設計的表單中的選項, 而在進階應用上亦只能連結到巨集做進一步的程式處理.
後來才有的控制工具箱, 是屬於ActiveX 控制項, 它的特性是每個物件都有更多的屬性, 可做更多外觀及功能上的變化. 而且每個物件也都有各自的事件, 配合程式碼做控制. ActiveX 控制項除了可用於工作表, 亦可用在VBA自訂表單(即 UserForm), 有更多的物件和功能.

3. 如何隱藏儲存格的值不讓人看到?
方法有多種，可搭配使用，舉例 --
1) 設隱藏儲存格內容和公式(不顯示於編輯列)
　Range("A100").FormulaHidden = True
2) 設儲存格整列隱藏
　Range("A100").EntireRow.Hidden = True
3) 自訂儲存格格式為「;;;」
　Range("A100").NumberFormat = ";;;"
4) 設字型顏色與底色相同
　With Range("A100")
　　.Font.Color = vbWhite
　　.Interior.Color = vbWhite
　End With
以上需配合保護工作表。
其實這些都可以事先設定，不一定要透過VBA。

無論如何，把密碼放在儲存格裡似乎不太安全。

[diornuage]

請問有沒有能將此程序附在檔案裡，
寄給他人他沒有這個程序也很麻煩的。
謝謝