codeVB ป้องกันการ Copy ข้อมูลจากไฟล์อื่นมาวางในชีท

[tigerwit]

จากไฟล์ที่แนบมา
ต้องการป้องกันไม่ให้ผู้ใช้งาน Copy ข้อมูลจากไฟล์อื่น เช่น Word excel
มาวางในชีท ยกเว้นให้สามารถวางแบบ "วางค่า" ได้ จะต้องปรับ โค๊ดอย่างไรครับ

Code: Select all

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, _
ByVal Target As Excel.Range)
Select Case Application.CutCopyMode
Case Is = False 'do nothing
Case Is = xlCopy 'do nothing
Case Is = xlCut
MsgBox "ไม่อนุญาตให้ใช้วิธี ตัด (Cut) ข้อมูลมาวาง" & vbCrLf & _
"โปรดเปลี่ยนไปใช้วิธีการ คัดลอก (Copy) ข้อมูลมาวางแทน", 64, "ไม่อนุญาต"
Application.CutCopyMode = False 'clear clipboard and cancel cut
End Select
End Sub

[snasui]

ไม่พบว่ามี Code ในไฟล์แนบตรับ

การทำเช่นนี้ต้องปิดช่องทางการคัดลอกและวางทั้งเมนูปกติและเมนูลัด ตัวอย่าง Code https://sl.bing.net/kXKTIS9JCfI

หากจะทำให้ง่ายควรเลือกที่จะตรวจสอบเซลล์ใด ๆ ว่ามีรูปแบบตามกำหนด ไม่ว่าจะเป็นใส่สี ตีเส้น ชนิดตัวอักษร ขนาดตัวอักษร หากเปลี่ยนไปจากเดิมแสดงว่ามีการคัดลอกค่ามาวางทับแบบ All

หากตรวจสอบได้ว่ามีการทำเช่นนั้นค่อยแจ้งผู้ใช้ว่าไม่ได้ทำงานตามวิธีการที่กำหนดไว้ หลังจากแจ้งด้วย Message Box แล้วให้โปรแกรม Clear รูปแบบทิ้ง นำรูปแบบเดิมมาวางไว้

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

[tigerwit]

ขอบคุณมากๆครับผม
ได้แนวทางจากคำแนะนำแล้วครับ