[發問] 關於自動鎖定儲存格

用了以下VBA
本想輸入資料後自動鎖定儲存格
用在普通儲存格是可以正常使用

但如果已經合併的儲存格
沒有輸入資料已經自動鎖定

請指教
Thanks
------------------------------------------------

Private Sub Worksheet_SelectionChange
ActiveSheet.Unprotect
　 Target.Locked = False
　　　　On Error Resume Next
　　　　　　　　If Target <> "" Then
　　　　　　Target.Locked = True
　　　　ActiveSheet.Protect Contents:=True
　　　End If
End Sub

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2013-10-20 19:28 | 只看該作者

回復 luhpro
沒看過value2這種用法耶，參考 http://support.microsoft.com/kb/213719/zh-tw

我覺得1# ...
stillfish00 發表於 2013-10-18 10:36

你說的也是對的.

但 value2 絕對可以用,(2# 與 3 # 說的是同一個東東)
因為那是在 "區域變數" 視窗中檢視 Target 儲存格資料時看到的內容(按 Target 變數左邊的 + 逐層檢視就可看到),
也是 Excel VBA 真正儲存相關資料的形式.

你說的應該是 Excel VBA 對應到 value2 的另一種用法 - 用 Value. (如同 Value 與 Text 一樣都是對應到儲存格的值)

當然, 若真動到 "區域變數" 視窗內容這個部份,
有時確實會發生無法預期的錯誤,
因為,Excel VBA 其實有很多地方做的都不夠完善, (有點過那個 + 的人就會知道, 一個儲存格裡包含的東東還真是多啊...)
有可能會發生 "設計者所無法預期的錯誤" .(就像我 2# 所提到的那個)

TOP

stillfish00

大學生 Rank: 4

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

3^#

發表於 2013-10-18 10:36 | 只看該作者

回復 2# luhpro
沒看過value2這種用法耶，參考 http://support.microsoft.com/kb/213719/zh-tw

我覺得1#的問題是
Target為多個儲存格(合併儲存格也算多個)時，
If Target <> "" Then 中的 Target 比較時會自動使用屬性 .value，
但是此時的 Target.value 為一 value 陣列，故無法比較，發生錯誤
而由於加上 On Error Resume Next 導致去執行下一行的鎖定，應改為：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
Target.Locked = False
If Target.Cells(1).Value <> "" Then
Target.Locked = True
ActiveSheet.Protect Contents:=True
End If
End Sub

複製代碼

補充給1#，發生error時不要隨便加On Error Resume Next去忽略它，除非你明確的知道它是甚麼錯誤，是不是可以忽略。

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2013-10-18 01:18 | 只看該作者

本帖最後由 luhpro 於 2013-10-18 01:30 編輯

用了以下VBA
本想輸入資料後自動鎖定儲存格
用在普通儲存格是可以正常使用

但如果已經合併的儲存格
...
kkttin 發表於 2013-10-17 12:43

當標的儲存格是個合併的儲存格時 (.Count > 1),
抓取資料要改用 .Value2(1, 1)
否則不是發生錯誤(.Value)就是得到空值(.Text)
又因為你有一行 On Error Resume Next(發生錯誤時忽略該錯誤,改從下一行指令開始繼續執行),
故而就發生你不想要的結果囉.
改成如下即可 :

With Target
.Parent.Unprotect
.Locked = False
If .Count = 1 Then
If .Value <> "" Then
.Locked = True
.Parent.Protect Contents:=True
End If
Else
If .Value2(1, 1) <> "" Then
.Locked = True
.Parent.Protect Contents:=True
End If
End If
End With

複製代碼

沒記錯的話在 Office 2000 時不會有這個問題, (可以用 .Value 或 . Text 正常抓到合併後的值)
似乎是到 2003 時改的(我家裡用的版本),
我覺得這有點多此一舉,
既然儲存格合併後只能保留一個值,
那多出那些 .Value2(1, 2), .Value2(1, 3)... 沒啥意義.(根本無法使用)

更糟糕的是我剛剛試著賦予個值給 Target.Value2(1, 2) , (屢試不爽)
它會發生嚴重錯誤且直接關閉 Excel. O.O"
(若對 [C4].Value2(1, 2) 賦值沒問題, 但對 Target.Value2(1, 2) 賦值就會出大錯)

TOP