คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
สามารถทำได้ด้วยการเขียนโปรแกรมด้วย VBA เข้าไปจัดการครับ
ติดตรงไหนสามารถนำมาสอบถามกันต่อครับCode: Select all
Sub End_Time()
With ThisWorkbook
Application.DisplayAlerts = False
If Date >= 43831 Then
.ChangeFileAccess xlReadOnly
Kill .FullName
ThisWorkbook.Close SaveChanges:=False
End If
End With
End Sub
Code: Select all
Sub End_Time()
With ThisWorkbook
Application.DisplayAlerts = False
If Date >= 63715 Then
.ChangeFileAccess xlReadOnly
'Kill.FullName
ThisWorkbook.Close SaveChanges:=False
End If
End With
End Sub
aroydee wrote: Wed Jul 01, 2020 5:16 pm แบบนี้พอจะได้ไหมCode: Select all
Sub End_Time() With ThisWorkbook Application.DisplayAlerts = False If Date >= 43831 Then .ChangeFileAccess xlReadOnly Kill .FullName ThisWorkbook.Close SaveChanges:=False End If End With End Sub
ขอบคุณสำหรับการแบ่งปัน 
ขออภัยที่แจ้งว่ากรณีเป็น VBA เลือกตอบเป็น Link ให้ไปศึกษาแทนตอบเป็น Code ทั้งนี้เพราะควรให้ผู้ถามได้โพสต์สิ่งที่ตัวเองได้ทดลองทำมาเองก่อน หากผู้ถามสามารถนำ Code มาถามได้แสดงว่าพอมีพื้นฐานเกี่ยวกับการเขียน Code มาบ้างแล้วครับพอจะมีลิงค์สอน หรือวิธีให้ศึกษาเพิ่มเติมไหมครับsnasui wrote: Thu Jul 02, 2020 7:03 amaroydee wrote: Wed Jul 01, 2020 5:16 pm แบบนี้พอจะได้ไหมCode: Select all
Sub End_Time() With ThisWorkbook Application.DisplayAlerts = False If Date >= 43831 Then .ChangeFileAccess xlReadOnly Kill .FullName ThisWorkbook.Close SaveChanges:=False End If End With End Sub
มีแหล่งให้ศึกษาจำนวนมากครับ เบื้องต้นดูจากที่นี่ซึ่งเป็นหลักการของการใช้งาน VBA https://docs.microsoft.com/en-us/office ... -reference