:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

Re: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#9

by snasui » Sat Aug 20, 2022 8:50 pm

pro602 wrote: Sat Aug 20, 2022 9:19 am รบกวนอาจารย์ช่วยแนะนำจุดที่ควรแก้ไขหรือสาเหตุของปัญหานี้ให้ผมหน่อยครับจะได้นำไปเป็นแนวทางในการนำไปเขียนใช้งาน สำหรับ codeที่ใช้งานในไฟล์นี้อยู่ส่วนใหญ่ก็จะเป็นการศึกษาและหาข้อมูลนำCode จากหลายๆตัวอย่างในเว็ปมาผสมกันใช้งานครับ
:D ผมจะไม่สามารถแนะนำได้หากผมเปิดแล้วไม่พบว่าเกิดปัญหาเดียวกัน และแม้จะพบปัญหาเดียวกันก็ไม่แน่ว่าจะแก้ไขได้ด้วย การที่โปรแกรมแสดงมุมมองของ Code ช้าไม่มี Option ให้กำหนดในเรื่องนี้ว่าให้เปิดเร็วหรือช้าแต่อย่างใดครับ ลองทดสอบสร้างไฟล์ใหม่โดยการ Copy Code เดิมไปใช้งานแล้วสังเกตดูว่าช้าเช่นเดิมหรือไม่ครับ

Re: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#8

by pro602 » Sat Aug 20, 2022 9:19 am

snasui wrote: Fri Aug 19, 2022 10:22 pm :D เป็นเช่นนี้ทุกไฟล์หรือเฉพาะไฟล์นี้ไฟล์เดียวครับ

ลองนำไปเปิดที่เครื่องอื่น ๆ ดูว่าเป็นเช่นนี้หรือไม่ หากเครื่องอื่นปกติแต่เป็นที่เครื่องนี้ก็จะได้มั่นใจว่าโปรแกรมจะมีปัญหา อาจะต้อง Repair หรือ Install ตัวสมบูรณ์ลงไปใหม่ครับ
ผมทดลองเปิดไฟล์เทียบการเข้า View Code เทียบ2ไฟล์ในเครื่องที่ผมใช้งานอยู่พบปัญหาในการมี View Code ที่ Thisworkbook แค่ไฟล์เดียวครับ คือไฟล์ทีผมแนบมาสอบถามปัญหาการใช้งานครับ รบกวนอาจารย์ช่วยแนะนำจุดที่ควรแก้ไขหรือสาเหตุของปัญหานี้ให้ผมหน่อยครับจะได้นำไปเป็นแนวทางในการนำไปเขียนใช้งาน สำหรับ codeที่ใช้งานในไฟล์นี้อยู่ส่วนใหญ่ก็จะเป็นการศึกษาและหาข้อมูลนำCode จากหลายๆตัวอย่างในเว็ปมาผสมกันใช้งานครับ

Re: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#7

by snasui » Fri Aug 19, 2022 10:22 pm

:D เป็นเช่นนี้ทุกไฟล์หรือเฉพาะไฟล์นี้ไฟล์เดียวครับ

ลองนำไปเปิดที่เครื่องอื่น ๆ ดูว่าเป็นเช่นนี้หรือไม่ หากเครื่องอื่นปกติแต่เป็นที่เครื่องนี้ก็จะได้มั่นใจว่าโปรแกรมจะมีปัญหา อาจะต้อง Repair หรือ Install ตัวสมบูรณ์ลงไปใหม่ครับ

Re: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#6

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 :D ลองเข้าไปเช็ค 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
Attachments
code.png
code.png (70.83 KiB) Viewed 107 times

Re: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#5

by pro602 » Fri Aug 19, 2022 1:29 pm

snasui wrote: Fri Aug 19, 2022 1:12 pm :D ลองเข้าไปเช็ค Event โดยการกดแป้น Alt+F11, Ctrl+G จากนั้นคีย์ ?application.enableevents > Enter แล้วสังเกตคำตอบว่าเป็น True หรือ False หากเป็น False ต้องกำหนดให้เป็น True โดยคีย์ตำแหน่งเดิมเป็น application.enabnableevents = true ครับ
ผมลองทำตามตำแนะนำแล้วครับคำตอบที่ได้เป็น True ครับ...แต่เวลาเปิดไฟล์ก็ยังแสดงผลเหมือนเดิมครับ
ผมทำตามที่อาจารย์แนะนำถูกใช่ไหมครับ?
Attachments
result.png
result.png (123.82 KiB) Viewed 110 times

Re: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#4

by snasui » Fri Aug 19, 2022 1:12 pm

:D ลองเข้าไปเช็ค Event โดยการกดแป้น Alt+F11, Ctrl+G จากนั้นคีย์ ?application.enableevents > Enter แล้วสังเกตคำตอบว่าเป็น True หรือ False หากเป็น False ต้องกำหนดให้เป็น True โดยคีย์ตำแหน่งเดิมเป็น application.enabnableevents = true ครับ

Re: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#3

by pro602 » Fri Aug 19, 2022 10:02 am

snasui wrote: Fri Aug 19, 2022 2:02 am :D ผมทดลองแล้วมีการเปิด 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) มีจุดไหนที่ผมต้องไปตรวจเช็คเพิ่มเติมครับ
Attachments
macro setting.png
macro setting.png (77.08 KiB) Viewed 119 times

Re: ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#2

by snasui » Fri Aug 19, 2022 2:02 am

:D ผมทดลองแล้วมีการเปิด 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

ขอคำแนะนำ VBA code เมื่อเปิดไฟล์ให้แสดงหน้าUserformเพื่อLoginเลย

#1

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
Attachments
Test open userform.xlsm
(496.36 KiB) Downloaded 20 times

Top