snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
pro602
Member
Posts: 140 Joined: Sat Feb 06, 2016 9:58 am
Excel Ver: 2007,2010
#1
Post
by pro602 » Thu Aug 18, 2022 11:13 pm
ผมอยากให้เวลาเปิดไฟล์ Excel แล้วให้แสดงหน้าFormLogin เลย เมื่อใส่ User/Password แล้วค่อยแสดงSheet ต่างๆตามที่ให้สิทธิ แบบนี้สามารถทำได้ไหมครับ ผมลองใส่ Code ที่ Thisworkbook ตามด้านล่างนี้เวลาเปิดไฟล์ก็ยังไม่แสดงหน้า Userform สำหรับ Login ได้เลยครับ ขอคำแนะนำหน่อยครับผม
๊User:Test
Pass:111111
Code: Select all
Private Sub Workbook_Open()
frmLogin.Show
End Sub
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31032 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#2
Post
by snasui » Fri Aug 19, 2022 2:02 am
ผมทดลองแล้วมีการเปิด UserForm ให้ Login ตามที่เขียนไว้ครับ
กรณีที่เปิดแล้วโปรแกรมไม่แสดง UserForm แสดงว่าเครื่องนั้นมีการ Protect Macro เอาไว้ก็เป็นได้ หากนำไปเปิดที่เครื่องอื่น ก่อนที่จะเปิดไฟล์ให้ไปที่ File Explorer > คลิกขวาที่ไฟล์นั้น > Properties > เลือก Unblock > Apply > OK เสียก่อนครับ
หากเปิดในเครื่องที่เขียนไฟล์ กดแป้น Alt+F, T เพื่อเปิดหน้าต่าง Excel Options > Trust Center > Trust Center Settings > Macro Settings > กำหนดเป็น Enable > OK > OK
pro602
Member
Posts: 140 Joined: Sat Feb 06, 2016 9:58 am
Excel Ver: 2007,2010
#3
Post
by pro602 » Fri Aug 19, 2022 10:02 am
snasui wrote: Fri Aug 19, 2022 2:02 am
ผมทดลองแล้วมีการเปิด UserForm ให้ Login ตามที่เขียนไว้ครับ
กรณีที่เปิดแล้วโปรแกรมไม่แสดง UserForm แสดงว่าเครื่องนั้นมีการ Protect Macro เอาไว้ก็เป็นได้ หากนำไปเปิดที่เครื่องอื่น ก่อนที่จะเปิดไฟล์ให้ไปที่ File Explorer > คลิกขวาที่ไฟล์นั้น > Properties > เลือก Unblock > Apply > OK เสียก่อนครับ
หากเปิดในเครื่องที่เขียนไฟล์ กดแป้น Alt+F, T เพื่อเปิดหน้าต่าง Excel Options > Trust Center > Trust Center Settings > Macro Settings > กำหนดเป็น Enable > OK > OK
ผมทดลองปรับตั้งค่าตามที่อาจารย์ได้แนะนำมาพอเปิดไฟล์ขึ้นมาก็ยังแสดงหน้า Sheet main เหมือนเดิมครับไม่แสดงหน้า Userform เลย (Microsoft office2016) มีจุดไหนที่ผมต้องไปตรวจเช็คเพิ่มเติมครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31032 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#4
Post
by snasui » Fri Aug 19, 2022 1:12 pm
ลองเข้าไปเช็ค Event โดยการกดแป้น Alt+F11, Ctrl+G จากนั้นคีย์
?application.enableevents
> Enter แล้วสังเกตคำตอบว่าเป็น True หรือ False หากเป็น False ต้องกำหนดให้เป็น True โดยคีย์ตำแหน่งเดิมเป็น
application.enabnableevents = true
ครับ
pro602
Member
Posts: 140 Joined: Sat Feb 06, 2016 9:58 am
Excel Ver: 2007,2010
#5
Post
by pro602 » Fri Aug 19, 2022 1:29 pm
snasui wrote: Fri Aug 19, 2022 1:12 pm
ลองเข้าไปเช็ค Event โดยการกดแป้น Alt+F11, Ctrl+G จากนั้นคีย์
?application.enableevents
> Enter แล้วสังเกตคำตอบว่าเป็น True หรือ False หากเป็น False ต้องกำหนดให้เป็น True โดยคีย์ตำแหน่งเดิมเป็น
application.enabnableevents = true
ครับ
ผมลองทำตามตำแนะนำแล้วครับคำตอบที่ได้เป็น True ครับ...แต่เวลาเปิดไฟล์ก็ยังแสดงผลเหมือนเดิมครับ
ผมทำตามที่อาจารย์แนะนำถูกใช่ไหมครับ?
You do not have the required permissions to view the files attached to this post.
pro602
Member
Posts: 140 Joined: Sat Feb 06, 2016 9:58 am
Excel Ver: 2007,2010
#6
Post
by pro602 » Fri Aug 19, 2022 2:02 pm
pro602 wrote: Fri Aug 19, 2022 1:29 pm
snasui wrote: Fri Aug 19, 2022 1:12 pm
ลองเข้าไปเช็ค Event โดยการกดแป้น Alt+F11, Ctrl+G จากนั้นคีย์
?application.enableevents
> Enter แล้วสังเกตคำตอบว่าเป็น True หรือ False หากเป็น False ต้องกำหนดให้เป็น True โดยคีย์ตำแหน่งเดิมเป็น
application.enabnableevents = true
ครับ
ผมลองทำตามตำแนะนำแล้วครับคำตอบที่ได้เป็น True ครับ...แต่เวลาเปิดไฟล์ก็ยังแสดงผลเหมือนเดิมครับ
ผมทำตามที่อาจารย์แนะนำถูกใช่ไหมครับ?
ตอนที่จะ View Code ที่ Thisworkbook จะแสดงผลช้ามากครับ จะค้างเหมือนในรูปที่แนบมาแตถ้าต้อง View code ที่ชีทอื่นหรือที่ Module จะแสดงcode ได้ตามปกติ ปัญหานี้จะเกิดจากตรงไหนได้บ้างครับหรือผมมีการเขียน Code ผิดวิธีที่ Module
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31032 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#7
Post
by snasui » Fri Aug 19, 2022 10:22 pm
เป็นเช่นนี้ทุกไฟล์หรือเฉพาะไฟล์นี้ไฟล์เดียวครับ
ลองนำไปเปิดที่เครื่องอื่น ๆ ดูว่าเป็นเช่นนี้หรือไม่ หากเครื่องอื่นปกติแต่เป็นที่เครื่องนี้ก็จะได้มั่นใจว่าโปรแกรมจะมีปัญหา อาจะต้อง Repair หรือ Install ตัวสมบูรณ์ลงไปใหม่ครับ
pro602
Member
Posts: 140 Joined: Sat Feb 06, 2016 9:58 am
Excel Ver: 2007,2010
#8
Post
by pro602 » Sat Aug 20, 2022 9:19 am
snasui wrote: Fri Aug 19, 2022 10:22 pm
เป็นเช่นนี้ทุกไฟล์หรือเฉพาะไฟล์นี้ไฟล์เดียวครับ
ลองนำไปเปิดที่เครื่องอื่น ๆ ดูว่าเป็นเช่นนี้หรือไม่ หากเครื่องอื่นปกติแต่เป็นที่เครื่องนี้ก็จะได้มั่นใจว่าโปรแกรมจะมีปัญหา อาจะต้อง Repair หรือ Install ตัวสมบูรณ์ลงไปใหม่ครับ
ผมทดลองเปิดไฟล์เทียบการเข้า View Code เทียบ2ไฟล์ในเครื่องที่ผมใช้งานอยู่พบปัญหาในการมี View Code ที่ Thisworkbook แค่ไฟล์เดียวครับ คือไฟล์ทีผมแนบมาสอบถามปัญหาการใช้งานครับ รบกวนอาจารย์ช่วยแนะนำจุดที่ควรแก้ไขหรือสาเหตุของปัญหานี้ให้ผมหน่อยครับจะได้นำไปเป็นแนวทางในการนำไปเขียนใช้งาน สำหรับ codeที่ใช้งานในไฟล์นี้อยู่ส่วนใหญ่ก็จะเป็นการศึกษาและหาข้อมูลนำCode จากหลายๆตัวอย่างในเว็ปมาผสมกันใช้งานครับ
snasui
Site Admin
Posts: 31032 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#9
Post
by snasui » Sat Aug 20, 2022 8:50 pm
pro602 wrote: Sat Aug 20, 2022 9:19 am
รบกวนอาจารย์ช่วยแนะนำจุดที่ควรแก้ไขหรือสาเหตุของปัญหานี้ให้ผมหน่อยครับจะได้นำไปเป็นแนวทางในการนำไปเขียนใช้งาน สำหรับ codeที่ใช้งานในไฟล์นี้อยู่ส่วนใหญ่ก็จะเป็นการศึกษาและหาข้อมูลนำCode จากหลายๆตัวอย่างในเว็ปมาผสมกันใช้งานครับ
ผมจะไม่สามารถแนะนำได้หากผมเปิดแล้วไม่พบว่าเกิดปัญหาเดียวกัน และแม้จะพบปัญหาเดียวกันก็ไม่แน่ว่าจะแก้ไขได้ด้วย การที่โปรแกรมแสดงมุมมองของ Code ช้าไม่มี Option ให้กำหนดในเรื่องนี้ว่าให้เปิดเร็วหรือช้าแต่อย่างใดครับ ลองทดสอบสร้างไฟล์ใหม่โดยการ Copy Code เดิมไปใช้งานแล้วสังเกตดูว่าช้าเช่นเดิมหรือไม่ครับ