ฉันมีมาโครหลายชุดในรูปแบบที่ฉันสร้างขึ้นเพื่อให้ผู้ใช้ในสาขาของฉันใช้ เมื่อพวกเขาเสร็จสิ้นเอกสารและต้องการส่งไปยังคนที่เหมาะสมฉันได้สร้างมาโคร FINISH สิ่งนี้จะทำความสะอาดเอกสารสำหรับพวกเขาโดยทั่วไปลดขนาดไฟล์ลงเหลือประมาณ 50KB จาก 2MB + มาโคร (ด้านล่าง) จะทำสิ่งต่อไปนี้:
A. ) ลบปุ่มควบคุมที่ฉันใส่ไว้ในแบบฟอร์มเพื่อให้พวกเขาใช้เมื่อพวกเขากำลังป้อนข้อมูลของพวกเขา ปุ่มเหล่านี้คือ; ตรึงข้อมูล - แปลงสูตรทั้งหมดในเอกสารให้เป็นข้อความคงที่ บันทึกไฟล์ - ให้ชื่อเฉพาะตามเนื้อหาของเซลล์ในเอกสาร FINISH - ปุ่มที่สอดคล้องกับแมโคร FINISH
B. ) ลบแท็บที่มีข้อมูลดรอปดาวน์อยู่
เมื่อฉันพยายามใช้ปุ่ม FINISH เพื่อเรียกใช้แมโครฉันได้รับข้อความที่ระบุว่า "ไม่สามารถเรียกใช้แมโคร" รูปแบบการประเมิน - 2.xlsm'Button11_Click ' แมโครอาจไม่พร้อมใช้งานในสมุดงานนี้หรือแมโครทั้งหมดอาจถูกปิดใช้งาน "
มาโครในสมุดงาน อย่างไรก็ตามเมื่อฉันดึงรายการมาโครขึ้นมามันจะแสดงให้เห็นอย่างชัดเจนว่ามาโครนั้นอยู่ในสมุดงานนั้น
Sub Finish()
Application.DisplayAlerts = False
'
' Finish Macro
' Finish Document For Sending out
'
'
Sheets("DropDownData").Select
ActiveWindow.SelectedSheets.Delete
ActiveSheet.Shapes.Range(Array("Button 10")).Select
Selection.Delete
Selection.Cut
ActiveSheet.Shapes.Range(Array("Button 11")).Select
Selection.Delete
Selection.Cut
ActiveSheet.Shapes.Range(Array("Button 9")).Select
Selection.Delete
Selection.Cut
Range("A6").Select
Application.DisplayAlerts = True
End Sub
มีใครสามารถช่วยได้บ้าง