วิธีปิดการใช้งานความสามารถในการแทรกแถวและคอลัมน์ใน Excel
โดยปกติเราสามารถแทรกแถวและคอลัมน์ระหว่างข้อมูลที่มีอยู่ได้อย่างรวดเร็วและง่ายดายหากคุณป้องกันไม่ให้ผู้อื่นแทรกคอลัมน์หรือแถวในแผ่นงานคุณสามารถป้องกันแผ่นงานเพื่อปิดใช้ฟังก์ชันแทรกแถวหรือคอลัมน์ได้ แต่คุณจะปิดการใช้งานฟังก์ชันแถวและคอลัมน์โดยไม่ปกป้องแผ่นงานได้อย่างไร?
ป้องกันไม่ให้ผู้อื่นแทรกแถวและคอลัมน์ด้วยรหัส VBA
ป้องกันไม่ให้ผู้อื่นแทรกแถวและคอลัมน์ด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยคุณปิดการใช้งานฟังก์ชันแถวและคอลัมน์การแทรกในสมุดงาน Excel ได้โปรดทำดังนี้:
1. กด Alt + F11 เพื่อเปิด a Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อเปิดหน้าต่างโมดูลจากนั้นคัดลอก VBA ต่อไปนี้ไปที่หน้าต่าง
รหัส VBA: ป้องกันการแทรกแถวและคอลัมน์:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = False
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = False
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. กด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้ตอนนี้เมื่อคุณคลิกขวาเพื่อแทรกแถวหรือคอลัมน์ไฟล์ สิ่งที่ใส่เข้าไป ไม่สามารถใช้ตัวเลือกในเมนูบริบทได้ ดูภาพหน้าจอ:
หมายเหตุ:
1. VBA นี้จะปิดใช้งานฟังก์ชันแทรกในเมนูบริบทในสมุดงานทั้งหมดเมื่อคุณคลิกขวาเพื่อแทรกแถวหรือคอลัมน์
2. ในการคืนค่าคำสั่งแทรกในเมนูบริบทโปรดใช้รหัสต่อไปนี้:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = True
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
