轉來的方法，請試試。

方法是有的。用VBA解決。

工作表保護密碼:123 你可以在程式碼中自己更改

工作表中只要單元格不為空程式就會鎖定保護單元格

右鍵單擊工作表標籤，在右鍵選單中選擇“檢視程式碼”，然後在出現的工作表程式碼編輯視窗複製貼上以下程式碼：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range

If Target.Count = 1 Then

Unprotect Password:=123

Cells.Locked = False

Set rng = UsedRange

For i = 1 To rng.Cells.Count

If rng(i) <> "" Then

rng(i).Locked = True

End If

Next

Protect Password:=123

EnableSelection = xlUnlockedCells

End If

End Sub

另外說明：如果要修改原有資料是要解除工作表保護後才能修改。