ไปยังเนื้อหาหลัก

วิธีปิดการใช้งานคลิกขวาที่แท็บแผ่นงานใน Excel

บทความนี้พูดถึงการปิดการใช้งานคลิกขวาบนแท็บแผ่นงานในสมุดงาน โปรดทำตามวิธีการด้านล่างทีละขั้นตอน

ปิดการใช้งานคลิกขวาที่แท็บแผ่นงานใน Excel ด้วยรหัส VBA


ปิดการใช้งานคลิกขวาที่แท็บแผ่นงานใน Excel ด้วยรหัส VBA

สคริปต์ VBA ต่อไปนี้สามารถช่วยคุณปิดใช้งานเมนูคลิกขวาบนแท็บแผ่นงานใน Excel กรุณาดำเนินการดังนี้

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

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

รหัส VBA: ปิดการใช้งานคลิกขวาที่แท็บแผ่นงานใน Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Ply").Enabled = True
End Sub

Private Sub Workbook_Open()
    Application.CommandBars("Ply").Enabled = False
End Sub

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

4 คลิก เนื้อไม่มีมัน > บันทึกเป็น. ใน บันทึกเป็น โปรดระบุโฟลเดอร์ที่คุณต้องการบันทึกเวิร์กบุ๊กตั้งชื่อในไฟล์ ชื่อไฟล์ ตามที่คุณต้องการและเลือก สมุดงานที่เปิดใช้งานแมโคร Excel ตัวเลือกจาก บันทึกเป็นประเภท รายการแบบหล่นลงแล้วคลิกไฟล์ ลด ปุ่ม

ขณะนี้สมุดงานได้รับการบันทึกเป็นสมุดงานที่เปิดใช้งานแมโคร Excel แล้วและฟังก์ชันคลิกขวาบนแท็บแผ่นงานจะถูกปิดใช้งานขณะใช้สมุดงานนี้


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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can you explain this function, I don't understand, thank you " Application.CommandBars("Ply") "
This comment was minimized by the moderator on the site
Hi kitti,
Using the CommandBar named "Ply", it is possible to disable right clicks on a sheet tab:
This comment was minimized by the moderator on the site
How can i get a message when i disable richt click on worksheet tab
This comment was minimized by the moderator on the site
Hi Glenn Daelman,
Sorry I didn't get your point. Would you explain with more details? Thank you for your comment.
This comment was minimized by the moderator on the site
Superb Right Click in sheet tab is working.

Thanks alot
This comment was minimized by the moderator on the site
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
End Sub

this only deactivates RIGHT CLICK -- does not prevent the DOUBLE CLICK on tab from being renamed...
many thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations