123
返回列表 上一主題 發帖

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

kaohsiung-man

帖子
11 
主題
1 
精華
0 
積分
17 
點名
0  
作業系統
xp 
軟體版本
1 
閱讀權限
10 
性別
男 
註冊時間
2013-4-20 
最後登錄
2013-4-23 
13# 跳轉到 »
發表於 2013-4-22 17:39 | 只看該作者
回復 11# mark15jill


   {:3_55:} 在下愚鈍~~~

測試之下....似乎不用以password"123"解除保護~~直接 工具>保護>取消保護工作表 即可解鎖了...
但小的需要的是"將指定儲存格輸入數值後,該儲存格自動上鎖,並可以password解鎖".

還請前輩明示....謝謝!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2013-4-22 16:30 | 只看該作者
回復 11# mark15jill
樓主1# 說: 當儲存格輸入數值後,該儲存格即自動上鎖
修改樓主6# 程式碼
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range) '儲存格有異動(Target) 工作表預設事件
  3.     'Automatically Protecting After Input
  4.     'unlock all cells in the range first
  5.     Dim MyRange As Range
  6.     Const Password = "123" '**Change password here** 工作表上鎖的密碼
  7.     'ActiveCell:使用中儲存格
  8.     Set MyRange = Intersect(Range("A1:C10，F1:H10"), ActiveCell) '**change range here**
  9.     'Set MyRange = Intersect(Range("A1:C10，F1:H10"), Target(1)) '用Target(1)也可以
  10.     If Not MyRange Is Nothing Then '是在->"A1:C10，F1:H10"
  11.         Unprotect Password:=Password        '工作表解鎖
  12.         ''MyRange.Locked = True             '"A1:C10，F1:H10" 儲存格上鎖
  13.    '****************************************************  
  14.    '樓主的問題:當儲存格輸入數值後,該儲存格即自動上鎖'
  15.         ActiveCell.Locked = True            '使用中儲存格 上鎖
  16.    '*************************************************
  17.         Protect Password:=Password          '工作表上鎖
  18.     End If
  19. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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

高中生Rank: 3Rank: 3

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

kaohsiung-man

帖子
11 
主題
1 
精華
0 
積分
17 
點名
0  
作業系統
xp 
軟體版本
1 
閱讀權限
10 
性別
男 
註冊時間
2013-4-20 
最後登錄
2013-4-23 
10#
發表於 2013-4-22 15:32 | 只看該作者
回復 10# mark15jill


    ㄜ ........

慚愧..................................前輩,what are U talking about ???

小的 ...不懂...

TOP

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

高中生Rank: 3Rank: 3

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

kaohsiung-man

帖子
11 
主題
1 
精華
0 
積分
17 
點名
0  
作業系統
xp 
軟體版本
1 
閱讀權限
10 
性別
男 
註冊時間
2013-4-20 
最後登錄
2013-4-23 
8#
發表於 2013-4-22 15:04 | 只看該作者
回復 8# mark15jill
SORRY....#6 ->手按快了啦...

不過...結合的方式,實非小的所能想像~~~

只能說學藝不精,粗淺僅得皮毛

......................................................................

方才測試....似乎不用以password解除保護~~直接 工具>保護>取消保護工作表 即可解鎖了...

前輩,請查照....謝謝!

TOP

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
7#
發表於 2013-4-22 14:22 | 只看該作者
本帖最後由 mark15jill 於 2013-4-22 14:24 編輯

有洗帖的嫌疑....<6#>
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)


  4.     On Error Resume Next

  6.     ActiveSheet.Unprotect

  8.     ActiveSheet.Cells.Locked = False

  10.    
  11.     Dim Rng1,Rng2 As Range

  13.     ActiveSheet.Unprotect
  14.    
  15. '第一個封鎖區域   
  16.     For Each Rng1 In Range("A1:C10")  '這改範圍

  18.         If Rng1.Value <> "" Or Rng1.HasFormula Then Rng1.Locked = True
  19.         If [x1] = "123" Then Rng1.Locked = False  '設定解除條件

  21.     Next

  23. '第二個封鎖區域
  24.     For Each Rng2 In Range("F1:H10") '這改範圍

  26.         If Rng2.Value <> "" Or Rng2.HasFormula Then Rng2.Locked = True
  27.          If [x1] = "123" Then Rng2.Locked = False'設定解除條件
  28.     Next

  30.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

  32. End Sub
複製代碼

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

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

  少看=只看不做也枉然

TOP

kaohsiung-man

帖子
11 
主題
1 
精華
0 
積分
17 
點名
0  
作業系統
xp 
軟體版本
1 
閱讀權限
10 
性別
男 
註冊時間
2013-4-20 
最後登錄
2013-4-23 
6#
發表於 2013-4-22 13:38 | 只看該作者
回復 4# mark15jill
這是小呆寫的劣作...該如何與您的程式碼結合成:
1.當儲存格輸入數值後,該儲存格即自動上鎖.
2.附有解鎖password.
3.僅對A1~C10及F1~H10儲存格作自動上鎖的設定.
盼您不吝指教 ~ 謝謝 !

Private Sub Worksheet_Change(ByVal Target As Range)
'Automatically Protecting After Input
'unlock all cells in the range first
Dim MyRange As Range
Const Password = "123" '**Change password here**
Set MyRange = Intersect(Range("A1:C10，F1:H10"), Target) '**change range here**
If Not MyRange Is Nothing Then
Unprotect Password:=Password
MyRange.Locked = True
Protect Password:=Password
End If
End Sub

TOP

kaohsiung-man

帖子
11 
主題
1 
精華
0 
積分
17 
點名
0  
作業系統
xp 
軟體版本
1 
閱讀權限
10 
性別
男 
註冊時間
2013-4-20 
最後登錄
2013-4-23 
5#
發表於 2013-4-22 13:25 | 只看該作者
本帖最後由 kaohsiung-man 於 2013-4-22 13:27 編輯

回復 4# mark15jill


.....太感激您ㄌ~~~

但是~~~上鎖了....小的該怎麼解鎖...可否在程式碼中加入解鎖密碼呢?

而且,若是只要鎖定A1~C10及F1~H10即可...又該從何處修改呢?


謝謝前輩

TOP

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

高中生Rank: 3Rank: 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 10:27 | 只看該作者
回復  mark15jill


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

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


以下程式碼可做到... 但是... 是大範圍的，請自行修改
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     On Error Resume Next
  3.     ActiveSheet.Unprotect
  4.     ActiveSheet.Cells.Locked = False
  5.    
  6.     Dim Rng As Range
  7.     ActiveSheet.Unprotect
  8.     For Each Rng In ActiveSheet.UsedRange
  9.         If Rng.Value <> "" Or Rng.HasFormula Then Rng.Locked = True
  10.     Next
  11.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  12. End Sub
複製代碼

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

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

  少看=只看不做也枉然

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
123
返回列表 上一主題