Snasui Excel Forum

ขอบพระคุณครับ คราวนี้ก็สบายใจแล้ว

:D การป้องกัน Structure ก็ตรงตัวอยู่แล้วคือป้องกันโครงสร้าง ข้อจำกัดก็เห็นได้ชัดจากเมนูที่เป็นสีเทาครับ

อาจารย์ครับ รบกวนถามเรื่องป้องกันการลบชีทต่อครับ

คือผมลองมั่ว เล่นเมนู Protect workbook ปรากฎว่ามันซ่อนเมนูการลบชีทไว้ได้ แต่ว่ามันจะมีผลต่อการทำงานในชีทตามปกติหรือเปล่าครับ อย่างเช่น จะจำกัดการทำงานบางอย่าง ฯลฯ

ผมลอง Protect workbook (ติ๊กที่ Structure) แล้วลองใช้งานดูยังไม่เจอปัญหา แต่ไม่แน่ใจว่าจะมีข้อจำกัดอื่นใดหรือเปล่าครับ

ขอบคุณมากครับอาจารย์ :o

ลองดูแล้วพูดได้คำเดียวว่า...ช็อก...ครับ งงเป็นที่ยิ่ง ถ้าอย่างนั้นผมจะกำชับพนักงานให้ระวังแทนครับ อย่าใช้งานไฟล์นอกเหนือจากที่ออกแบบไว้ให้ :shock:

:D การจัดการกับเมนูบน Ribbon ไม่สามารถใช้แต่เพียงลำพัง VBA ได้ครับ Code นั้นเป็น Code ที่จัดการกับ Excel 2003 ลงไปครับ

ตัวอย่างการจัดการกับ Ribbon ครับ http://www.mrexcel.com/forum/excel-questions/422513-how-disable-buttons-menus-excel-2007-ribbon-using-visual-basic-applications-code.html

Private Sub Workbook_Open()
   Sheets("Sheet1").Select
   Call DisableCommandBars
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call EnableCommandBars
End Sub

Sub DisableCommandBars()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = False
    Next
End Sub

Sub EnableCommandBars()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        Cbar.Enabled = True
    Next
End Sub

อาจารย์ครับ
ผมต้องการเขียนโค้ดป้องกันผู้ใช้งานเผลอลบแผ่นงานโดยบังเอิญ ลองเอาโค้ดปิดเมนูเวลาคลิกขวาที่แท็บชีทของอาจารย์มาใช้ดู ได้ผลดีครับ (โค้ดตามด้านล่าง) แต่เมนูลบชีทที่ ribbon ยังสามารถเข้าถึงได้ ควรปรับโค้ดอย่างไรดีครับ เพื่อป้องกันการลบชีทโดยเลือกเมนูจากริบบอนด้วย

ที่ [c]ThisWorkbook[/c] คีย์โค้ด

[code]Private Sub Workbook_Open()
Sheets("Sheet1").Select
Call DisableCommandBars
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call EnableCommandBars
End Sub[/code]

ที่ [c]Module[/c] ปกติ คีย์

[code]Sub DisableCommandBars()
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = False
Next
End Sub

Sub EnableCommandBars()
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub[/code]

ผมใช้ Microsoft Excel 2010 ครับ

ขอบคุณมากครับ