VBA：Workbooks.Save和關閉不保存

Question

我有以下的代碼是工作，但.close關閉WB不保存行：

Option Explicit 
Public Function updateStatus(fpath As String, fname As String, num As String) 

Dim wk As String, yr As String 
Dim owb As Workbook 
Dim trow As Variant 

With Application 
    .DisplayAlerts = False 
    .ScreenUpdating = False 
    .EnableEvents = False 
End With 

Set owb = Application.Workbooks.Open(fpath & fname) 

trow = owb.Sheets(1).Range("Change" & num).Row 
owb.Sheets(1).Cells(trow, 5).value = "Test" 

With owb 
    .Save 
    .Close SaveChanges:=True 'This line doesn't seem to work 
End With 

With Application 
    .DisplayAlerts = True 
    .ScreenUpdating = True 
    .EnableEvents = True 
End With 

End Function 

如果我刪除行，世行保持打開狀態，我看到變化。如果我添加該行並打開特定文件，則看不到變化。

Answer 1

正如評論中所述，代碼看起來不錯，您可能在Excel中啓用了一些數據保護功能，但無法保存。儘量讓這樣的小例子：

Option Explicit 

Public Sub TestMe() 

    Dim owb As Workbook 

    Set owb = Application.Workbooks.Open("C:\Users\vityata\Desktop\Testing.xlsx") 
    owb.Save 
    owb.Close 

End Sub 

然後用F8調試，看看，你有，一旦你通過owb.Save去傳遞消息。

只是，你知道：

.Save 
.Close SaveChanges:=True 

隨着.Save行，你讓SaveChanges:=True部分無用。反之亦然。