Page 1 of 1
ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Fri Jun 12, 2020 4:27 am
by yodpao.b
ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
ในบันทึกก็จะมี ชื่อผู้ใช้งาน วันที่เวลาที่เปิดปิดไฟล์ รวมถึง password เข้าใช้งานของแต่ละคนไม่เกิน 5 คน
คำถาม
1.password จะไม่อยู่ในบันทึก แต่จะอยุ่ใน code แทน ได้ไหมครับ
2.ในบันทึกที่แสดง ชื่อผู้ใช้งาน วันที่เวลาที่เปิดปิดไฟล์ พอถึง 100000 บรรทัด
สามารถทำเหมือนการ บันทึกภาพเมือ่ไฟล์เต็ม
กล่าวคือ ลบบรรทัดเก่าแล้วนำของใหม่ใส่แทนได้ไหมครับ
ถ้า 2 คำถาม ทำได้ ผมก็จะลองทำดู
ขอบคุณครับ
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Fri Jun 12, 2020 7:38 am
by snasui
สามารถทำได้ทุกสิ่งที่ถามมาครับ
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Fri Jun 12, 2020 2:08 pm
by yodpao.b
ขอบคุณครับ
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Fri Jun 12, 2020 9:14 pm
by yodpao.b
โพสต์นี้ทำเสร็จแล้วครับ
รอดูว่าจะมีปัญหาไหม
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Fri Jun 12, 2020 10:14 pm
by yodpao.b
0.JPG
จากรูปเมื่อ คลิก cancel เครื่องจากถามว่า Save
ไม่ต้องการให้ขึ้นให้ปล่อยผ่านไป หรือเขียน code ไมให้ Save ครับ
ต้องเขียนอย่างไร
Code: Select all
Private Sub CommandButton3_Click()
Unload Me
ActiveWorkbook.Close
End Sub
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Fri Jun 12, 2020 11:17 pm
by puriwutpokin
ปรับโค้ดไปไว้ที่ ThisWorkbook Event ครับ
Code: Select all
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Sat Jun 13, 2020 1:18 am
by yodpao.b
ขอโทษผมลืมอธิบายขั้นตอน
แต่ตอนนี้ใช้ได้แล้วครับ
ใช้โคดที่ให้มาดังนี้
Code: Select all
Private Sub CommandButton1_Click()
Unload Me
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
ขอสอบถามเพิ่ม
มี บรรทัดนี้ Application.DisplayAlerts = False แล้ว
บรรทัดนี้ Application.DisplayAlerts = True มีไว้ทำไรครับ
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Sat Jun 13, 2020 1:19 am
by yodpao.b
ขอโทษผมลืมอธิบายขั้นตอน
แต่ตอนนี้ใช้ได้แล้วครับ
ใช้โคดที่ให้มาดังนี้
Code: Select all
Private Sub CommandButton1_Click()
Unload Me
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
ขอสอบถามเพิ่ม
มี บรรทัดนี้ Application.DisplayAlerts = False แล้ว
บรรทัดนี้ Application.DisplayAlerts = True มีไว้ทำไรครับ
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Sat Jun 13, 2020 7:29 am
by snasui
ค่าตั้งต้นของโปรแกรมคือ True เป็นการเปิดการแจ้งเตือนผู้ใช้หากมีการทำอะไรที่ควรเตือนเช่น ลบชีต เป็นต้น
การกำหนดเป็น False คือปิดการแจ้งเตือน
หากปิดไปแล้วไม่เปิดก็หมายความว่ายอมรับความเสี่ยงได้ในกรณีที่โปรแกรมจะไม่ฟ้องเตือนใด ๆ ที่เป็นการทำงานแบบเสี่ยงต่อความเสียหาย
Re: ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
Posted: Sat Jun 13, 2020 7:54 am
by yodpao.b
ผมกำลังมอง Workbook_Close อยู่ เพื่อที่เวลาปิดไฟล์ แล้วให้วันเวลาไปบันทีกค่า ในบันทึกการใช้งาน
หาไม่เจอ พอดีนึกได้ มีผู้แนะนำในโพสต์ เกี่ยวกับ Workbook_BeforeClose(Cancel As Boolean)
จึงลองนำมาใช้ ....ใช้ได้ตามต้องการครับ
ขอบคุณมากครับ