Lổi Excel trong Win 10 khi máy cúp điện ngang, hay restar tại chưa tắt File

[hondacrv2019]

Chào cả nhà GPE . em thấy Win 10 khi khởi động lên file excel có tên như thế này



Và khi em chạy đoạn code này lại bị như thế này

Sub luulai()
ActiveWorkbook.Save
End Sub

Mong mọi người giúp đở. Trước đó mình dùng win 7 chưa xảy ra tình trạng này !

 

[HeSanbi]

Vì khi mở lại nó là một file trung gian chưa được Save As, Cần Save as mới dùng phương thức Save được

 

[hondacrv2019]

Vì khi mở lại nó là một file trung gian chưa được Save As, Cần Save as mới dùng phương thức Save được

vậy có cách nào fix lổi bằng code được không anh

 

[HeSanbi]

Thì bạn thêm đoạn Code vào Workbook_Open:

If ThisWorkbook.Path = vbnullstring then
Application.DisplayAlerts = False
  Application.ThisWorkbook.SaveAs FileName:="Path File Save.", _
                                    FileFormat:=xlExcel12, CreateBackup:=False
  Application.DisplayAlerts = True
  'Tùy kiểu tệp mà chọn FileFormat
End if