Note: The other languages of the website are Google-translated. Back to English
English English

วิธีปิดการใช้งานตัดคัดลอกและวางฟังก์ชันใน Excel

สมมติว่าคุณมีสมุดงานที่มีข้อมูลสำคัญซึ่งคุณต้องป้องกันไม่ให้ถูกตัดคัดลอกและวาง จะบรรลุได้อย่างไร? บทความนี้แสดงวิธี VBA เพื่อให้คุณปิดใช้งานฟังก์ชันตัดคัดลอกและวางพร้อมกันในสมุดงาน Excel

ปิดใช้งานฟังก์ชันตัดคัดลอกและวางด้วยรหัส VBA


ปิดใช้งานฟังก์ชันตัดคัดลอกและวางด้วยรหัส VBA

โปรดทำดังนี้เพื่อปิดใช้งานฟังก์ชันตัดคัดลอกและวางในสมุดงาน Excel

1. ในสมุดงานคุณต้องปิดการใช้งานฟังก์ชันตัดคัดลอกและวางโปรดกดปุ่ม อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดดับเบิลคลิก สมุดงานนี้ ทางด้านซ้าย โครงการ บานหน้าต่างแล้วคัดลอกและวางรหัส VBA ด้านล่างลงในไฟล์ ThisWorkbook (รหัส) หน้าต่าง. ดูภาพหน้าจอ:

รหัส VBA: ปิดใช้งานฟังก์ชันตัดคัดลอกและวางในเวลาเดียวกันใน Excel

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. จากนั้นกดปุ่ม อื่น ๆ + Q ปุ่มเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

ตอนนี้คุณไม่สามารถตัดหรือคัดลอกข้อมูลจากสมุดงานนี้ได้ในขณะเดียวกันข้อมูลที่คุณคัดลอกจากแผ่นงานหรือสมุดงานอื่นจะไม่สามารถวางลงในสมุดงานนี้ได้

หมายเหตุ: ฟังก์ชันลากแล้วปล่อยจะถูกปิดใช้งานหลังจากเรียกใช้โค้ด VBA ด้านบน


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (48)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันทำตามข้างต้น แต่ฟังก์ชันของการตัดคัดลอกและอดีตถูกปิดใช้งานในไฟล์ excel ใด ๆ ที่ฉันเปิด .ทำไม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้สิ่งนี้เพื่อซ่อน "Cut" จากผู้ใช้และใช้งานได้ดีเว้นแต่คุณจะมี Table "Cut" จะปรากฏขึ้นอีกครั้งอย่างน่าอัศจรรย์เมื่อคุณเลือกเซลล์ในตาราง ซึ่งเป็นสิ่งที่ฉันพยายามหลีกเลี่ยง ความคิดใด ๆ ขอบใจ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณเซอร์มันใช้งานได้ แต่ในสมุดงานทั้งหมด ถ้าฉันต้องการรหัสนี้เฉพาะฉันแผ่นงานเท่านั้น เป็นไปได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณพบคำตอบหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก มันทำงานในสมุดงานทั้งหมด เราสามารถเข้ารหัสได้เพียง 1 แผ่นเท่านั้นโปรดช่วยด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีเปิดใช้งานฟังก์ชันตัด คัดลอก และวางกลับ กรุณาแนะนำ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ท้องฟ้าที่รัก
โปรดเรียกใช้ VBA1 ด้านล่าง (วางโค้ดในโมดูล ThisWorkbook) เพื่อปิดใช้งานฟังก์ชันตัด คัดลอก และวางในเวิร์กบุ๊กของคุณ

VBA1:
ย่อย DelCopy()
ด้วยแอพพลิเคชั่น
.OnKey "^x", ""
.OnKey "^c", ""
.CommandBars("Cell")).Controls(1).Enabled = False
.CommandBars("Cell")).Controls(2).Enabled = False
จบด้วย
ย่อยสิ้นสุด

และเรียกใช้ VBA2 เพื่อเปิดใช้งานฟังก์ชันทั้งหมดเหล่านี้กลับไปยังสมุดงานของคุณ

VBA2:
ย่อย RecoverCopy()
ด้วยแอพพลิเคชั่น
.OnKey "^x"
.OnKey "^c"
.CommandBars("Cell")).Controls(1).Enabled = True
.CommandBars("Cell")).Controls(2).Enabled = True
จบด้วย
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดูเหมือนว่าจะไม่ได้ผลสำหรับฉัน ฉันควรลบโค้ด VBA เดิมแล้ววางโค้ดด้านบนเพื่อเปิดใช้งานฟังก์ชัน Cut, Copy and Paste อีกครั้งหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอให้เป็นวันที่ดี,
ความคิดเห็น VBA1in ด้านบนเป็นการแทนที่โค้ดต้นฉบับ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ที่รัก,

ฉันต้องการปิดใช้งานการตัด คัดลอก วางในแผ่นงาน excel 2007
คุณช่วยแชร์รหัสนี้ได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอให้เป็นวันที่ดี,
ขอบคุณสำหรับความคิดเห็นของคุณ. ฉันกำลังพยายามหาวิธีแก้ปัญหาสำหรับ Excel 2007 โปรดอดใจรอ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
เป็นไปได้ไหมที่จะปิดการใช้งาน "CUT" เท่านั้น? แต่ฉันยังคงใช้การคัดลอกและวางได้ใช่หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคาร์เมโล่
โปรดคัดลอกและวางรหัสด้านล่างลงในหน้าต่างรหัสสมุดงานในสมุดงานของคุณ แล้วบันทึกเป็นสมุดงานที่เปิดใช้งาน Excel Macro จากนั้นฟังก์ชัน "ตัด" จะถูกปิดใช้งาน

ตัวเลือกที่ชัดเจน
ส่วนตัว WithEvents Cmbrs เป็น CommandBars

สมุดงานย่อยส่วนตัว_Open()
ตั้งค่า Cmbrs = Application.CommandBars
ย่อยสิ้นสุด

สมุดงานย่อยส่วนตัว _Activate ()
ถ้า Application.CutCopyMode = 2 แล้ว
แอปพลิเคชัน CutCopyMode = 0
End If
ย่อยสิ้นสุด

Cmbrs_OnUpdate() ย่อยส่วนตัว
ถ้าฉันคือ ActiveWorkbook แล้ว
ถ้า Application.CutCopyMode = 2 แล้ว
แอปพลิเคชัน CutCopyMode = 0
MsgBox "ปิดการดำเนินการตัด"
End If
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันพยายามเหมือนที่คุณพูดแต่ไม่มีอะไรเกิดขึ้น ต้องการเหมือนกันทุกประการ มีเพียง
ปิดใช้งานฟังก์ชัน "ตัด" ฉันต้องปิดการใช้งานตัวเลือก "ตัด" จากตัวเลือกปุ่มคลิกขวาและจากแถบเครื่องมือ
เป็นไปได้คริสตัล??
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
รหัสทำงานได้ดีในกรณีของฉัน ฉันขอทราบเวอร์ชัน Office ของคุณได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hi

ฉันเป็นผู้เริ่มต้นรหัส VBA และรหัสนี้แก้ปัญหาได้ 99%

เป็นไปได้ไหมที่จะล็อคแผ่นรู (ตามขนาดรหัสนี้) แต่ยังมีการปลดล็อกเซลล์หนึ่งเซลล์อยู่?
(ชี้แจง ฉันต้องการอนุญาตให้คัดลอกข้อมูลที่ผ่านมาในเซลล์เดียวในแผ่นงานรู)

ด้วยความเคารพ
L
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีลินดา
คุณสามารถแก้ปัญหาได้โดยไม่ต้องใช้โค้ด VBA
คลิกขวาที่เซลล์และเลือก จัดรูปแบบเซลล์ จากเมนูบริบท ยกเลิกการเลือกกล่อง ล็อก ใต้แท็บ การป้องกัน ในกล่องโต้ตอบ แล้วป้องกันแผ่นงานด้วยรหัสผ่าน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดีใจมากที่ได้พบโพสต์นี้ แต่ฉันต้องการความช่วยเหลือเล็กน้อยในการจำกัดให้เหลือเพียงแผ่นงานเดียวในสมุดงานหลายแผ่น และจำเป็นต้องรู้วิธีดำเนินการนี้โดยที่ผู้ใช้ไม่ต้องดำเนินการใดๆ...เราต้องการ ASAP นี้ในเวิร์กบุ๊กเพื่อช่วยป้องกันข้อผิดพลาด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
รหัส VBA ต่อไปนี้สามารถช่วยคุณแก้ปัญหาได้ และอย่าลืมแทนที่ "Sheet2" ในโค้ดด้วยชื่อชีตของคุณ

mJWSName สาธารณะเป็นสตริง

สมุดงานย่อยส่วนตัว_Open()
mJWSName = "แผ่นงาน 2"
ย่อยสิ้นสุด

สมุดงานย่อยส่วนตัว _Activate ()
ถ้า ActiveSheet.Name = mJWSName แล้ว
Application.CutCopyMode = เท็จ
Application.OnKey "^c", ""
Application.CellDragAndDrop = เท็จ
End If
ย่อยสิ้นสุด

Private Sub Workbook_Deactivate ()
Application.OnKey "^c", ""
Application.CellDragAndDrop = จริง
Application.CutCopyMode = เท็จ
ย่อยสิ้นสุด


สมุดงานย่อยส่วนตัว_WindowActivate(ByVal Wn As Window)
ถ้า ActiveSheet.Name = mJWSName แล้ว
Application.CutCopyMode = เท็จ
Application.OnKey "^c", ""
Application.CellDragAndDrop = เท็จ
End If
ย่อยสิ้นสุด

สมุดงานย่อยส่วนตัว_WindowDeactivate (ByVal Wn As Window)
Application.OnKey "^c"
Application.CellDragAndDrop = จริง
Application.CutCopyMode = เท็จ
ย่อยสิ้นสุด

สมุดงานย่อยส่วนตัว_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Sh.Name = mJWSName แล้ว
Application.CutCopyMode = เท็จ
End If
ย่อยสิ้นสุด

สมุดงานย่อยส่วนตัว_SheetActivate (ByVal Sh As Object)
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า Sh.Name = mJWSName แล้ว
Application.OnKey "^c", ""
Application.CellDragAndDrop = เท็จ
Application.CutCopyMode = เท็จ
End If
ย่อยสิ้นสุด

สมุดงานย่อยส่วนตัว_SheetDeactivate (ByVal Sh As Object)
Application.OnKey "^c"
Application.CellDragAndDrop = จริง
Application.CutCopyMode = เท็จ
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คำถามสุดท้าย - รหัสนี้อยู่ที่ไหนและดำเนินการอย่างไร โปรเจ็กต์นี้จำเป็นต้องแนบไฟล์ XLA กับแผ่นงาน Excel ที่มีโค้ดจำนวนมาก ไม่ทราบว่าจำเป็นต้องเข้าสู่โมดูลหรือโค้ดที่อยู่เบื้องหลังแผ่นงานนี้หรือไม่ ขอบคุณ...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับคำแนะนำของคุณ ฉันกำลังพยายามใน office 2013 แต่ไม่มีอะไรเปลี่ยนแปลง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี รหัสทำงานได้ดี ขอบคุณ
อย่างไรก็ตาม ตัวเลือกอ่านอย่างเดียวถูกเปิดใช้งาน (หากไม่ต้องการแก้ไข) ถ้าฉันตั้งค่า ..ไฟล์, บันทึกเป็น, เครื่องมือ, ตัวเลือกทั่วไป, อ่านอย่างเดียวที่แนะนำ .. รหัสจะไม่ทำงาน

ขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันใช้งานได้ดีจริงๆ ขอบคุณมาก.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก มันใช้งานได้สมบูรณ์แบบ .... ใช้กับช่วงใดได้บ้าง?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วันดี,
ขออภัยไม่สามารถช่วยคุณในเรื่องนั้นได้ ยินดีต้อนรับสู่การโพสต์คำถามใด ๆ ในฟอรัมของเรา: https://www.extendoffice.com/forum.html. ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณท่าน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณครับ มีประโยชน์มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ตัดคัดลอกวางใช้งานได้ทั้งสมุดงาน ถ้าฉันต้องการรหัสนี้เฉพาะฉันแผ่นงานเท่านั้น เป็นไปได้ไหม
กรุณาช่วย. เราต้องการฟังก์ชันปิดการใช้งานแผ่นเดียวเท่านั้น อีกแผ่นเรากำลังทำงานครบทุกฟังก์ชั่น...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนั้นใช้ไม่ได้ใน excel 2016 ของฉันสำหรับแผ่นงานเดียวแทนที่จะเป็นสมุดงานทั้งหมด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยังคงอนุญาตให้วางจาก Notepad หรือ Microsoft Edge โปรดดูว่ามีวิธีป้องกันการวางจากแหล่งใดหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
หากป้องกันการวางจากแหล่งใด ๆ เราจำเป็นต้องป้องกันคุณสมบัติ Notepad ซึ่งอาจนำมาซึ่งความไม่สะดวก เราไม่แนะนำสิ่งนี้ ขออภัยไม่สามารถช่วยคุณได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้รหัสนี้และต้องการเปิดใช้งานอีกครั้งหรือไม่ จะเปิดใช้งานใหม่ได้อย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้รหัสนี้เพื่อปิดใช้งานการคัดลอก & วาง



สมุดงานย่อยส่วนตัว _Activate ()

Application.CutCopyMode = เท็จ

Application.OnKey "^c", ""

Application.CellDragAndDrop = เท็จ

ย่อยสิ้นสุด



Private Sub Workbook_Deactivate ()

Application.CellDragAndDrop = จริง

Application.OnKey "^c"

Application.CutCopyMode = เท็จ

ย่อยสิ้นสุด



สมุดงานย่อยส่วนตัว_WindowActivate(ByVal Wn As Window)

Application.CutCopyMode = เท็จ

Application.OnKey "^c", ""

Application.CellDragAndDrop = เท็จ

ย่อยสิ้นสุด



สมุดงานย่อยส่วนตัว_WindowDeactivate (ByVal Wn As Window)

Application.CellDragAndDrop = จริง

Application.OnKey "^c"

Application.CutCopyMode = เท็จ

ย่อยสิ้นสุด



สมุดงานย่อยส่วนตัว_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)

Application.CutCopyMode = เท็จ

ย่อยสิ้นสุด



สมุดงานย่อยส่วนตัว_SheetActivate (ByVal Sh As Object)

Application.OnKey "^c", ""

Application.CellDragAndDrop = เท็จ

Application.CutCopyMode = เท็จ

ย่อยสิ้นสุด



สมุดงานย่อยส่วนตัว_SheetDeactivate (ByVal Sh As Object)

Application.CutCopyMode = เท็จ

ย่อยสิ้นสุด





และต้องการเปิดใช้งานฟังก์ชันเหล่านี้อีกครั้ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีนี้ใช้ได้ผลดี เราจะแก้ไขสิ่งนี้อย่างไรเพื่ออนุญาตให้คัดลอก/วางในคอลัมน์เฉพาะที่มีเมนูแบบเลื่อนลงที่เชื่อมโยงกับช่วงที่ระบุชื่อของอินพุตที่ยอมรับได้และเฉพาะอินพุตที่ยอมรับได้เท่านั้น ตัวอย่างเช่น ชื่อที่เป็น Jetson, George, 25, จะอนุญาตให้คัดลอก/วาง Jetson, George, 25 แต่จะไม่อนุญาตให้ Jeston, George, 26 หรือลากและเติมที่จะส่งผลให้ Jetson, George, 25 แล้ว 26 แล้ว 27 เป็นต้น
ในแผ่นงานของฉัน ฉันต้องการปิดใช้งานการตัด/คัดลอก/วางในบางคอลัมน์โดยสมบูรณ์ จากนั้นอนุญาตเฉพาะการคัดลอกแบบตัดแปะของข้อมูลที่ยอมรับได้จากดรอปดาวน์
ขอขอบคุณ.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ