Snasui Excel Forum

Posted: **Fri Feb 04, 2011 10:32 pm**

ผมได้ลองทำตามใน Forum เก่าๆ-ของอาจารย์ ในหัวข้อ ที่ไม่ให้มีเมนูบาร์ ใน EXCEL โดยใช้คำสั่ง1. ที่ ThisWorkbook ใช้ Code ตามด้านล่างครับ
ที่ This workbook ใส่โค้ด
Private Sub Workbook_BeforeClose(Cancel As Boolean)
EnableCommandBars
End Sub

Private Sub Workbook_Open()
DisableCommandBars
End Sub
2. ที่ Module ปกติใช้ 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

****หลังนั้นลองเปิดไฟล์ดู เมนูบาร์ต่างๆ ใน EXCEL หายไปครับ แต่พอลองลบโค้ดต่างๆ เหล่านี้ออกไป เมนูบาร์ต่างๆ ก็ไม่กลับมาครับ เปิดไฟล์ EXCEL อื่นๆ ก็ไม่มีเมนูบาร์ครับ
ผมจึงเรียนสอบถามอาจารย์ ถึงวิธีเอาเมนูบาร์กลับมาครับ

ข้อ 2. จะสอบถามถึงวิธี DISABLE และ ENABLE ออบเจ็กต์ ใน EXCEL และ VBA ครับ
2.1 กำหนดเงื่อนไขใน cell EXCEL เพื่อที่จะ DISABLE และ ENABLE ออบเจ็กต์ ประเภทปุ่มต่างๆ
2.2 กำหนดโค้ดใน VBA เพื่อที่จะ DISABLE และ ENABLE ออบเจ็กต์ ประเภทปุ่มต่างๆ
ขอขอบคุณล่วงหน้าครับ

Posted: **Fri Feb 04, 2011 10:58 pm**

Code พวกนั้นจะคืนพวก Command Bar กลับมาให้เองหลังจากที่ปิดไฟล์ ถ้าลบ Code ออกไปคุณ Panuwat ก็ไม่ได้ Command Bar คืนก็เป็นเรื่องปกติครับ ถ้าจะให้คืนมาก็ต้องใส่ Code เข้าไปใหม่แล้วค่อยปิดไฟล์

กรณีที่ต้องการ Disable, Enable Object สามารถดูตัวอย่างได้ที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3&t=395&start=10

ซึ่งจะอยู่ในรูปแบบ

Object.Enabled = True <== Enable
Object.Enabled = False <== Disable

กรณีอ้างอิงกับค่าในเซลล์ก็ต้องบอกโปรแกรมว่าให้ดูจากเซลล์ใด ยกตัวอย่างเช่นให้ดูจากชีท Sheet1 เซลล์ A1 หากมีค่าเป็น True ก็ให้แสดง Enable Object Combobox1 สามารถเขียน If เข้าไปตรวจสอบได้ตามด้านล่างครับ

Code: Select all

if WorkSheets("Sheet1").Range("A1") = True Then
   ComboBox1.Enabled = True
End if

Snasui Excel Forum

เรียนถามท่านอาจารย์-ปัญหา VBA

เรียนถามท่านอาจารย์-ปัญหา VBA

Re: เรียนถามท่านอาจารย์-ปัญหา VBA