软件: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，谢谢大家。