返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 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 導致去執行下一行的鎖定，應改為：
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.   ActiveSheet.Unprotect
  3.   Target.Locked = False
  4.   
  5.   If Target.Cells(1).Value <> "" Then
  6.     Target.Locked = True
  7.     ActiveSheet.Protect Contents:=True
  8.   End If
  9. End Sub
複製代碼
補充給1#，發生error時不要隨便加On Error Resume Next去忽略它，除非你明確的知道它是甚麼錯誤，是不是可以忽略。

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題