這到底該發在那ㄚ?...怎麼做?當儲存格輸入數值後,該儲存格即自動上鎖.謝謝! - Excel程式區

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-4-22 16:30 | 顯示全部帖子

回復 11# mark15jill
樓主1# 說: 當儲存格輸入數值後,該儲存格即自動上鎖
修改樓主6# 程式碼

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) '儲存格有異動(Target) 工作表預設事件
'Automatically Protecting After Input
'unlock all cells in the range first
Dim MyRange As Range
Const Password = "123" '**Change password here** 工作表上鎖的密碼
'ActiveCell:使用中儲存格
Set MyRange = Intersect(Range("A1:C10，F1:H10"), ActiveCell) '**change range here**
'Set MyRange = Intersect(Range("A1:C10，F1:H10"), Target(1)) '用Target(1)也可以
If Not MyRange Is Nothing Then '是在->"A1:C10，F1:H10"
Unprotect Password:=Password '工作表解鎖
''MyRange.Locked = True '"A1:C10，F1:H10" 儲存格上鎖
'****************************************************
'樓主的問題:當儲存格輸入數值後,該儲存格即自動上鎖'
ActiveCell.Locked = True '使用中儲存格上鎖
'*************************************************
Protect Password:=Password '工作表上鎖
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-4-22 17:47 | 顯示全部帖子

回復 14# kaohsiung-man
並不需要連工作表也一同上鎖
工作表上鎖的條件下: 儲存格才可上鎖

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-5-9 09:41 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-5-9 12:35 編輯

回復 18# kaohsiung-man
15# 工作表上鎖的條件下: 儲存格才可上鎖
我這觀念可能有些錯誤!!

複製好程式碼請先存檔後在開檔試試
範例適用於: 工作表[Sheet1] 儲存格輸入數值後,該儲存格即自動上鎖

複製代碼

'工作表模組的預設程序觸動事件
Option Explicit
Public AR '工作表模組可供其他模組之程序使用的變數
Private Sub Worksheet_Change(ByVal Target As Range) '工作表觸動事件: 工作表內容有變動
Dim A '本程序使用的變數
Application.EnableEvents = False
If IsArray(AR) Then
If Target.Row <= UBound(AR, 1) And Target.Column <= UBound(AR, 2) Then
A = AR(Target.Row, Target.Column)
If IsNumeric(A) And A <> "" Then Target = A
End If
End If
Application.EnableEvents = True
AR = Range(Cells(1), UsedRange)
'ThisWorkbook.Save '存檔
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工作表觸動事件: 工作表使用中的儲存格範圍變動
If Target.Count > 1 Then
Target(1).Select
MsgBox "不允許你選擇多個儲存格 !!! "
'預防清除所有資料
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-5-20 08:31 | 顯示全部帖子

回復 21# ML089

"停用巨集" 還是可以執行巨集參考這裡
Excel 設定 "停用巨集" 後下載附檔試試看

test.zip (10.78 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

[發問] 這到底該發在那ㄚ?...怎麼做?當儲存格輸入數值後,該儲存格即自動上鎖.謝謝!