Mở file bằng code mà vẫn cứ hiện thông báo ReadOnly (2 người xem)

[MinhKhai]

Em có Code này mà khi chạy không như ý, không biết lỗi từ đâu

Private Sub CommandButton1_Click()
MyPath = ActiveWorkbook.Path
Workbooks.Open MyPath & "\New2.xls", [B]IgnoreReadOnlyRecommended:=True[/B]
End Sub

Mục đích của em là khi kích vào CommandButton1 trong file hiện hành thì nó mở file New2.xls trong cùng thư mục mà không có cảnh báo ReadOnly (File New2.xls có đặt pass ReadOnly)
Xin được chỉ dẫn

 

[huuthang_bd]

Em có Code này mà khi chạy không như ý, không biết lỗi từ đâu

Private Sub CommandButton1_Click()
MyPath = ActiveWorkbook.Path
Workbooks.Open MyPath & "\New2.xls", [B]IgnoreReadOnlyRecommended:=True[/B]
End Sub

Mục đích của em là khi kích vào CommandButton1 trong file hiện hành thì nó mở file New2.xls trong cùng thư mục mà không có cảnh báo ReadOnly (File New2.xls có đặt pass ReadOnly)
Xin được chỉ dẫn

Bạn phải sửa lại như thế này thì mới được

Workbooks.Open MyPath & "\New2.xls" , ReadOnly:=True

 

[MinhKhai]

Bạn phải sửa lại như thế này thì mới được

Workbooks.Open MyPath & "\New2.xls" , ReadOnly:=True

Cảm ơn bác. Thế mà em sửa mãi không ra. Bác có thể giải thích IgnoreReadOnlyRecommended:=True để là gì không ạ ?

 

[huuthang_bd]

Cảm ơn bác. Thế mà em sửa mãi không ra. Bác có thể giải thích IgnoreReadOnlyRecommended:=True để là gì không ạ ?

Khi bạn save as 1 file, trong phần Tools - General Options... có mục Read-only recommended. Nếu check vào mục này thì khi mở file Excel sẽ hỏi bạn mở dạng Read-only hay mở bình thường. IgnoreReadOnlyRecommended:=True dùng để mở dạng bình thường.