返回列表 上一主題 發帖

[發問] 存檔時，錯誤訊息1004，'save'方法('_WorkBook'物件)失敗

chi830

帖子
105 
主題
27 
精華
0 
積分
168 
點名
200  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2025-10-30 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-1 13:11 | 只看該作者

[發問] 存檔時，錯誤訊息1004，'save'方法('_WorkBook'物件)失敗

圖一.png     圖二.png      
各位先進~
以下Code為在關閉excel檔時，能讓活頁簿存檔的程式碼，一般office2003or 2007版本都能正常運作
但是現在有個奇怪現象，在某user電腦下執行時，即會出現錯誤訊息，如圖一與圖二，不知該user是否哪裡設定的問題導致
還望先進們給予指點~謝謝大家!!
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.   Worksheets("Login").Visible = True
  3.     k = Application.CountA(Sheet10.Range("A1:A50"))  '統計不是空白的儲存格，以及引數清單內的數值。
  4.     For I = 1 To k
  5.         X = Sheet10.Cells(0 + I, 1)
  6.         Worksheets(X).Visible = xlSheetVeryHidden  '隱藏的Sheet
  7.     Next
  8.     ActiveWorkbook.Save
  9. End Sub
複製代碼
收藏 分享

chi830

帖子
105 
主題
27 
精華
0 
積分
168 
點名
200  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2025-10-30 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
2#
發表於 2013-4-2 13:38 | 只看該作者
回復 1# chi830

我查到原因為何了，原本是把檔案放在共享區，讓所有user利用網芳連線登入操作，
所以只要將該登入帳號的安全性，不能只設修改權限，同時也應有寫入權限才行

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題