返回列表 上一主題 發帖

[發問] 請問如何把工作表中所有含公式的儲存格設定為不可編輯後，保護工作表

df2001tw

帖子
2 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-12 
最後登錄
2016-12-22 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-5-12 11:31 | 只看該作者

[發問] 請問如何把工作表中所有含公式的儲存格設定為不可編輯後，保護工作表

小弟剛接觸VBA
想要試著把原本做好的excel 檔案 有公式的部分自動加上保護 避免其他人不小心修改 然後其餘儲存格需要由使用者輸入
嘗試了一下，結果我只會把有公式的儲存格弄成可編輯，與我想要的剛好相反

Sub protect_formula()
ActiveSheet.Unprotect
ActiveSheet.Protection.AllowEditRanges.Add _
        Title:="formula", _
        Range:=Selection.SpecialCells(xlCellTypeFormulas)
ActiveSheet.protect
End Sub

有前輩能教我嗎?
收藏 分享

df2001tw

帖子
2 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-12 
最後登錄
2016-12-22 
3#
發表於 2016-5-17 09:52 | 只看該作者
回復 2# stillfish00


原來如此，小弟是先用錄製巨集方式模仿的，
原來有這麼方便的方法
謝謝前輩指導~

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-5-12 18:49 | 只看該作者
回復 1# df2001tw
利用儲存格格式>保護>鎖定
  1. Sub Test()
  2.   With ActiveSheet
  3.     .Unprotect
  4.     .Cells.Locked = False
  5.     .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
  6.     .Protect
  7.   End With
  8. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題