mình ứng dụng macro để làm việc theo mục đích yêu cầu của

Với câu hỏi của bạn thì mình trả lời như sau:

1. Thao tác record macro không hiệu quả cho mục tiêu này. Vậy nên hãy bỏ qua việc ghi macro, bởi vấn đề này khá phức tạp.

2. Bạn tham khảo đoạn code mẫu dưới đây:

Sub Luu_Workbook_FileDialogSaveAs()
     'Mở cửa sổ FileDialog SaveAs
     With Application.FileDialog(msoFileDialogSaveAs)
           .FilterIndex = 2
          .Show
          If .SelectedItems.Count > 0 Then     'Có file được chọn thì mới làm việc
                ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), _
                    FileFormat:=xlOpenXMLWorkbookMacroEnabled
                VBA.SetAttr .SelectedItems(1), vbReadOnly  'Lưu dưới dạng Read-Only cho file đích
          Else     'Các trường hợp không có file được chọn
                 MsgBox ("No File Selected")
          End If
      End With
End Sub

Các đoạn ghi chú mình ghi tiếng việt cho bạn dễ hiểu, còn khi copy vào Module trong VBA có thể lỗi font nhé.

Đoạn code in đậm chính là đoạn code đưa file đích về chế độ read-only.

Ở đây làm việc thông qua tiến trình dùng VBA mở cửa sổ Save as, trong đó mặc định là lưu ra file mới ở dạng read-only. Bạn học đến chương 8 sẽ hiểu rõ hơn nội dung này. Tuy nhiên đây đã là 1 nội dung nâng cao hơn trong chương trình dạy rồi.

Cám ơn chuyên ak.