帖子: 11
主題: 1
精華: 0
積分: 17
點名: 0
作業系統: xp
軟體版本: 1
閱讀權限: 10
性別: 男
註冊時間: 2013-4-20
最後登錄: 2013-4-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-4-20 11:34 | 顯示全部帖子

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

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

如題------怎麼做?...當儲存格輸入數值後,該儲存格即自動上鎖.~~THANKS!

當我在sheet1中,某個儲存格輸入數值後,希望該儲存格可馬上"自動上鎖"....該怎麼做呢?

若要寫excel vba .....請高手們提供程式碼,救救電腦小呆吧!

kaohsiung-man

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 17
點名: 0
作業系統: xp
軟體版本: 1
閱讀權限: 10
性別: 男
註冊時間: 2013-4-20
最後登錄: 2013-4-23

2^#

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

回復 2# mark15jill

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

可馬上"自動上鎖"的意思就是........對輸入數值的該儲存格,在鍵入數值按enter後,該儲存格即可被自動上鎖,而無法再進行更改!
並不是隱藏或跳出!!!

有尋獲...在sheet1中,某個儲存格輸入數值後,該工作頁隨即自動上鎖,而無法再進行更改!
但小弟需要的是...自動上鎖該儲存格,而非整個工作頁~~

若要寫excel vba .....請高手們提供程式碼,救救電腦小呆吧!

TOP

kaohsiung-man

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 17
點名: 0
作業系統: xp
軟體版本: 1
閱讀權限: 10
性別: 男
註冊時間: 2013-4-20
最後登錄: 2013-4-23

3^#

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

本帖最後由 kaohsiung-man 於 2013-4-22 13:27 編輯

回復 4# mark15jill

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

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

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

謝謝前輩

TOP

kaohsiung-man

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 17
點名: 0
作業系統: xp
軟體版本: 1
閱讀權限: 10
性別: 男
註冊時間: 2013-4-20
最後登錄: 2013-4-23

4^#

發表於 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

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 17
點名: 0
作業系統: xp
軟體版本: 1
閱讀權限: 10
性別: 男
註冊時間: 2013-4-20
最後登錄: 2013-4-23

5^#

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

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

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

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

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

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

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

TOP

kaohsiung-man

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 17
點名: 0
作業系統: xp
軟體版本: 1
閱讀權限: 10
性別: 男
註冊時間: 2013-4-20
最後登錄: 2013-4-23

6^#

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

回復 10# mark15jill

ㄜ ........

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

小的 ...不懂...

TOP

kaohsiung-man

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 17
點名: 0
作業系統: xp
軟體版本: 1
閱讀權限: 10
性別: 男
註冊時間: 2013-4-20
最後登錄: 2013-4-23

7^#

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

回復 11# mark15jill

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

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

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

TOP

kaohsiung-man