- 帖子
- 3
- 主題
- 2
- 精華
- 0
- 積分
- 5
- 點名
- 0
- 作業系統
- win8 64bit
- 軟體版本
- office 365
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-10-16
- 最後登錄
- 2013-10-17
|
用了以下VBA
本想輸入資料後 自動鎖定儲存格
用在普通儲存格是可以正常使用
但如果已經合併的儲存格
沒有輸入資料已經自動鎖定
請指教
Thanks
------------------------------------------------
Private Sub Worksheet_SelectionChange
ActiveSheet.Unprotect
Target.Locked = False
On Error Resume Next
If Target <> "" Then
Target.Locked = True
ActiveSheet.Protect Contents:=True
End If
End Sub |
|