Excel 2010 tự động tạo file .tmp khi dùng phím Ctrl+S.

[ksxd8910]

Em dùng excel mới gần đây có bị hiện tượng khi ấn Save phím nóng Ctrl+S thì file tự tạo ra các tệp tmp. Các tệp này sau khi tắt excel thì vẫn còn và vẫn xóa được bình thường. Có điều để nhiều sẽ bị rác. Em cũng có tìm hiểu một số trường hợp tương tự thì thấy họ không xóa được còn của em thì xóa được. Có nói là cho vào phần trusted Zone của KIS (em dùng KIS) nhưng vẫn không xử lý được. Các anh chị có biết cách khắc phục mách em với ạ. Em cảm ơn rất nhiều

 

[Kiều Mạnh]

Em dùng excel mới gần đây có bị hiện tượng khi ấn Save phím nóng Ctrl+S thì file tự tạo ra các tệp tmp. Các tệp này sau khi tắt excel thì vẫn còn và vẫn xóa được bình thường. Có điều để nhiều sẽ bị rác. Em cũng có tìm hiểu một số trường hợp tương tự thì thấy họ không xóa được còn của em thì xóa được. Có nói là cho vào phần trusted Zone của KIS (em dùng KIS) nhưng vẫn không xử lý được. Các anh chị có biết cách khắc phục mách em với ạ. Em cảm ơn rất nhiều

Nếu bạn biết về code thí tham khảo code này của GPE

Sub DelTmpFiles1() 'Ndu Xoa tat ca file Tmp trong Win
  Dim sComm As String, TempFolder As String
  'On Error Resume Next
  TempFolder = CreateObject("Scripting.FileSystemObject").Getfolder(Environ("Temp"))
  sComm = "RMDIR """ & TempFolder & """ /Q /S"
  CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
End Sub

Và code này Nữa

Sub DeleteTmpFile() 
Dim ObjFSO As Object, ObjFile As Object, DuongDan As String
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
DuongDan = ThisWorkbook.Path
With ObjFSO.Getfolder(DuongDan)
   For Each ObjFile In .Files
      'If ObjFSO.GetExtensionName(ObjFile.Name) Like "tmp*" Then
      If ObjFSO.GetExtensionName(ObjFile.Name) = "tmp" Then 'Thay the dong tren hay ko la tuy
         ObjFSO.DeleteFile (ObjFile)
      End If
   Next
End With
End Sub

nếu Muốn tham khảo thì vào đây
Mình cũng từng tham khào nhiều cách nhưng chỉ có mấy cách trên tạm thời là ok nhất...sau nay có cách nào hay hơn không thì hãy chờ nha