返回列表 上一主題 發帖

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

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要加在哪裡才對呢？謝謝
收藏 分享

lifedidi

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

論壇贊助勳章
2#
發表於 2013-3-20 11:32 | 顯示全部帖子
非常感謝GBKEE大大！已解決

TOP

lifedidi

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

論壇贊助勳章
3#
發表於 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

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