返回列表 上一主題 發帖

請問如何使用VBA加密保護活頁簿

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-7 10:14 | 只看該作者

請問如何使用VBA加密保護活頁簿

我的程式如下
Sub password()
    Sheets("Sheet1").Visible = True
    Sheets("Sheet1").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "test"
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub
問題是我不會自動解密保護活頁簿後再顯示活頁簿
輸入資料或運算後再隱藏，然後保護活頁簿自動加密保護
週而復始，密碼寫在VBA裡，目的就是不要讓人看我隱藏活頁簿裡的東西
收藏 分享
YOYO

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-10-7 10:24 | 只看該作者
回復 1# yanto913


    您可以參考阿吉版主的精華篇喔..
http://forum.twbts.com/viewthread.php?tid=51
學如逆水行舟 不進則退

TOP

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
3#
發表於 2010-10-7 11:10 | 只看該作者
小學生的我，附件不能下載耶！
幾乎每天簽到的我，希望可以趕快變中學生
也希望自己趕快變強，服務大家！！
YOYO

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2010-10-7 11:21 | 只看該作者
本帖最後由 PD961A 於 2010-10-7 11:23 編輯
小學生的我，附件不能下載耶！
幾乎每天簽到的我，希望可以趕快變中學生
也希望自己趕快變強，服務大家！ ...
yanto913 發表於 2010-10-7 11:10


加油..快到囉..以您的努力..相信論壇更需要您的熱情....
以下是阿吉版主另外貼的網址
您可以參考看看...
   
http://club.excelhome.net/thread-506838-1-1.html

http://forum.twbts.com/viewthread.php?tid=46&extra=page%3D1

http://www.officefans.net/cdb/vi ... 05&extra=page=6
學如逆水行舟 不進則退

TOP

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
5#
發表於 2010-10-7 20:39 | 只看該作者
小學生的我，附件不能下載耶！
幾乎每天簽到的我，希望可以趕快變中學生
也希望自己趕快變強，服務大家！ ...
yanto913 發表於 2010-10-7 11:10


呼籲論壇把門檻降低點，現在都沒動靜。http://forum.twbts.com/thread-1360-1-1.html

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題