codeVB ป้องกันการ Copy ข้อมูลจากไฟล์อื่นมาวางในชีท
Posted: Thu Sep 28, 2023 12:29 pm
จากไฟล์ที่แนบมา
ต้องการป้องกันไม่ให้ผู้ใช้งาน Copy ข้อมูลจากไฟล์อื่น เช่น Word excel
มาวางในชีท ยกเว้นให้สามารถวางแบบ "วางค่า" ได้ จะต้องปรับ โค๊ดอย่างไรครับ
ต้องการป้องกันไม่ให้ผู้ใช้งาน 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
ไม่พบว่ามี Code ในไฟล์แนบตรับ