เอาผลจากคอลัมน์มาเขียนคำสั่ง VBA ให้สร้างอีก 1 คอลัมน์

[aroydee]

อาจารย์ครับ
ถ้าเราเปิดแฟ้มไว้ 3 แฟ้ม แฟ้มปัจจุบันคือ BBB แล้วเราจะรัน VBA ที่ทำงานกับแฟ้ม AAA
เราจะเขียน Code อย่างไรเพื่อเรียกแฟ้ม AAA ขึ้นมาเป็น Active ครับ

Code: Select all

    Workbooks("AAA.xlsm").Select
    Workbooks("AAA.xlsm").Open true

[snasui]

การ Active Workbook ใด ๆ สามารถใช้ Activate เช่น Workbooks("AAA.xlsm").Activate ครับ

[aroydee]

ขอบคุณครับ

[aroydee]

ขอวิธีแก้ไขชีทที่โดนป้องกันการ Save มาหน่อยครับ
นี่คือ Code คำสั่งที่ป้องกันการ Save ที่เจอใน VBA ครับ

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "Cannot to save file"
End Sub

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveSheet.Name <> "Sheet1" Then
        Cancel = True
        MsgBox "Cannot to save file"
    End If
End Sub

[aroydee]

อาจารย์ครับ...
ไฟล์งานนามสกุล .xlsb ที่ป้องกันการ Save และ VBA ก็ถูกล็อครหัสไว้ละครับ
มีวิธีที่จะ Save ไฟล์โดยเปลี่ยนเป็น .xlsm ได้ไหมครับ

[snasui]

เมื่อมีการ Lock รหัสป้องกันการ Save As หากจะใช้วิธีการ Save As ก็ต้องถอดรหัสก่อนครับ

สำหรับการถอดรหัสผมขออภัยที่จะขอไม่แจ้งวิธีการ คงต้องหาวิธีการจากแหล่งอื่น ๆ ครับ

ถ้าจะลองก็เปลี่ยนชื่อไฟล์ด้วยการเปลี่ยนนามสกุลไฟล์เอง แต่ไม่รับรองว่าจะทำได้ และแม้ทำได้ก็ไม่รับรองว่าไฟล์นั้นจะสมบูรณ์ใช้การได้ครับ

[aroydee]

การซ่อนเนื้อหาทุกอย่างใน Sheet แบบในรูปภาพนี้ ทำได้โดยวิธีการใด บ้างครับ

[snasui]

ถ้าจะทำเลียนแบบภาพ สามารถยกเลิกการแสดงหัวคอลัมน์+หัวบรรทัดแล้วระบายสีครับ