標題: [發問] 如何解除加密保護工作表 [打印本頁]

---

作者: lifedidi    時間: 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    時間: 2013-3-20 11:26

回復 1# lifedidi
Protect 的參數 詳看 VBA 的說明
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True

---

作者: lifedidi    時間: 2013-3-20 11:32

非常感謝GBKEE大大！已解決

---

作者: lifedidi    時間: 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

這樣子是對的嗎？

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)