12
返回列表 上一主題 發帖

儲存格保護

kimbal

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

論壇貢獻勳章
3# 跳轉到 »
發表於 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

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
2#
發表於 2013-6-1 22:29 | 只看該作者
各大大, 好
小妹有一問題請教, 在工作表中,假設 a1:a100用家想用一按鈕, 在該範圍內當用家於輸入資料後於其 ...
317 發表於 2013-6-1 16:29 [/quote]

小妹現把檔案上傳, 希望能得到回應,
aa.rar (11.15 KB) [quote]

TOP

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