Board logo

標題: 工作表保護之後，清除資料的巨集按鈕無法動作 [打印本頁]
作者: 妤璇    時間: 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    時間: 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# 妤璇
作者: 妤璇    時間: 2014-3-24 11:51

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)