Snasui Excel Forum

ขอบคุณมากครับ ทำได้แล้วครับ url ที่แนะนำมาตามที่ต้องการเลยครับ

:D ไม่เข้าใจครับ หากเป็นกรณีต้องการเปิดไฟล์ที่มีการป้องกันการเปิดโดยใช้ Macro ลอง Search หาจาก Internet เนื่องจากการทำเช่นนั้น อาจจะเป็นการละเมิดทรัพย์สินทางปัญญาของผู้อื่นได้ครับ

หากเป็นการ Protect File แบบใส่ Password ให้ลองดูกระทู้นี้ครับ ซึ่งเป็นตัวอย่างการเขียน Code ให้ใส่ Password และการปลด Password ดูต้วอย่างที่นี่ครับ http://topicstock-tech.pantip.com/tech/software/topicstock/2008/10/SA2661910/SA2661910.html#6

ได้แล้วครับ ขอบพระคุณเป็นอย่างสูงเลยครับ ยังไงก็ถามแล้วขอถามต่อเรื่องเดิมอีกนิดนะครับ
แล้วถ้าเกิดกรณแบบไฟล์เมื่อกี้แต่เป็นกรณีที่เราเซฟไฟล์แบบที่เวลาเปิดต้องใส่ password
ที่excel 2007เลือกตรง save as แล้วเลือก general แล้วให้ใส่ password ล่ะครับจะต้องใช้ code
แบบไหนครับ
ยังไงขอบคุณอีกคร้งนะครับสำหรับคำแนะนำมีประโยชน์กับผมมากเลยครับ

Private Sub Workbook_Open()
    Worksheets("Sheet1").Unprotect
    ActiveWorkbook.CustomViews("222").Show
    Worksheets("Sheet1").Protect
End Sub

:D กรณีมีการซ่อนคอลัมน์ ซ่อนบรรท้ดแล้ว Protect ต้องไปปลด Protect ออกก่อนครับ

ตัวอย่างเช่น Code ด้านล่าง
[code]Private Sub Workbook_Open()
Worksheets("Sheet1").Unprotect
ActiveWorkbook.CustomViews("222").Show
Worksheets("Sheet1").Protect
End Sub
[/code]

[attachment=0]Book1.xlsm[/attachment]ตามไฟล์ที่แนบมานี่ครับตอนยังไม่ได้ protect sheet มาโครใช้งานได้ครับแต่พอ protect sheet เปิดไฟล์มาแล้วไม่ทำงานครับ
ยังไงรบกวนดูให้หน่อยนะครับ

:D ส่งไฟล์ตัวอย่างมาดู เพื่อจะได้ช่วยหาสาเหตุครับ :P

ลองทำได้แล้วครับ แต่พอ protect sheet แล้ว vba กลับไม่ทำงานครับ

Private Sub Workbook_Open()
    ActiveWorkbook.CustomViews("TestV").Show
End Sub

:D ประการแรกต้องไปสร้าง Custom View เสียก่อนครับ โดย
1. ไปยังพื้นที่ที่ต้องการให้[color=#0000FF]แสดงเมื่อเปิดไฟล์[/color]
2. เข้าเมนู View > Custom View > Add > กรอกชื่อ View ที่ต้องการ สมมุติชื่อ [color=#0000FF]TestV[/color]
3. กดแป้น Alt+F11
4. Double Click ThisWorkbook > วาง Code ตามด้านล่าง > Save
[code]Private Sub Workbook_Open()
ActiveWorkbook.CustomViews("TestV").Show
End Sub[/code]

ไม่ทราบว่าพอจะมีตัวอย่างของ code ที่ใช้ custom view ใหมครับ

:D View การแสดงหน้าใด ๆ ใน Excel เมื่อเปิดไฟล์จะขึ้นอยู่กับว่าเรา Save โปรแกรมครั้งสุดท้ายที่หน้าใดครับ การจะให้เปิดมาแล้วไปยัง View ที่ต้องการคงต้องพึ่งพา VBA เนื่องจากไม่มี Option ในการกำหนดหน้า View เพื่อตั้งเป็น Default ครับ :mrgreen:

Excell 2007 เราสามารถ ที่จะกำหนด default ของ custom view ได้ไหมครับ เช่นในกรณีที่ทำงานในโปรไฟล์ A แล้วเซฟพอเปิดขขึ้นมาใหม่
จะเป็นหน้าของ โปรไฟล์ B ที่เราตั้งเป็น default ไว้น่ะครับ ยังไงรบกวนด้วยนะครับคือผมเป็นมือใหม่น่ะครับ
ขอบคุณครับ