返回列表 上一主題 發帖

儲存格保護

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
1# 跳轉到 »
發表於 2013-6-1 23:29 | 顯示全部帖子
回復 2# 317

這段代碼放在工作表1的代碼內
  1. Private Sub CommandButton1_Click()
  2.         ActiveSheet.Unprotect
  3.         Selection.Locked = True
  4.         ActiveSheet.Protect
  5. End Sub

  7. Private Sub CommandButton2_Click()
  8.         ActiveSheet.Unprotect
  9.         Selection.Locked = False
  10.         ActiveSheet.Protect
  11. End Sub
複製代碼
用法:    先把工作頁保護,或按一下 1
所有格子預設是鎖死的, 按下2可以解鎖
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題