標題: Excel 儲存格保護 [打印本頁]

---

作者: modelcrazyer    時間: 2012-10-2 22:23     標題: Excel 儲存格保護

想請問共有三欄,A,B,C
其中B欄的資料是從A欄參照來的,
現在我想保護B欄避免誤操作,但同時A欄做變更時B欄的內容還會變更
請問怎麼用VBA來撰寫??

---

作者: GBKEE    時間: 2012-10-3 08:36

回復 1# modelcrazyer
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlpassWord As String
   
4.     xlpassWord = "1234"             '密碼
   
5.      With ActiveSheet               '工作表
   
6.         .Unprotect xlpassWord       '解密
   
7.         With .Cells                 '所有儲存格
   
8.             .Locked = True          '鎖住
   
9.             .FormulaHidden = True   '隱藏
   
10.         End With
    
11.         With .Columns("A:A")        'A欄 : 可修改
    
12.             .Locked = False         '不鎖住
    
13.             .FormulaHidden = False  '不隱藏
    
14.         End With
    
15.         .Protect xlpassWord, DrawingObjects:=True, Contents:=True, Scenarios:=True        '保護
    
16.         .EnableSelection = xlUnlockedCells       '工作表上所能選取的內容: 沒鎖住的儲存格
    
17.     End With
    
18. End Sub

複製代碼

---

作者: modelcrazyer    時間: 2012-10-3 22:12

太感謝了!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)