返回列表 上一主題 發帖

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

本帖最後由 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

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題