返回列表 上一主題 發帖

[發問] 如何解除加密保護工作表

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-3-20 10:00 | 只看該作者

[發問] 如何解除加密保護工作表

大大好：

Private Sub CommandButton1_Click()
with sheet1
ActiveSheet.Unprotect  "123"
.
.
.
.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End with
End sub

我照這樣作只會保護工作表，但是沒有密碼就可以解鎖，請問我密碼123要加在哪裡才對呢？謝謝
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-3-20 11:26 | 只看該作者
回復 1# lifedidi
Protect 的參數 詳看 VBA 的說明
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
3#
發表於 2013-3-20 11:32 | 只看該作者
非常感謝GBKEE大大！已解決

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
4#
發表於 2013-3-20 12:02 | 只看該作者
本帖最後由 lifedidi 於 2013-3-20 12:03 編輯

請問大大：
sheet1已經保護工作表

而我要在sheet2進行copy

Private Sub CommandButton1_Click()
with sheet1
ActiveSheet.Unprotect  "123"
　　　with sheet2
　　　.
　　　copy....
　　     
　　　End with　　　
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End with
End sub

這樣子是對的嗎？

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題