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

chi830

下載 (9.2 KB)

2013-4-1 13:10

   

下載 (7.7 KB)
圖二

2013-4-1 13:10

     
各位先進~
以下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

回復 1# chi830

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