การปิดใช้งานการ save as

[Xengsue]

สวัสดี ครับ
อาจารย์ และ ท่านผู้รู้
ผมมีเรื่องคาใจมาถามเกี่ยวกับการ save as ใน excel ครับ
คือผมมีไฟล์ข้อมูลที่ผมสร้างมาไว้กรอกข้อมูลเก็บรักษาเอาไว้ 2-3 ไฟล์ โดยผมจะ link ข้อมูลเข้าหากันทั้งหมด
แต่หัวหน้าทีมผมชอบมาขอข้อมูลผม แต่เขาจะมาถูกช่วงที่ผมไม่ได้ไปทำงาน
เขาก็เลยต้องมาเอาข้อมูลด้วยตัวเอง แต่เขาไม่ชอบ copy file แต่กลับใช้วิธีที่เปิดไฟล์ขื้นมาเซ็คดูก่อนว่าใช่หลือไม่
ถ้าใช่แล้วเขาก็ save as ลงใส่ usb ไปเลย
วิธีนี้ทำให้ link ที่ผมได้ link ไว้ได้เปลี่ยนต้นทางไปที่ usb แทน แล้วพอเขาเอา usb ออกไปทำให้ link ผมเสียหมดเลย
เขาทำแบบนี้ทุกครั้งแล้วผมก็ต้องมานั่งแก้ไข link ใหม่ทุกครั้ง ทำให้ผมขี้เกียดไปเลย
ฉะนั้น ผมจึ่งมาขอคำแนะนำหน่อยครับว่าจะทำยังไงดี
ที่ผมคิดตอนนี้คืออยากปิดไม่ให้มี save as โชว์ที่ไหนให้เขาได้ทำแบบนั้นอีกเลย
ผมเลยมาถามว่าพอมีวิธีปิด save as ไปเลยได้ไหม หลือ ว่าจะมีวิธีอื่นที่ดีกว่านี้ ครับ

ขอรบกวนหน่อย ครับ
ขอบคุณมากครับ

[snasui]

กรณีที่ Link เปลี่ยนไปจากการ Save As สามารถแก้ได้ไม่ยากครับ เราสามารถใช้การ Edit Links เพื่อกลับมา Link กับไฟล์เดิมในเครื่องของเราได้ครับ

เปิดไฟล์ปลายทางที่ Link ข้อมูลมาจากไฟล์อื่น > เข้าเมนู Edit Links > เลือกไฟล์ต้นทาง > Change Source > เลือกไฟล์ต้นทาง > Close

วิธีการปิดเมนูจะยุ่งยากมาก อีกวิธีเป็นการดักด้วย VBA ศึกษาได้จากที่นี่เป็นแนวทางครับ https://msdn.microsoft.com/en-us/vba/ex ... vent-excel

[Xengsue]

กรณีที่ Link เปลี่ยนไปจากการ Save As สามารถแก้ได้ไม่ยากครับ เราสามารถใช้การ Edit Links เพื่อกลับมา Link กับไฟล์เดิมในเครื่องของเราได้ครับ

เปิดไฟล์ปลายทางที่ Link ข้อมูลมาจากไฟล์อื่น > เข้าเมนู Edit Links > เลือกไฟล์ต้นทาง > Change Source > เลือกไฟล์ต้นทาง > Close

วิธีการปิดเมนูจะยุ่งยากมาก อีกวิธีเป็นการดักด้วย VBA ศึกษาได้จากที่นี่เป็นแนวทางครับ https://msdn.microsoft.com/en-us/vba/ex ... vent-excel

ขอบคุณมากครับ ที่ให้คำแนะนำ
แต่วิธี edit link ผมทำทุกวันอยู่แล้วคงไม่ไหวครับ
เดี่ยว ผมขอศึกษา vba ดูก่อนและจะมาขอความช่วยเหลืออีกครั้งครับ

[Xengsue]

ผมได้ลองศึกษาจาก Link ที่อาจารย์ได้ให้มา ผมก็เลยเขียนได้ออกมาแบบนี้ ครับ

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   If ThisWorkbook.Saved = True Then
      Cancel = True
    End If
End Sub

แต่ยังไม่ใช่แบบนี้ครับ
คือผมอยากให้มันห้ามการ save as วิธีเดียวครับส่วนวิธีอื่นไม่ต้องไปสนใจครับ
แต่ Code ที่ผมลองเขียนข้างบนมันห้ามทั้ง save as, save, Ctrl+s เลยครับ
รบกวนอาจารย์ช่วยดัดแปลงให้ห้ามแค่การ save as อย่างเดียวให้หน่อยครับ
ขอบคุณครับ

[Xengsue]

จากความโมโห ที่วันนี้ได้เจอกับหัวหน้าทีม แล้วได้บอกวิธี copy files
โดยไม่ต้องทำให้ Links ผมเสียอีก แต่เขาก็ไม่ฟังอะไรทั้งสี้นทำแต่วิธีเดีม
ผมก็ตั้งใจแก้ผิดแก้ถูกจาก Code ที่ผมเขียน และ ตอนนี้ก็ได้ตามต้องการ
แล้วครับ ดั่งข้างล่าง

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   If SaveAsUI = True Then Cancel = True
    End
End Sub

ผมดีใจมาก ที่จะไม่ได้คอยแก้ไข Links อีกแล้ว
และ ต้องขอบคุณ อาจารย์ มากที่ให้ความรู้ ครับ
ขอบคุณครับ