我看過妳的界面，粘貼下面的代碼，完全可以達到妳想要的效果。
選項顯式
Dim B()為字節
將密碼顯示為字符串
Dim B1()作為字節
Dim I壹樣長，l壹樣長，j壹樣長
私有子命令1_Click()
將二進制文件路徑打開為#1。
如果LOF(1)>那麽0
j = LOF(1)
雷迪姆B(LOF(1) - 1)
獲取#1，，B
如果…就會結束
關閉#1
Dim P As Long
PassWord = " OutsideFile "
l = Len(密碼)
將密碼轉換為字節數組。
ReDim B1(長)
對於I = 1到l
B1(I) = Asc(Mid(密碼，I，1))
然後
'加密'
對於I = 0至下界(B)
B(I) = B(I)異或B1(P)
P = P + 1
如果P & gtl那麽P = 0
然後
保存文件
將二進制文件路徑打開為#1。
把#1，，B
關閉#1
如果…就會結束
末端接頭
裏面的文件路徑是妳的文件控件的完整路徑，我想妳應該知道。
這個代碼的作用是壹鍵加密，再壹鍵解密。