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

วิธีป้องกันแผ่นงานหลายแผ่นพร้อมกันใน 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 สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (21)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เยี่ยมมาก - จะเลิกปกป้องพวกเขาทั้งหมดได้อย่างไรในคราวเดียว? ผมเป็นมือสมัครเล่น เลยต้องการข้อมูลเพิ่มเติม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]เยี่ยมมาก--แล้วจะป้องกันพวกเขาทั้งหมดได้อย่างไรในคราวเดียว? ผมเป็นมือสมัครเล่น เลยต้องการข้อมูลเพิ่มเติมโดย Kristin Dzugan[/quote] :-) คุณสามารถยกเลิกการป้องกันได้อย่างง่ายดายเช่น http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") ถ้าไม่ (pass = repass) จากนั้น 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 อุ๊ปส์: MsgBox "ฉันคิดว่าคุณมีแผ่นงานบางแผ่นที่ได้รับการปกป้องแล้ว โปรดยกเลิกการป้องกันแผ่นงาน B4 ทั้งหมดที่เรียกใช้มาโครนี้" จบซับ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก :-)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อย่างที่ Kristin พูด คุณจะยกเลิกการปกป้องพวกเขาทั้งหมดในคราวเดียวได้อย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดังนั้นฉันจะยกเลิกการป้องกันโดยไม่มี kutools ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]ดังนั้นฉันจะยกเลิกการป้องกันโดยไม่มี kutools ได้อย่างไร?โดย cz[/quote] คุณสามารถยกเลิกการป้องกันแผ่นงานโดยไม่ต้องใช้ Kutools for Excel คุณเพียงแค่ต้องคลิกขวาที่แท็บแผ่นงานที่คุณต้องการยกเลิกการป้องกัน แล้วคลิกคำสั่ง Unprotect Sheet จากนั้นป้อนรหัสผ่านของคุณ :-)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อฉันใส่รหัส มันขึ้นว่า "ข้อผิดพลาดรันไทม์ 1004?? เน้นสิ่งต่อไปนี้ด้วยสีเหลือง... s.Protect Password:=pass
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันก็มีข้อผิดพลาด 1004 เช่นกัน ฉันใช้มาโครมาหลายเดือนแล้ว แต่ตอนนี้มันไม่ทำงาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันก็มีปัญหานี้เหมือนกัน กลายเป็นว่าไม่สามารถทำงานได้หากคุณเลือกแผ่นงานทั้งหมดในสมุดงาน ลองเลือกเพียงหนึ่งแผ่นงานแล้วเรียกใช้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหาข้อผิดพลาด 1004 กะทันหัน ใช้มาโครมาหลายเดือนแล้ว มันสุ่มล้มเหลว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันก็มีข้อผิดพลาด 1004 เช่นกัน ใครพบวิธีแก้ปัญหา?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อฉันเปิดใช้งาน VBA นี้ เชื่อมโยงหลายมิติ ไม่ทำงาน ฉันจะทำให้พวกเขาทำงานได้อย่างไร tnx :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ! มันยอดเยี่ยมมาก ฉันสามารถแก้ไขโค้ด VBA ได้ เพื่อที่จะสามารถยกเลิกการป้องกันแผ่นงานทั้งหมดในคราวเดียว! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") ถ้าไม่ (pass = repass) จากนั้น MsgBox "you made a boo boo" GoTo top End If For i = 1 ไปที่ Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "ฉันคิดว่าคุณมีแผ่นงานบางแผ่นที่ได้รับการปกป้องแล้ว โปรดยกเลิกการป้องกันแผ่นงาน B4 ทั้งหมดที่ใช้งานมาโครนี้" จบซับ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการความช่วยเหลือ โค้ดด้านบนมีประโยชน์มาก แต่มันล็อคการเรียงลำดับ (ตัวกรองอัตโนมัติด้วย) คุณช่วยระบุรหัสเพื่อแก้ปัญหานั้นและตำแหน่งที่จะแทรกได้ ขอบคุณล่วงหน้า.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีแท็บแผนภูมิและเวิร์กชีตในสมุดงาน Excel 2013 การเข้ารหัส VBA ด้านบนใช้สำหรับปกป้องเวิร์กชีตแต่ใช้ไม่ได้กับแท็บแผนภูมิแยกต่างหาก ฉันจะใช้รหัสผ่านป้องกันแท็บแผนภูมิหลายแท็บและหลายแผ่นงานในสมุดงานของฉันได้อย่างไร ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้รหัสนี้แล้ว ฉันไม่ยอมรับรหัสผ่านเพื่อกลับเข้าสู่สเปรดชีตของฉัน !!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะปิดบังรหัสผ่านโดยใช้วิธี VBA ได้อย่างไร ฉันไม่พบข้อมูลนี้ผ่านไฟล์ช่วยเหลือของ Google หรือ F1 ขอบคุณล่วงหน้า!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับเครื่องมือเต็มรูปแบบที่น่าประหลาดใจในการปกป้องและยกเลิกการป้องกันแผ่นงานทั้งหมดในคราวเดียว โปรดแนะนำฉันฉันสามารถยกเลิกการป้องกันแผ่นงานทั้งหมดในสมุดงานของฉันในแต่ละครั้ง แต่เมื่อฉันเรียกใช้ป้องกันแผ่นงาน VBA Code ทั้งหมด จะมีเพียง 4 แผ่นแรกเท่านั้นที่ได้รับการคุ้มครอง & ส่วนที่เหลือหรือไม่ได้รับการป้องกัน โปรดช่วยฉันจัดแจงประเด็น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังพยายามใช้สิ่งนี้ในเวิร์กบุ๊กที่แชร์ แต่ได้รับข้อผิดพลาด Microsoft Visual Basic "ข้อผิดพลาดรันไทม์ '1004": ข้อผิดพลาดที่กำหนดโดยแอปพลิเคชันหรือกำหนดวัตถุ" ฉันแค่มองหาคำแนะนำเกี่ยวกับวิธีการแก้ไขปัญหานี้ ใด ๆ ความช่วยเหลือจะได้รับการชื่นชม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เกิดขึ้นเมื่อแผ่นถูกล็อคแล้ว
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL