Em muốn mở 1 workbook và lấy dữ liệu từ workbook đó vào workbook hiện tại

Em muốn mở 1 workbook và lấy dữ liệu từ workbook đó vào workbook hiện tại. Nhưng trong 1 số trường hợp workbook được mở lên đang ở chế độ Protected View và báo lỗi. Vậy em cần sửa như thế nào để unprotect ạ?

Sub lay_du_lieu()

With Application.FileDialog(msoFileDialogFilePicker)

.AllowMultiSelect = False

.Show

Dim wb_orderdesk As Workbook

Dim Wb_data As Workbook

Set wb_orderdesk = ThisWorkbook

Set Wb_data = Workbooks.Open(.SelectedItems(1))

Dim Lr As Long

Lr = Wb_data.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

Wb_data.Activate

Range("A1" & ":AV" & Lr).Select

Selection.Copy

wb_orderdesk.Activate

Sheets("Data").Select

Range("A1").Select

ActiveSheet.Paste

Wb_data.Close

End With

Sheets("Data").Range("AW1").Value = "Error"

Sheets("Data").Range("AX1").Value = "Service"

End Sub

1 câu trả lời

177 lượt xem

vỗ tay

Hoàng Thị Tước 13:01 - Jan 26, 2022

Với workbook mà chưa rõ nguồn gốc (tải từ trên mạng về hoặc copy từ usb...) thì excel thường chặn file ở chế độ Protect View. Bạn cần phải mở thủ công để Enable Editing.

Việc này VBA cũng không can thiệp được bạn nhé. Bạn cần phải xác nhận file được phép chỉnh sửa thì mới an toàn để sử dụng. Đây là một biện pháp an toàn giúp ngăn VBA tự ý làm việc với các file chưa rõ nguồn gốc.

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Em muốn mở 1 workbook và lấy dữ liệu từ workbook đó vào workbook hiện tại

Câu hỏi liên quan