返回列表 上一主題 發帖

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

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

我使用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 於 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

感謝你,複製過去後,xxx改為工作表名稱,可正常動作了,我的問題解決了
謝謝!!

TOP

        靜思自在 : 唯其尊重自己的人,才更勇於縮小自己。
返回列表 上一主題