Hỏi lỗi code VBA mở file trong Excel 2007 và Excel 2013

[NguyenNgocSon]

Xin chào các bác trên GPE. Em đang bị vấn đề với code mở file và lưu tên khác bằng VBA

Sub Taofile()
'Khong hien thong bao cua Excel
With Application
.ScreenUpdating = 0
.DisplayAlerts = 0
End With
'-----------------------------
With Sheets("HS")
Dim vFile
Dim wkb As Workbook, tmparr
vFile = ThisWorkbook.Path & "\" & "Ho so che tao" & ".xls"
If TypeName(vFile) = "String" Then
Set wkb = Workbooks.Open(vFile)
Else
Exit Sub
End If
wkb.SaveAs Filename:=ThisWorkbook.Path & "\" & "D" & .Range("T2").Value & ".xls"
wkb.Close False
End With
'Tra lai bien hien thong bao Excel
With Application
.ScreenUpdating = 1
.DisplayAlerts = 1
End With
'--------------------------------
End Sub

Với Code trên chạy bằng Excel 2007 thì không lỗi gì cả
Với Excel 2013 báo lỗi:
Office has detected a problem with this file
To help protect your computer this file cannot be opened
Em cũng không hiểu nguyên nhân do đâu. Mặc dù cũng đã vào Options => Trust Center chỉnh rồi
Mong các bác giúp đỡ. Định cài Ex 2013 trải nghiệm mà gặp ngay lỗi này, nản ghê
Trân trọng!

 

[comet_1701]

Xin chào các bác trên GPE. Em đang bị vấn đề với code mở file và lưu tên khác bằng VBA

Sub Taofile()
'Khong hien thong bao cua Excel
With Application
.ScreenUpdating = 0
.DisplayAlerts = 0
End With
'-----------------------------
With Sheets("HS")
Dim vFile
Dim wkb As Workbook, tmparr
vFile = ThisWorkbook.Path & "\" & "Ho so che tao" & ".xls"
If TypeName(vFile) = "String" Then
Set wkb = Workbooks.Open(vFile)
Else
Exit Sub
End If
wkb.SaveAs Filename:=ThisWorkbook.Path & "\" & "D" & .Range("T2").Value & ".xls"
wkb.Close False
End With
'Tra lai bien hien thong bao Excel
With Application
.ScreenUpdating = 1
.DisplayAlerts = 1
End With
'--------------------------------
End Sub

Với Code trên chạy bằng Excel 2007 thì không lỗi gì cả
Với Excel 2013 báo lỗi:
Office has detected a problem with this file
To help protect your computer this file cannot be opened
Em cũng không hiểu nguyên nhân do đâu. Mặc dù cũng đã vào Options => Trust Center chỉnh rồi
Mong các bác giúp đỡ. Định cài Ex 2013 trải nghiệm mà gặp ngay lỗi này, nản ghê
Trân trọng!

Không biết vừa rồi bạn có teamview hay trộn thư không. Bạn thử vào Trust location add vào vị trí khác xem có được ko. Có thể dính virus chăng?

 

[nmhung49]

Xin chào các bác trên GPE. Em đang bị vấn đề với code mở file và lưu tên khác bằng VBA

Sub Taofile()
'Khong hien thong bao cua Excel
With Application
.ScreenUpdating = 0
.DisplayAlerts = 0
End With
'-----------------------------
With Sheets("HS")
Dim vFile
Dim wkb As Workbook, tmparr
vFile = ThisWorkbook.Path & "\" & "Ho so che tao" & ".xls"
If TypeName(vFile) = "String" Then
Set wkb = Workbooks.Open(vFile)
Else
Exit Sub
End If
wkb.SaveAs Filename:=ThisWorkbook.Path & "\" & "D" & .Range("T2").Value & ".xls"
wkb.Close False
End With
'Tra lai bien hien thong bao Excel
With Application
.ScreenUpdating = 1
.DisplayAlerts = 1
End With
'--------------------------------
End Sub

Với Code trên chạy bằng Excel 2007 thì không lỗi gì cả
Với Excel 2013 báo lỗi:
Office has detected a problem with this file
To help protect your computer this file cannot be opened
Em cũng không hiểu nguyên nhân do đâu. Mặc dù cũng đã vào Options => Trust Center chỉnh rồi
Mong các bác giúp đỡ. Định cài Ex 2013 trải nghiệm mà gặp ngay lỗi này, nản ghê
Trân trọng!

Tôi Test với code này trên excel 2013 thì không bị lỗi, để kiểm tra bạn làm thử các bước sau:
1. Mở file ho so che tao .xls bằng tay xem có lỗi gì không, xem mở lên được không nếu không được làm bước 2
2.File Option ==> Trust Center ==> Trust Center Settinh ==> Protected View => bỏ các check hết

 

[NguyenNgocSon]

Tôi Test với code này trên excel 2013 thì không bị lỗi, để kiểm tra bạn làm thử các bước sau:
1. Mở file ho so che tao .xls bằng tay xem có lỗi gì không, xem mở lên được không nếu không được làm bước 2
2.File Option ==> Trust Center ==> Trust Center Settinh ==> Protected View => bỏ các check hết

Cám ơn bạn
Mình đã thử các bước trên nhưng vẫn không được
Nếu mở thủ công không có lỗi gì cả và cũng ko báo Protected View
Chuyển qua máy khác dùng EX 2010 vẫn bị lỗi trên mặc dù tắt tất cả chế độ bảo mật
Em nghĩ ràng chắc do cài đặt ở mục nào đó
Xin các bác góp ý thêm
Trân trọng !