ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์

[yodpao.b]

ขอสอบถามเกี่ยวการบันทึกผู้ใช้งาน ไฟล์
ในบันทึกก็จะมี ชื่อผู้ใช้งาน วันที่เวลาที่เปิดปิดไฟล์ รวมถึง password เข้าใช้งานของแต่ละคนไม่เกิน 5 คน

คำถาม
1.password จะไม่อยู่ในบันทึก แต่จะอยุ่ใน code แทน ได้ไหมครับ
2.ในบันทึกที่แสดง ชื่อผู้ใช้งาน วันที่เวลาที่เปิดปิดไฟล์ พอถึง 100000 บรรทัด
สามารถทำเหมือนการ บันทึกภาพเมือ่ไฟล์เต็ม
กล่าวคือ ลบบรรทัดเก่าแล้วนำของใหม่ใส่แทนได้ไหมครับ

ถ้า 2 คำถาม ทำได้ ผมก็จะลองทำดู
ขอบคุณครับ

[snasui]

สามารถทำได้ทุกสิ่งที่ถามมาครับ

[yodpao.b]

ขอบคุณครับ

[yodpao.b]

โพสต์นี้ทำเสร็จแล้วครับ
รอดูว่าจะมีปัญหาไหม

[yodpao.b]

0.JPG

จากรูปเมื่อ คลิก cancel เครื่องจากถามว่า Save
ไม่ต้องการให้ขึ้นให้ปล่อยผ่านไป หรือเขียน code ไมให้ Save ครับ
ต้องเขียนอย่างไร

Code: Select all

Private Sub CommandButton3_Click()
Unload Me
ActiveWorkbook.Close
End Sub

[puriwutpokin]

ปรับโค้ดไปไว้ที่ ThisWorkbook Event ครับ

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

[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 มีไว้ทำไรครับ

[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 มีไว้ทำไรครับ

[snasui]

ค่าตั้งต้นของโปรแกรมคือ True เป็นการเปิดการแจ้งเตือนผู้ใช้หากมีการทำอะไรที่ควรเตือนเช่น ลบชีต เป็นต้น

การกำหนดเป็น False คือปิดการแจ้งเตือน หากปิดไปแล้วไม่เปิดก็หมายความว่ายอมรับความเสี่ยงได้ในกรณีที่โปรแกรมจะไม่ฟ้องเตือนใด ๆ ที่เป็นการทำงานแบบเสี่ยงต่อความเสียหาย

[yodpao.b]

ผมกำลังมอง Workbook_Close อยู่ เพื่อที่เวลาปิดไฟล์ แล้วให้วันเวลาไปบันทีกค่า ในบันทึกการใช้งาน
หาไม่เจอ พอดีนึกได้ มีผู้แนะนำในโพสต์ เกี่ยวกับ Workbook_BeforeClose(Cancel As Boolean)
จึงลองนำมาใช้ ....ใช้ได้ตามต้องการครับ
ขอบคุณมากครับ