麻辣家族討論版版 » Excel程式區 » 請問如何使用VBA加密保護活頁簿

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

學如逆水行舟不進則退

中學生 Rank: 2

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

3^#

發表於 2010-10-7 11:10 | 只看該作者

小學生的我，附件不能下載耶！
幾乎每天簽到的我，希望可以趕快變中學生
也希望自己趕快變強，服務大家！！

YOYO

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

學如逆水行舟不進則退

尊貴會員 Rank: 5 Rank: 5

帖子: 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

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題