กำหนดวันหมดอายุให้สมุดงานใน EXCEL

[saranya5993]

รบกวนสอบถามวิธีการ LCOK สมุดงานใน Excel โดยกำหนดเงื่อนไขเป็นวันหมดอายุ
กล่าวคือ ถ้าต้องการกำหนดวันหมดอายุ ของ สมุดงาน ที่ 1 ให้ไม่สามารถเปิดดูเนื้อหาได้หลังจากวันที่ 15/7/2020
ไม่ทราบว่าสามารถทำได้ไหม และต้องทำอย่างไรคะ???

[snasui]

สามารถทำได้ด้วยการเขียนโปรแกรมด้วย VBA เข้าไปจัดการครับ

กรณีต้องการใช้งาน VBA จำเป็นต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนสามารถนำมาสอบถามกันต่อครับ

[aroydee]

แบบนี้พอจะได้ไหม

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

[aroydee]

แต่ Code นี้เหมือนจะสั่งให้ลบไฟล์ด้วย
ให้สำรองไฟล์ไว้ ก่อนทดลองนะครับ

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

[snasui]

แบบนี้พอจะได้ไหม

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 มาบ้างแล้วครับ

[puayoh]

แบบนี้พอจะได้ไหม

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]

มีแหล่งให้ศึกษาจำนวนมากครับ เบื้องต้นดูจากที่นี่ซึ่งเป็นหลักการของการใช้งาน VBA https://docs.microsoft.com/en-us/office ... -reference

หากเป็นเฉพาะเรื่องสามารถ Search หาได้จาก Internet เช่นใน https://stackoverflow.com/ ครับ