返回列表 上一主題 發帖

[發問] 關於excel vba的保護

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
300  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2025-11-3 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-3-11 23:21 | 只看該作者

[發問] 關於excel vba的保護

我們都知道
vba中的保護和解除可以用的是protec和unprotec
後面要加"密碼"
如果這個密碼我要用儲存格b1中的數值的話
請問該怎麼表達呢
收藏 分享
jeason

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-3-12 16:45 | 只看該作者
回復 1# brabus
Sheets("A").Protect Password:=Sheets("Sheet1").[A1]

Sheets("A").Unprotect Password:=Sheets("Sheet1").[A1]

TOP

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
300  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2025-11-3 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
3#
發表於 2011-3-12 22:48 | 只看該作者
[版主管理留言]
  • GBKEE(2011/3/13 14:46): 試試看 就知道

回復  brabus
Sheets("A").Protect Password:=Sheets("Sheet1").[A1]

Sheets("A").Unprotect Password ...
GBKEE 發表於 2011-3-12 16:45



    謝謝您的回復
那再請問保護活頁簿也是一樣的方式囉對不對???
jeason

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題