工作表保護(在以保護下，當某個區塊填寫資料後，整個工作表都是保護不能填寫資料)

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2014-12-15 16:56 | 顯示全部帖子

回復 1# hugh0620
要的是這樣嗎? 按按鈕後刪除"允許使用者編輯範圍"內的設定

Private Sub CommandButton1_Click()
Unprotect Password:="1234"
ActiveSheet.Protection.AllowEditRanges(1).Delete
Protect Password:="1234"
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-12-15 21:04 | 顯示全部帖子

回復 3# hugh0620
不知道，大概不能

我自己一般是將可輸入的儲存格用名稱管理員先定義
然後控制各名稱範圍內的儲存格"鎖定"或"不鎖定"
然後再保護工作表

允許使用者編輯感覺是無視有沒有鎖定都可編輯，我是比較少用的。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2014-12-16 10:31 | 顯示全部帖子

回復 5# hugh0620
先定好名稱 IN_DATA1 的範圍

Private Sub CommandButton1_Click()
LockInput
End Sub
Private Sub UnlockInput()
Unprotect Password:="1234"
Range("IN_DATA1").Locked = False
Protect Password:="1234"
End Sub
Private Sub LockInput()
Unprotect Password:="1234"
Range("IN_DATA1").Locked = True
Protect Password:="1234"
End Sub

複製代碼

保護工作表練習2.zip (14.18 KB)

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2014-12-17 09:36 | 顯示全部帖子

本帖最後由 stillfish00 於 2014-12-17 09:38 編輯

回復 7# hugh0620
光是這樣看不出問題，debug不是只有錯誤代碼就能debug............最好是附檔啦
1. 按偵錯
2. 在即時運算視窗輸入 ?Range("AAA").address , 看是否會出錯
3. 檢查此時是否能手動對輸入範圍的儲存格做鎖定: 右鍵>儲存格格式>保護>鎖定

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2014-12-17 14:06 | 顯示全部帖子

回復 9# hugh0620
含合併儲存格，改這樣:
For Each x In Range("AAA")
x.MergeArea.Locked = False
Next

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。