巨集與保護工作表

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-3-13 10:15 | 只看該作者

錄製時並未把密碼寫入巨集
你要自己加上
找到ActiveSheet.Unprotect 這行，加上密碼
如ActiveSheet.Unprotect "123"

帖子: 17
主題: 5
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2012-6-27

3^#

發表於 2011-3-15 00:20 | 只看該作者

謝謝,可是如果寫進去密碼,會不會設的工作表保護密碼就被別人知道了
巨集可加鎖嗎?

GBKEE

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-3-15 08:30 | 只看該作者

回復 3# dodocho

帖子: 17
主題: 5
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2012-6-27

5^#

發表於 2011-3-15 19:23 | 只看該作者

版主對VBA好厲害喔
可是我在工具裡,找不到VBA屬性.......

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 90
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-14

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-3-15 19:39 | 只看該作者

回復 5# dodocho

VBE的工具，不是活頁簿的工具

學海無涯_不恥下問

帖子: 17
主題: 5
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2012-6-27

7^#

發表於 2011-3-16 01:31 | 只看該作者

嘻

找到了,謝謝,原來不懂得還很多,加油

帖子: 17
主題: 5
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2012-6-27

8^#

發表於 2011-3-18 02:10 | 只看該作者

對不起,還要麻煩你們
我寫入了密碼,可是最後還要將它加密碼
請問我要加在哪邊??
ActiveSheet.Unprotect "0000"
Range("D12:BM15").Select
Selection.ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

GBKEE

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-3-18 07:12 | 只看該作者

回復 8# dodocho
ActiveSheet.Protect Password:="0000", DrawingObjects:=True, Contents:=True, Scenarios:=True
同上 ActiveSheet.Protect "0000",True, True, True

china8779

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台南
註冊時間: 2010-11-9
最後登錄: 2015-5-31

10^#

發表於 2011-3-19 15:11 | 只看該作者

很清楚很明白很感謝你