請問一下，如何讓別人改一個儲存格，工作表就重新保護？
- 帖子
- 38
- 主題
- 14
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Excel2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-7-16
- 最後登錄
- 2013-9-3
|
請問一下，如何讓別人改一個儲存格，工作表就重新保護？
最近拿到一個檔案，我先取消保護工作表後（輸入密碼）！！
只要在特定的儲存格更改，就會又進入工作表保護~~~
請問這樣怎麼辦到的？ |
|
|
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
2#
發表於 2013-5-16 18:22
| 只看該作者
回復 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
|
|
|
|
|
|
|
|
- 帖子
- 38
- 主題
- 14
- 精華
- 0
- 積分
- 66
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Excel2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-7-16
- 最後登錄
- 2013-9-3
|
3#
發表於 2013-5-16 19:46
| 只看該作者
回復 2# stillfish00
如果是單純只寫這一段呢？- ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True
|
|
|
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
4#
發表於 2013-5-16 20:01
| 只看該作者
本帖最後由 stillfish00 於 2013-5-16 20:03 編輯
回復 3# bowwow1975
ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True
只有這段就是單純以123作為密碼保護當前的工作表，當然你要自己呼叫巨集才會執行
2#所寫的是每次當[A1]儲存格的值變動時，就會自動以123保護工作表，事件觸發時自己就會呼叫執行 |
|
|
|
|
|
|
|
