返回列表 上一主題 發帖

工作表保護之後，清除資料的巨集按鈕無法動作

妤璇

帖子
28 
主題
4 
精華
0 
積分
35 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2014-3-13 
最後登錄
2014-4-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-24 09:49 | 只看該作者

工作表保護之後，清除資料的巨集按鈕無法動作

我使用Excel 2010，在設定保護工作表及保護活頁簿之後，清除資料的巨集按鈕就無法使用了，未保護前都可正常使用。

出現錯誤 1004
您要變更的儲存格或圖表已被保護，無法更改。

程式碼是

Sub 出貨單_清除資料()
'
' 出貨單_清除資料 巨集
'

'
    Range("K3,C3:D3,B9:F22").Select
    Range("B9").Activate
    Selection.ClearContents
    Range("C3:D3").Select
   
    MsgBox ("資料已清除成功!!")
   
End Sub

Selection.ClearContents的字體為黃色的，有查文說要在程式碼中自己寫入密碼，但不知該怎麼寫，請大家能教教我，謝謝。
收藏 分享

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-3-24 10:54 | 只看該作者
本帖最後由 owen06 於 2014-3-24 10:55 編輯
  1. Sub 出貨單_清除資料()
  2. sheets("XXX").Unprotect "12345" '取消保護，密碼：12345
  3. Range("K3,C3:D3,B9:F22").ClearContents
  4. Range("C3:D3").Select
  5. MsgBox "資料已清除成功!!"
  6. sheets("XXX").Protect "12345" '重上保護，密碼：12345
  7.    
  8. End Sub
複製代碼
回復 1# 妤璇

TOP

妤璇

帖子
28 
主題
4 
精華
0 
積分
35 
點名
0  
作業系統
windows 
軟體版本
office2010 
閱讀權限
10 
性別
女 
註冊時間
2014-3-13 
最後登錄
2014-4-18 
3#
發表於 2014-3-24 11:51 | 只看該作者
感謝你，複製過去後，xxx改為工作表名稱，可正常動作了，我的問題解決了
謝謝!!

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題