EXCEL 如何限定儲存格，輸入後不能修改(非保護工作表)

Question

EXCEL 如何限定儲存格，輸入一次之後就不能修改內容(不是保護工作表)

我用[驗證]方式輸入一些選項，這檔案是共用的的，任何人都可以隨時變更，但常有人會將他人輸入的儲存格私自變更內容，又無從追朔，所以想要限定只要選擇之後就不可以修改，原儲存格的內容。但其他未被輸入資料的儲存格仍可繼續作業。

除限定不可修改功能外，想要再有以下功能
1. 輸入之後如果要更改，只能將原本的刪除 [標示刪除，不是真的刪除(請看附件)]
2. 原本的儲存格若要修改，必須輸入密碼
檔案已經放在下面了
http://hk.geocities.com/shing_ru1234/123.xls

ps: 如果是需要用到VBA，麻煩幫我敘訴製作步驟，因為我不會用VBA

To 一個人的咖啡 大大 :

我已經使用您修改好的檔案，不過還是要再麻煩您幫忙喔!!

1. D2 儲存格這個保護要如何使用呢?使用[保護工作表]嗎?
2. 點選 j 欄 => 沒有出現『會要求輸入』
3. 存檔時設定唯讀密碼 =>這不符合我的需求，因為這是多人共用檔案，大家都可以修改及輸入資料，只是要設定 "J" 欄[ 原因 CAUSE] 這一欄的每一個儲存格只能輸入一次之後就不能再變更該儲存格的的內容。

To 一個人的咖啡 大大 :

經過您的說明，我清楚使用方式了
不過還有疑問再向您請教

1. D2進儲存格把隱藏打勾<==這個功效是什麼呢?是指當保護工作時，資料編輯列不顯示儲存格的內容嗎?例如:密碼"1234"

2. 選J 欄會出現輸入密碼的提示視窗，不管是按[確定]、[取消]、[X]都是跳到下一列，除非有密碼，否則會一直往下,如果下面還有20筆資料，那就必須按20次[確定],這有方法可以避免嗎?

J 欄可以設定除非有變更，否則不需要輸入密碼嗎?
現在是選取就必須輸入

今天試用新的檔用結果.....
開啟檔後之後就錯出現錯誤而關閉檔案
[Microsoft Excel發生問題，必須關閉，謹此致歉。]
PS: 我是excel 2002 公司的是更早的版本

1. 今天在公司用第二個檔案，沒有出現錯誤關閉。是我家裡電腦的問題吧!!!
2. 當密碼清除之後若選取整張表格，檔案會當掉(不是自動關閉) 需要強制關閉。
3. "J欄"若上一欄 已有資料，用下拉的方式複製，會出現{程式偵錯}PS: NO.2、3如果沒改也沒關係，因為已經請您幫忙太多啦!!
5. 原本檔案"C欄" 會記錄 "B欄"輸入的時間，這如何與您給我的程式碼結合呢?

Answer 1

完成的檔案已貼至
奇摩家族-愛文的倉庫-檔案庫內
http://tw.club.yahoo.com/clubs/warehouse-of-Elvin/

1.我將你所有的格式化條件刪除...因2007在存檔時有發現問題..

2.我設定保護工作表，沒設密碼，完全不影響操作，我只在d2設定其值不顯示..此格為開啟修改功能的密碼..

3.若d2沒密碼，在點選 j 欄且該格不為空白，會要求輸入..

4.d2是設定儲存格格式，所以不論輸入任何東西，都是顯示此文字

5.密碼為 1234 ，如欲修改，請至vba內，將所有1234字樣改成您要的密碼即可

最後，這此建議另一個方法，在存檔時設定唯讀密碼即可達到你大部份的要求...
如果沒輸入密碼，只能以唯讀開啟，這不就解決了你的困擾嗎？

2007-01-27 18:02:45 補充：
保護的部份只是保護工作表而已
你先取消保護，接著將整個工作表選取，按右鍵進儲存格格式
最右邊的頁籤 "保護" 內所有勾勾取消..
跟著在D2進儲存格格式，一樣進保護頁籤內把隱藏打勾..
最後去上方工具列保護工作表即可，將所有選項勾起來---完成...

如果J欄無數值 OR D2 有密碼，當然不會要求輸入..
其中一個條件不成立，則會要求輸入...
也就是說，要有密碼才能更動已有數值的J欄...

2007-01-28 18:21:02 補充：
1. D2進儲存格把隱藏打勾<==這個功效是什麼呢?是指當保護工作時，資料編輯列不顯示儲存格的內容嗎?例如:密碼"1234"

如你所說，這是正確的，不過建議你將這一格也鎖定..否則將格式改g/通用也是會變回來...

2.檔案已修正，若密碼錯誤會跳至左邊一個儲存格
請重新下載..
另一個為你所要求的，改變內容才要求輸入密碼，我所想到的可能已除錯過，你可能需要試一下，也許會有些小問題...能注意到的已測試完成...

2007-01-28 18:24:15 補充：
請在
vba-->thisworkbook內加入以下程式碼，避免將密碼也存檔

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet9.Range("d2") = ""
End Sub

2007-01-29 00:06:29 補充：
那就用第一個版本吧..
我更新過的，也就是點選就會問密碼的...
已改成密碼錯誤會選擇左邊的儲存格...

不知道第二版是什麼問題，沒用到特別的指令，全都是用一些基本的指令達成..

我這開是ok的，存檔格式是相容97~2003的版本...

或是給你程式碼，你貼貼看

Dim h As Variant
Dim t As Boolean

2007-01-29 00:07:15 補充：
請到愛文的倉庫複製程式碼吧..
這裡貼不上..

Answer 2

您好、我有兩個問題想請教各位大大

1.我收到別人傳給我的資料、但是完全不能做修改、這個是保護工作表嗎？但是我也不用key密碼就可以打開了
2. 另外一份資料是我修改了一個數字但是要再修改就不行在修改了

我想請教一下以上是什麼原因、又是怎麼設定的呢?

感謝大家了