Vba類源代碼

公共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

然後

如果…就會結束

如果…就會結束

如果…就會結束

如果…就會結束

末端接頭

妳確定沒有嗎？為什麽我可以測試？