標題: [發問] 請問活護工作表可以一次設定完成嗎?謝謝 [打印本頁]

---

作者: viiv    時間: 2015-3-23 00:33     標題: 請問活護工作表可以一次設定完成嗎?謝謝

請問~~~
我有一個活頁簿裡面有30個工作表
如果要保護工作表只能重複設定30次?
有辦法可以一次就設定讓30個工作表被保護嗎?
謝謝

---

作者: rouber590324    時間: 2015-3-24 11:51

DEAR  SIR
  用VBA如下  

Sub 一次給所有工作表添加保護()
    For X = 1 To Sheets.Count
        Sheets(X).Protect Password:=123
    Next X
End Sub

---

作者: p223941    時間: 2016-1-29 14:24

Dim sht As Worksheet
myNum = Application.InputBox("請輸入密碼")
If myNum = "123" Then
For Each sht In Worksheets
sht.Unprotect Password:="123"
Next
Else
MsgBox "密碼錯誤"
End If

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)