วิธีซ่อนแผ่นงานเฉพาะโดยอัตโนมัติเมื่อเปิดไฟล์ Excel

หากคุณต้องการซ่อนแผ่นงานบางแผ่นโดยอัตโนมัติเมื่อมีคนเปิดสมุดงานคุณจะจัดการกับงานนี้ใน Excel ได้อย่างไร?

ซ่อนแผ่นงานเฉพาะโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA

ซ่อนแผ่นงานบางแผ่นโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA

ซ่อนแผ่นงานเฉพาะโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA

ถ้าคุณต้องการซ่อนเวิร์กชีตหนึ่งแผ่นเมื่อเปิดเวิร์กบุ๊กคุณสามารถใช้รหัส VBA ต่อไปนี้

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ทางด้านซ้าย โครงการ -VBAProject บานหน้าต่างให้ดับเบิลคลิกที่ไฟล์ สมุดงานนี้ เพื่อเปิดโมดูลเปล่าจากนั้นคัดลอกและวางโค้ดต่อไปนี้ลงในโมดูล:

รหัส VBA: ซ่อนแผ่นงานเฉพาะเมื่อเปิดสมุดงาน:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

หมายเหตุ: ในโค้ดด้านบน Sheet5 คือชื่อแผ่นงานที่คุณต้องการซ่อนเมื่อเปิด โปรดเปลี่ยนตามความต้องการของคุณ

3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้แล้วคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานนี้เป็น สมุดงานที่เปิดใช้งานแมโคร Excel รูปแบบดูภาพหน้าจอ:

4. เมื่อคุณเปิดสมุดงานนี้ในครั้งต่อไปโปรดคลิก เปิดใช้งานเนื้อหา ประการแรกจากนั้นแผ่นงานระบุของคุณจะถูกซ่อนโดยอัตโนมัติ

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

ซ่อนแผ่นงานบางแผ่นโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA

หากจำเป็นต้องซ่อนแผ่นงานหลายแผ่นเมื่อเปิดสมุดงานรหัสต่อไปนี้สามารถช่วยคุณได้

1. ขั้นแรกคุณควรแสดงรายการชื่อแผ่นงานที่คุณต้องการซ่อนเมื่อเปิดอยู่ในรายการของแผ่นงานจากนั้นไปที่ กล่องชื่อ เพื่อตั้งชื่อช่วง -ชีตเพื่อซ่อนและกด เข้าสู่ สำคัญดูภาพหน้าจอ:

2. จากนั้นกดปุ่ม ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. ทางด้านซ้าย โครงการ -VBAProject บานหน้าต่างให้ดับเบิลคลิกที่ไฟล์ สมุดงานนี้ เพื่อเปิดโมดูลเปล่าจากนั้นคัดลอกและวางโค้ดต่อไปนี้ลงในโมดูล:

รหัส VBA: ซ่อนแผ่นงานเฉพาะบางอย่างเมื่อเปิดสมุดงาน:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

หมายเหตุ: ในโค้ดด้านบน ชีตเพื่อซ่อน คือชื่อช่วงที่คุณสร้างในขั้นตอนที่ 1

4. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้แล้วคลิก เนื้อไม่มีมัน > บันทึกเป็น เพื่อบันทึกสมุดงานนี้เป็น สมุดงานที่เปิดใช้งานแมโคร Excel รูปแบบ. จากนี้เป็นต้นไปเมื่อคุณเปิดสมุดงานนี้ในครั้งต่อไปเวิร์กชีตที่ระบุจะถูกซ่อนโดยอัตโนมัติ