返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-5-16 20:01 | 顯示全部帖子
本帖最後由 stillfish00 於 2013-5-16 20:03 編輯

回復 3# bowwow1975

ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True

只有這段就是單純以123作為密碼保護當前的工作表，當然你要自己呼叫巨集才會執行

2#所寫的是每次當[A1]儲存格的值變動時，就會自動以123保護工作表，事件觸發時自己就會呼叫執行

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題