帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-6-1 16:29 | 只看該作者

儲存格保護

各大大, 好
小妹有一問題請教, 在工作表中,假設 a1:a100用家想用一按鈕, 在該範圍內當用家於輸入資料後於其中任何儲存格中, 然後用家按一下按鈕, 該儲存格便被保護, 如小妹想取消該儲存格保護同樣地按一下按鈕, 儲存存格即可編輯使用,
小妹曾使用儲存格保護, 但出來的效果並不完美, 故請各大大幫忙, 謝!

樓主熱帖

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

12^#

發表於 2013-6-6 07:35 | 只看該作者

回復 7# Hsieh
hsieh版大, 早晨
小妹先行感謝大大協助上述程式, 同時亦把程式加入工作中使用, 真的很受用, 但當中遇上一個小問題, 是否可以做到當任何用家修改資料, 都可以追蹤其更改處, 小妹曾試用excel追蹤修訂, 但原在有程式的檔案是用不到這功能,
故大著胆子, 再把問題提出, 希望大大能協助, 現把問題清色簡報一下.
當有用家要修改輸入資料時, 選擇有值的儲存格, 按按鈕1, 儲存格解去保護, 可以編輯, 現時問題在於此, 當用家完成修改後, 按下按紐2, 用家離開檔案, 這些用作可能只有用家知道, 當其他同事發覺到檔案有修改, 同事們是不知誰人修改,
可有方辦記錄該資料已作變更, 及變更時間, 或有更好方式.
最後請hsieh版大勿怪小妹痳煩, 謝謝, 祝健康, 感恩.

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

11^#

發表於 2013-6-2 23:30 | 只看該作者

回復 10# Hsieh
版大明白了, 小弟謝謝,
如果按下按鈕1, 有值的儲存格變為黃色, 儲存格同時受到保護, 我想把這範圍改為e4:aa100, 這就是否可以,
最後, 祝願版大快樂..

hong912

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 149
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2013-6-2 22:55 | 只看該作者

回復 9# hong912
這問題指示操作程序上的認知
樓主的需求是在範圍內原本都無保護狀態供使用者輸入資料
當使用者輸入完資料後，必須按下按鈕1，才會對已有的資料作保護
空格仍然可以自由輸入，若輸入完成沒有按下按鈕1那麼該儲存格仍然能夠修改
所以，你測試時是否有照此程序邏輯使用?如果有按下按鈕1以後就應該會對有資料的儲存格保護
你的需求只是多了對儲存格顏色做設定
試試

Private Sub CommandButton1_Click()
Dim Rng As Range
Set Rng = Cells '指定作用範圍
Me.Unprotect 12345 '取消工作表保護
Cells.Locked = False '所有儲存格取消鎖定
If Application.CountA(Rng) > 0 Then '範圍內有資料
Rng.Interior.ColorIndex = xlNone '去除底色
With Rng.SpecialCells(xlCellTypeConstants) '有資料的儲存格設定
.Interior.ColorIndex = 6 '底色為黃色
.Locked = True '鎖定儲存格
End With
End If
Me.Protect 12345 '工作表保護
End Sub

複製代碼

學海無涯_不恥下問

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

9^#

發表於 2013-6-2 20:18 | 只看該作者

回復 7# Hsieh
今天到這論壇, 看到這篇文章, 的確亦小弟獲益良多, 有個問題請教版主, 程式中12345應是密碼, 小弟試用, 則無須輸入密碼, 請教大大這密碼於程式中的作用是,
另假若當使用者沒有使用條件格式化, 當完成資料輸入後, 使用者按下按鈕1, 這時儲存格才變色及保護, 就是否可以, 還望版大教導, 謝謝!!

hong912

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

8^#

發表於 2013-6-2 20:03 | 只看該作者

回復 7# Hsieh
謝謝hsieh版大, 小妹衷心感謝, 祝快樂,

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 149
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2013-6-2 17:12 | 只看該作者

回復 6# 317

Private Sub CommandButton1_Click()
Me.Unprotect 12345 '取消保護
Cells.Locked = False '儲存格取消鎖定
If Application.CountA(Range("G3:AK100")) > 0 Then Range("G3:AK100").SpecialCells(xlCellTypeConstants).Locked = True '非空格鎖定
Me.Protect 12345 '保護工作表
End Sub
Private Sub CommandButton2_Click()
Me.Unprotect 12345 '取消保護
If Not Intersect(Range("G3:AK100"), Selection) Is Nothing Then Selection.ClearContents
Cells.Locked = False '儲存格取消鎖定
If Application.CountA(Range("G3:AK100")) > 0 Then Range("G3:AK100").SpecialCells(xlCellTypeConstants).Locked = True '非空格鎖定
Me.Protect 12345 '保護工作表
End Sub

複製代碼

學海無涯_不恥下問

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

6^#

發表於 2013-6-2 09:15 | 只看該作者

回復 4# Hsieh
hsieh版大, 謝謝回應,
小妹感謝, 小妹想作小許修改, 不知大大們能協助, 謝

修改1,    受保護範圍從G3:AK100, 此範圍外用家可隨意編輯,

修改2,    基於小妹在該範圍內用了條件格式化, 當有值時, 儲存格變換顏色, 在用家按下按鈕2時是否同時可以清空該儲存資料, 因有時用家想取消已輸入的值, 儲存格還是變了色, 用家必須按其右健按下清空資料, 儲存格才能回復原來未輸入值狀態.無色.

               故希望於該範圍內選擇了儲存格, 按按鈕2, 該儲存同時被清空,

先行謝謝版大

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

5^#

發表於 2013-6-1 23:56 | 只看該作者

回復 3# kimbal
感謝大大回應,
小妹受教了, 但有一點小問題想加入, 可否在程式中加入一行清空儲存格資料, 當小妹進行編輯時按按鈕2, 儲存格資料同時清空, 因小妹於儲存格中設定了條件格式化, 故希望能加入此程式, 謝謝!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 149
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-6-1 23:35 | 只看該作者

回復 2# 317

試試

Private Sub CommandButton1_Click()
Me.Unprotect '取消保護
Me.Cells.Locked = False '儲存格取消鎖定
Me.Cells.SpecialCells(xlCellTypeConstants).Locked = True '非空格鎖定
Me.Protect '保護工作表
End Sub
Private Sub CommandButton2_Click()
Me.Unprotect '取消保護
End Sub

複製代碼

學海無涯_不恥下問

TOP