請問一下，如何讓別人改一個儲存格，工作表就重新保護？
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
回復 1# bowwow1975
VBAProject中，複製貼上到工作表- Private Sub Worksheet_Change(ByVal Target As Range)
- If Not Intersect(Target, [A1]) Is Nothing Then '特定儲存格
- Protect Password:="123" '保護工作表 密碼123
- End If
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
本帖最後由 stillfish00 於 2013-5-16 20:03 編輯
回復 3# bowwow1975
ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True
只有這段就是單純以123作為密碼保護當前的工作表，當然你要自己呼叫巨集才會執行
2#所寫的是每次當[A1]儲存格的值變動時，就會自動以123保護工作表，事件觸發時自己就會呼叫執行 |
|
|
|
|
|
|
|
發表於 2013-5-16 18:22
| 