公共a、b、c、d
私有子工作表_SelectionChange(ByVal目標作為範圍)
i = 0
ReDim a(選擇。計數)
對於選擇中的每個rngCell
a(i) = rngCell。價值
i = i + 1
然後
b = ActiveCell。排
c = ActiveCell。圓柱
d = 1
末端接頭
私有子工作表_change(ByVal目標作為範圍)
如果d = 1，則
d = d + 1
p = 0
如果a(0)& lt；& gt""和壹個(0)& lt；& gt細胞(b，c)然後
如果InputBox("請輸入更改密碼:"，"密碼")= "a "那麽。
結束
其他
MsgBox“密碼錯誤”
如果選擇。那麽計數= 1
單元格(b，c) = a(0)
其他
對於選擇中的每個rngCell
rngCell。值= a(p)
p = p + 1
然後
如果…就會結束
如果…就會結束
如果…就會結束
如果…就會結束
末端接頭
妳確定沒有嗎？為什麽我可以測試？