返回列表 上一主題 發帖

請問一下，如何讓別人改一個儲存格，工作表就重新保護？

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-5-16 17:42 | 只看該作者

請問一下，如何讓別人改一個儲存格，工作表就重新保護？

最近拿到一個檔案，我先取消保護工作表後（輸入密碼）！！

只要在特定的儲存格更改，就會又進入工作表保護~~~

請問這樣怎麼辦到的？
收藏 分享

stillfish00

帖子
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保護工作表，事件觸發時自己就會呼叫執行

TOP

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
3#
發表於 2013-5-16 19:46 | 只看該作者
回復 2# stillfish00


    如果是單純只寫這一段呢？
  1.     ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True
複製代碼

TOP

stillfish00

帖子
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中，複製貼上到工作表
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Not Intersect(Target, [A1]) Is Nothing Then  '特定儲存格
  3.         Protect Password:="123"     '保護工作表 密碼123
  4.     End If
  5. End Sub
複製代碼

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題