麻辣家族討論版版 » Excel程式區 » Excel 儲存格保護

返回列表下一主題上一主題發帖

Excel 儲存格保護

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-10-2 22:23 | 只看該作者

Excel 儲存格保護

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

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-3 08:36 | 只看該作者

回復 1# modelcrazyer
試試看

Option Explicit
Sub Ex()
Dim xlpassWord As String
xlpassWord = "1234" '密碼
With ActiveSheet '工作表
.Unprotect xlpassWord '解密
With .Cells '所有儲存格
.Locked = True '鎖住
.FormulaHidden = True '隱藏
End With
With .Columns("A:A") 'A欄 : 可修改
.Locked = False '不鎖住
.FormulaHidden = False '不隱藏
End With
.Protect xlpassWord, DrawingObjects:=True, Contents:=True, Scenarios:=True '保護
.EnableSelection = xlUnlockedCells '工作表上所能選取的內容: 沒鎖住的儲存格
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

3^#

發表於 2012-10-3 22:12 | 只看該作者

太感謝了!!!

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題