軟體:Excel
版本:2010
大家好，我又來了，請教各位大大，我寫了一個VBA，除了特定幾個工作表外，
其餘都要鎖定，所以我這樣寫：
Sub 鎖定全部工作表()
Dim z As Integer
For z = Sheets.Count To 3 Step -1
Sheets(z).Protect Password:="123456789", DrawingObjects:=True _
, Contents:=True, Scenarios:=False, AllowFiltering:=True _
, AllowUsingPivotTables:=True
Next
End Sub
到這邊都沒問題，不過當巨集肥了，除了這個以外，寫了很多密碼，
所以開始會想將密碼放在同一個地方，方便管理。
1.所以我又寫了另一個巨集：
Sub 鎖定()
ActiveSheet.Protect Password:="abcde"
End Sub()
2.然後在其他有需要的時候引用這個巨集，這樣密碼就是abcde
工作表1.鎖定
我只要修改"鎖定"中的密碼，把 abcde 修改成 13579，
這樣密碼就全部變成13579，可是如果遇到最上面用 For 寫的巨集，
我就不知道怎麼代入，所以請教大家該怎麼修改？謝謝。

不確定原po要將密碼放在什麼檔案格式下如文字檔的話可goole excel vba get data from text其他如from word、from access...等，應有範例可參考

我是想放在原本的VBA中，因為專案裡有很多個密碼，但是以這個形式寫的密碼我不會更改，所以才想請教各位。我修改內文，應該會清楚一點。我突然想到，還是有辦法設一個變數讓不同的巨集都能使用？嗯，我知道怎麼做了，用Public，謝謝大家。