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

วิธีป้องกันแผ่นงานหลายแผ่นพร้อมกันใน Excel

สมมติว่าคุณมีสมุดงานที่มีแผ่นงานหลายแผ่นและตอนนี้คุณต้องปกป้องแผ่นงานทั้งหมดหรือแผ่นงานเฉพาะบางแผ่นโดยปกติใน Excel คุณสามารถป้องกันแผ่นงานได้ทีละแผ่นด้วยฟังก์ชันป้องกันแผ่นงาน แต่วิธีนี้น่าเบื่อและ ใช้เวลานานหากจำเป็นต้องป้องกันแผ่นงานจำนวนมาก คุณป้องกันหลายแผ่นพร้อมกันใน Excel อย่างรวดเร็วและง่ายดายได้อย่างไร

ปกป้องแผ่นงานทั้งหมดพร้อมกันด้วยรหัส VBA

ป้องกันหลายแผ่นพร้อมกันด้วย Kutools for Excel

ยกเลิกการป้องกันหลายแผ่นพร้อมกันด้วย kutools for Excel


ลูกศรสีฟ้าฟองขวา ปกป้องแผ่นงานทั้งหมดพร้อมกันด้วยรหัส VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถป้องกันแผ่นงานทั้งหมดของสมุดงานที่ใช้งานได้พร้อมกันด้วยรหัสผ่านเดียวกันโดยทำดังนี้:

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ป้องกันแผ่นงานทั้งหมดในสมุดงานพร้อมกัน:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. จากนั้นกด F5 คีย์เพื่อรันรหัสและป้อนรหัสผ่านสำหรับแผ่นงานที่มีการป้องกันในกล่องพร้อมต์ดูภาพหน้าจอ:

เอกสารป้องกันหลายแผ่น 1-1

4. คลิก OKจากนั้นป้อนรหัสผ่านอีกครั้งเพื่อยืนยันรหัสผ่าน

เอกสารป้องกันหลายแผ่น 2-2

5. จากนั้นคลิก OKและแผ่นงานทั้งหมดได้รับการป้องกันด้วยรหัสผ่านเดียวกัน


ลูกศรสีฟ้าฟองขวา ป้องกันหลายแผ่นพร้อมกันด้วย Kutools for Excel

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

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามขั้นตอนต่อไปนี้:

1. คลิก Kutools พลัส > ปกป้องแผ่นงานดูภาพหน้าจอ:

2. ใน ปกป้องแผ่นงาน ไดอะล็อกบ็อกซ์เลือกแผ่นงานที่คุณต้องการป้องกัน (ตามค่าเริ่มต้นระบบจะตรวจสอบแผ่นงานทั้งหมดในสมุดงานปัจจุบัน) ดูภาพหน้าจอ:

เอกสารป้องกันหลายแผ่น 4-4

3. และคลิก OKจากนั้นพิมพ์และยืนยันรหัสผ่านในกล่องโต้ตอบป้องกันแผ่นงาน ดูภาพหน้าจอ:

เอกสารป้องกันหลายแผ่น 5-5

4. จากนั้นคลิก OKแผ่นงานที่เลือกได้รับการป้องกัน

คลิกป้องกันแผ่นงานเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะนี้


ลูกศรสีฟ้าฟองขวา ยกเลิกการป้องกันหลายแผ่นพร้อมกันด้วย kutools for Excel

คุณจะยกเลิกการป้องกันแผ่นงานที่มีการป้องกันหลายแผ่นพร้อมกันได้อย่างไร? แน่นอน, Kutools สำหรับ Excel ยังมีไฟล์ ยกเลิกการป้องกันแผ่นงาน ยูทิลิตี้สำหรับคุณในการยกเลิกการป้องกันในครั้งเดียว

โปรดทำตามขั้นตอนต่อไปนี้:

1. เปิดสมุดงานของคุณซึ่งมีแผ่นงานที่มีการป้องกัน

2. จากนั้นคลิก Kutools พลัส > ยกเลิกการป้องกันแผ่นงานดูภาพหน้าจอ:

3. ใน ยกเลิกการป้องกันแผ่นงาน กล่องโต้ตอบแผ่นงานที่มีการป้องกันจะปรากฏในกล่องรายการจากนั้นคลิก Ok ปุ่มดูภาพหน้าจอ:

เอกสารป้องกันหลายแผ่น 7-7

4. แล้วก ยกเลิกการป้องกันแผ่นงาน กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณป้อนรหัสผ่านที่คุณสร้างขึ้นเพื่อป้องกันแผ่นงานดูภาพหน้าจอ:

เอกสารป้องกันหลายแผ่น 8-8

5. หลังจากพิมพ์รหัสผ่านคลิก Okแผ่นงานที่เลือกไว้ทั้งหมดในกล่องรายการไม่ได้รับการป้องกัน

หมายเหตุ แผ่นงานต้องมีรหัสผ่านเดียวกัน

หากต้องการทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะ Unprotect Worksheet

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


ลูกศรสีฟ้าฟองขวา การสาธิต: ป้องกันหรือยกเลิกการป้องกันแผ่นงานทั้งหมดพร้อมกันด้วย Kutools for Excel

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

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

วิธียกเลิกการป้องกันแผ่นงานหลายแผ่นพร้อมกันใน 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 (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations