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

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 »

發表於 2013-4-22 08:19 | 顯示全部帖子

我是小呆~~這到底該發在那ㄚ???

如題------怎麼做?...當儲存格輸入數值後,該儲存格即自動上鎖.~~THANKS! ...
kaohsiung-man 發表於 2013-4-20 11:34

馬上上鎖的定義為何？隱藏？跳開？還是？

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2013-4-22 10:27 | 顯示全部帖子

回復 mark15jill

我是小呆~~ , 是的~~~~前輩!

可馬上"自動上鎖"的意思就是........對輸入數值的 ...
kaohsiung-man 發表於 2013-4-22 08:34

以下程式碼可做到... 但是... 是大範圍的，請自行修改

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Unprotect
ActiveSheet.Cells.Locked = False
Dim Rng As Range
ActiveSheet.Unprotect
For Each Rng In ActiveSheet.UsedRange
If Rng.Value <> "" Or Rng.HasFormula Then Rng.Locked = True
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

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

本帖最後由 mark15jill 於 2013-4-22 14:24 編輯

有洗帖的嫌疑....<6#>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Unprotect
ActiveSheet.Cells.Locked = False
Dim Rng1,Rng2 As Range
ActiveSheet.Unprotect
'第一個封鎖區域
For Each Rng1 In Range("A1:C10") '這改範圍
If Rng1.Value <> "" Or Rng1.HasFormula Then Rng1.Locked = True
If [x1] = "123" Then Rng1.Locked = False '設定解除條件
Next
'第二個封鎖區域
For Each Rng2 In Range("F1:H10") '這改範圍
If Rng2.Value <> "" Or Rng2.HasFormula Then Rng2.Locked = True
If [x1] = "123" Then Rng2.Locked = False'設定解除條件
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2013-4-22 15:10 | 顯示全部帖子

本帖最後由 mark15jill 於 2013-4-22 15:12 編輯

回復 mark15jill
SORRY....#6 ->手按快了啦...

不過...結合的方式,實非小的所能想 ...
kaohsiung-man 發表於 2013-4-22 15:04

之所以用
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ..... End Sub
不同於
Sub kka .... End Sub

前者
就是只要有變動<不管是滑鼠點擊或儲存格變動>，就會按照程式去跑..除非把巨集功能關掉

後者
要執行後，功能才會啟動....

但是
只要將巨集功能關掉或另外設定... 這一切都沒用ˇˇ

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

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

回復 mark15jill

ㄜ ........

慚愧..................................前輩,what a ...
kaohsiung-man 發表於 2013-4-22 15:32

簡單來說

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ..... End Sub <== 好比自然界的自然風，不用做任何動作就會有風流動
Sub kka .... End Sub <== 好比電風扇，需要有按下開關，才會有風

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]