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,843 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

Copilot bình luận các ván cờ vua từng ngày. (1 người xem)

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 87 Đọc 3K 40 phút trước SA_DQ C

• Question Question

Tự động điền thông tin từ danh sách vào template, nhờ anh chị trợ giúp

• chienminhanh
• Hôm qua, lúc 22:19
• Lập Trình với Excel

Trả lời 0 Đọc 24 Hôm qua, lúc 22:19 chienminhanh C

• Question Question

Lấy tỷ giá ngân hàng về file Excel bằng Power Query (1 người xem)

• Cá ngừ F1
• 13/8/21
• PowerQuery

Trả lời 11 Đọc 3K Hôm qua, lúc 21:35 ptm0412 SodokuX nhờ Copilot trợ giúp (1 người xem)

• SA_DQ
• Hôm qua, lúc 14:14
• Chơi Game với Excel

Trả lời 0 Đọc 39 Hôm qua, lúc 14:14 SA_DQ TaxCode v4.36 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 21 Đọc 3K Hôm qua, lúc 14:05 HeSanbi A File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp (1 người xem)

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 21 Đọc 6K Hôm qua, lúc 11:20 adua29 A

• Dán lên cao

Phần mềm quản lý kho chuyên nghiệp BS Silver (1 người xem)

• Nguyễn Duy Tuân
• 1/10/12
• BLUESOFTS: A-Excel, A-Tools

2 Trả lời 131 Đọc 46K Hôm qua, lúc 08:54 Nguyễn Duy Tuân Sản phẩm từ Python với sự giúp đỡ của Copilot (1 người xem)

• • 
  • 

• Maika8008
• 25/2/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 22 Đọc 606 Thứ hai lúc 13:57 SA_DQ T Xin đoạn code để gửi mail hàng loạt có đính kèm file PDF

• tuquyen1711
• Chủ nhật lúc 22:26
• Macro4.0 và Dialog Sheet 5.0

Trả lời 1 Đọc 112 Thứ hai lúc 09:25 Thóc Sama Năm mới cháu chúc mừng các bác và toàn thể gia đình GPE

• • 
  • 

• hongphuong1997
• Chủ nhật lúc 17:18
• Gặp gỡ Offline

Trả lời 2 Đọc 109 Thứ hai lúc 09:23 Thóc Sama

• 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

5 6 7 Trả lời 638 Đọc 95K Chủ nhật lúc 22:14 lephucueh L H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự

• • 

• hotboykute
• 22/2/26
• Những vấn đề chung

Trả lời 14 Đọc 344 Chủ nhật lúc 15:53 Maika8008 H Xin A/C Giúp Tách địa chỉ ra Tỉnh , Huyện, Xã, Ấp

• hoanghanh80
• 31/5/24
• Hàm và công thức Excel

Trả lời 10 Đọc 2K Thứ bảy lúc 22:26 dong.nguyen.hdkt D A Gửi tặng file excel kiểm phiếu bầu cử Đại biểu Quốc hội và Hội đồng nhân dân các cấp

• • 
  • 

• adua29
• 19/5/11
• Ứng dụng cho lĩnh vực khác

Trả lời 24 Đọc 29K Thứ bảy lúc 16:10 ngoclamthkg N Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn

• phuongnam366377
• Thứ bảy lúc 15:27
• Excel và các ngôn ngữ lập trình khác

Trả lời 0 Đọc 85 Thứ bảy lúc 15:27 phuongnam366377

• Đã giải quyết

FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 79 Đọc 31K Thứ bảy lúc 12:17 HeSanbi V Một Excel add-in vibe coding

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 22 Đọc 1K Thứ bảy lúc 09:19 Ttipit76 T phân lớp đắp trong san nền và đường giao thông

• vuanhdungtb
• 20/1/10
• Excel và Kỹ Thuật

Trả lời 19 Đọc 55K Thứ sáu lúc 23:03 hoangdung09x2 H Hàm EXACT

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 5 Đọc 9K Thứ năm lúc 20:46 ptm0412 TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL

• • 

• vn81206
• 2/2/23
• Cơ sở dữ liệu

Trả lời 70 Đọc 27K Thứ năm lúc 10:29 minhhueyb21 M 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

• SA_DQ 3
• Maika8008 2
• adua29 2
• ThuyMay93 1
• Tuanba1992 1
• fdxfdcfd 1
• lephucueh 1
• tuquyen1711 1
• Thóc Sama 1
• HeSanbi 1
• ptm0412 1
• chienminhanh 1

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

• Maika8008 3
• SA_DQ 2
• ThuyMay93 1
• adua29 1

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