Xuất File Xlsm Sang Xlsx Không Chứa Code Macros - Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Xuất file xlsm sang xlsx không chứa code Macros (1 người xem)

• Thread starter Thread starter Thanh Bình PV
• Ngày gửi Ngày gửi 14/4/21

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)

Thanh Bình PV

Thành viên hoạt động

Tham gia 30/10/19 Bài viết 151 Được thích 19 Xin chào mọi người, Em có 1 file làm việc có 1 ribbon tự tạo và 1 số code trong đó. Em cần xuất file xlsx để gửi khách hàng. Nhờ anh chị giúp em viết code với ạ. 1. Xuất file xlsm sang xlsx không chứa code trong file. Và không đóng file xlsm ạ. (Em có viết 1 sub nhưng mỗi lần xuất thì sẽ hiện thông báo hỏi để xóa VB project. Có cách nào để bỏ qua thông báo luôn không ạ) 2. Tại vì trong file có ribbon nên khi em xuất sang file xlsx thì mở lên sẽ hiện thông báo bên dưới. Em muốn xóa CustomUI trong file để không hiện lên nữa ạ. Em cảm ơn. Mã: Sao chép. Sub test() ' bat buoc phai nhan ok de xoa vbproject Dim savename As Variant Dim filename As String, temp$ Application.DisplayAlerts = False ' Mac dinh nhan Yes temp = Environ("temp") & "\" & ThisWorkbook.Name filename = Replace(ThisWorkbook.Name, ".xlsm", "") ThisWorkbook.SaveCopyAs filename:=temp Dim filename1 As String Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook savename = Application.GetSaveAsFilename(InitialFileName:=filename, fileFilter:="Exel Files (*.xlsx), *.xlsx", Title:="Export Excel !!!") If savename = False Then Application.DisplayAlerts = True: Exit Sub filename1 = ThisWorkbook.path & "\" & ThisWorkbook.Name Set xlApp = CreateObject("Excel.Application") 'xlApp.Visible = False 'xlApp.DisplayAlerts = False Set xlBook = xlApp.Workbooks.add(temp) xlBook.SaveAs filename:=savename, FileFormat:=51 xlApp.Quit Set xlApp = Nothing Kill temp Application.DisplayAlerts = True End Sub Sắp xếp theo thời gian sắp xếp theo bầu chọn

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840 Chuyển code hiện có thành Addins. Còn file dữ liệu ở dạng *.xlsx. Vậy khỏi cần chuyển gì cả. Xong phim 15 ký tự. Upvote 0

Thanh Bình PV

Thành viên hoạt động

Tham gia 30/10/19 Bài viết 151 Được thích 19

befaint đã viết: Chuyển code hiện có thành Addins. Còn file dữ liệu ở dạng *.xlsx. Vậy khỏi cần chuyển gì cả. Xong phim 15 ký tự. Nhấp chuột vào đây để mở rộng...

Em cũng muốn thế. Mà file này đưa ra cả công trường và các phòng ban để làm việc nữa. Họ cũng sẽ dùng 1 số tính năng của code trong file vậy nên em mới không chuyển sang thành Addin. Upvote 0 B

batman1

Thành viên gạo cội

Tham gia 8/9/14 Bài viết 5,776 Được thích 9,819

(Em có viết 1 sub nhưng mỗi lần xuất thì sẽ hiện thông báo hỏi để xóa VB project. Có cách nào để bỏ qua thông báo luôn không ạ) Nhấp chuột vào đây để mở rộng...

DisplayAlerts = False là đúng rồi nhưng làm chưa chuẩn. Bạn thiết lập DisplayAlerts = False cho server Excel hiện hành (Application.DisplayAlerts = False ' Mac dinh nhan Yes), sau đó bạn khởi động server Excel mới (instance thứ 2) Mã: Sao chép. Set xlApp = CreateObject("Excel.Application") và thao tác ở đó. Server thứ 2 vẫn có DisplayAlerts = True. Sửa: - xóa Application.DisplayAlerts = False ' Mac dinh nhan tâp tin - bỏ chú thích ở dòng xlApp.DisplayAlerts = False, tức biến nó trở lại thành dòng code. --------- Theo tôi nên đặt code ở một tập tin khác. Chả nhẽ khi bạn muốn chuyển 10 XLSM thành 10 XLSX thì bạn đặt code ở 10 tập tin? Code trong tập tin khác Mã: Sao chép. Sub saveAsXlsx() Dim k As Long, filename, fName As String, wb As Workbook filename = Application.GetOpenFilename("Excel files (*.xls*),*.xls*", , "Hay chon tap tin Excel", , True) If Not IsArray(filename) Then Exit Sub Application.DisplayAlerts = False For k = 1 To UBound(filename) fName = filename(k) Set wb = Application.Workbooks.Open(fName) fName = Left(fName, InStrRev(fName, ".") - 1) & "_" & Format(Date, "ddmmyyyy") & ".xlsx" wb.SaveAs fName, xlOpenXMLWorkbook wb.Close Next k Application.DisplayAlerts = True End Sub Chạy code -> chọn 1 hoặc 10 tập tin XLSM

2. Tại vì trong file có ribbon nên khi em xuất sang file xlsx thì mở lên sẽ hiện thông báo bên dưới. Em muốn xóa CustomUI trong file để không hiện lên nữa ạ. Nhấp chuột vào đây để mở rộng...

Cũng không cần code đâu vì làm tay không mất nhiều thời gian. Tôi thường dùng WinRAR, nhưng cũng có thể dùng 7-Zip. Thao tác: phải chuột trên tập tin XLSX (không cần đổi tên thành ZIP đâu) -> chọn Open With -> duyệt tới và chọn WinRAR -> click để chọn thư mục customUI (bước 1 - xem hình) -> nhấn nút Delete (bước 2) để loại bỏ thư mục customUI -> nhấn nút X (bước 3) để đóng cửa sổ của WinRAR -> đã xong phim. Nếu thao tác quen thì mất cùng lắm 30 s. Mở tập tin XLSX bằng Excel có khi còn lâu hơn, chưa nói tới chạy code. Lần chỉnh sửa cuối: 15/4/21 Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Nếu diễn đàn GPE đóng cửa? (2 người xem)

• • 
  • 

• PhanTuHuong
• 14/12/25
• Thư giãn

Trả lời 24 Đọc 861 26 phút trước DINH THI VAN D Xin chỉ giúp sự khác nhau giữa giá trị trong ô A3 và A4 là gì (1 người xem)

• huevantran
• Hôm nay lúc 16:55
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 0 Đọc 8 Hôm nay lúc 16:55 huevantran

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 582 Đọc 83K Hôm nay lúc 16:44 pycckuu410 T lấy hình ảnh từ sheet data sang sheet tra cứu

• trangntn92
• Hôm nay lúc 13:56
• Hàm và công thức Excel

Trả lời 1 Đọc 37 Hôm nay lúc 15:00 Maika8008 N Hướng dẫn công thức Query kết hợp Arrayfomula bị lỗi

• Na7979
• Thứ bảy lúc 11:40
• Lọc và sắp xếp dữ liệu

Trả lời 1 Đọc 76 Hôm nay lúc 10:22 trung1987 T Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 51 Đọc 21K Hôm nay lúc 05:37 Maika8008 L nhờ hoàn thiện file dò xổ số (1 người xem)

• levovantoan
• Thứ sáu lúc 23:25
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 7 Đọc 255 Hôm nay lúc 03:37 SA_DQ [GPE21] ỨNG DỤNG POWER QUERY TRONG ĐỐI CHIẾU DỮ LIỆU HÓA ĐƠN ĐIỆN TỬ VÀ DỮ LIỆU KẾ TOÁN (5 người xem)

• • 

• GPE-Trợ Lý
• Hôm qua, lúc 10:02
• Học tập Online

Trả lời 0 Đọc 291 Hôm qua, lúc 10:02 GPE-Trợ Lý H hướng dẫn xóa dòng, cột file excel

• hoangvucntt
• Thứ bảy lúc 10:16
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 1 Đọc 77 Thứ bảy lúc 17:39 ptm0412 D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

• dieppk.nb92
• 14/12/25
• Hàm và công thức Excel

Trả lời 20 Đọc 588 Thứ bảy lúc 10:56 Phan Thế Hiệp K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

• kaoehtkid
• 15/12/25
• Những vấn đề chung

Trả lời 13 Đọc 352 Thứ sáu lúc 19:07 ongke0711 Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• • 

• HeSanbi
• 13/12/25
• Xử lý chuỗi ký tự

Trả lời 2 Đọc 265 Thứ sáu lúc 17:38 HeSanbi Tính định mức sản phẩm

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 11 Đọc 961 Thứ sáu lúc 14:27 nguyenanhtruong2409 N T Lọc dự liệu với hai điều kiện

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 18 Đọc 7K Thứ sáu lúc 14:11 nguyenanhtruong2409 N N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet (2 người xem)

• Na7979
• Thứ sáu lúc 14:01
• Google Sheets

Trả lời 0 Đọc 59 Thứ sáu lúc 14:01 Na7979 N D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 17 Đọc 481 Thứ sáu lúc 12:04 ptm0412 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• 15/12/25
• Hàm và công thức Excel

Trả lời 7 Đọc 267 Thứ sáu lúc 08:11 minhnghia123 M M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA

• • 

• Mr_Siro
• Thứ tư lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 190 Thứ năm lúc 13:23 Mr_Siro M P Tìm giá trị tồn kho đầu ngày

• ptthuongtn
• Thứ tư lúc 15:15
• Hàm và công thức Excel

Trả lời 3 Đọc 185 Thứ năm lúc 11:22 Duy Tùng 9x Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu

• skygatevn
• Thứ tư lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 151 Thứ tư lúc 13:52 skygatevn Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 42
• thanthanhan 23
• dungpham01 19
• ongke0711 19
• Phan Thế Hiệp 17
• ptm0412 17
• eagle12 16
• nguyenanhtruong2409 16
• HUONGHCKT 12
• vic_it 11
• pycckuu410 11
• nhhnam 10
• dieppk.nb92 10
• Vũ Hải Sơn 9
• HeSanbi 9
• le_vis 8
• Gà Con yêu VBA 8
• bsbnhh 7
• duongnhuxuyen 7
• Hana2610 6

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 87
• Maika8008 35
• thanthanhan 20
• ptm0412 18
• HeSanbi 17
• ongke0711 17
• dungpham01 11
• HUONGHCKT 9
• eagle12 9
• SA_DQ 9
• Cúc Hr 8
• dieppk.nb92 6
• Mr.hieudoanxd 5
• pycckuu410 5
• befaint 5
• Hoàng Tuấn 868 4
• Phuocam 4
• nguyenanhtruong2409 4
• nhhnam 2
• Gà Con yêu VBA 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom