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

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

lifedidi

中學生 Rank: 2

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

中學生 Rank: 2

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

lifedidi