Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • Excel
  • วิธีป้องกันสมุดงานทั้งหมดในโฟลเดอร์พร้อมกันใน Excel

วิธีป้องกันสมุดงานทั้งหมดในโฟลเดอร์พร้อมกันใน Excel

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

ปกป้องสมุดงานในโฟลเดอร์พร้อมกันด้วย VBA

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

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ; ทำงานร่วมกับ Office 2007-2021 และ 365; รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา ปกป้องสมุดงานในโฟลเดอร์พร้อมกันด้วย VBA

ในการป้องกันสมุดงานในโฟลเดอร์เฉพาะคุณสามารถใช้รหัสแมโครเพื่อแก้ปัญหา

1. เปิดใช้งานสมุดงานใหม่และกด Alt + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับ Applicatioหน้าต่าง ns แล้วคลิก สิ่งที่ใส่เข้าไป > โมดูลe และวางโค้ดด้านล่างลงในไฟล์ โมดูล ต้นฉบับ

VBA: ปกป้องสมุดงานในโฟลเดอร์

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

 

doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 1

2 กด F5 คีย์และ เลือกโฟลเดอร์ หน้าต่างจะปรากฏขึ้นเพื่อให้คุณเลือกโฟลเดอร์เพื่อป้องกันแผ่นงานทั้งหมด
doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 2

3 คลิก OK และกล่องโต้ตอบจะปรากฏขึ้นเพื่อป้อนรหัสผ่านสำหรับการปกป้องสมุดงาน
doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 3

4 คลิก OKกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณว่าสมุดงานทั้งหมดในโฟลเดอร์ที่เลือกได้รับการป้องกันสำเร็จด้วยรหัสผ่านเดียว
doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 4

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

ปลาย: รหัสนี้ใช้ได้กับ Excel เวอร์ชัน 2007 หรือสูงกว่าหากคุณต้องการใช้เพื่อป้องกันเวอร์ชันที่ต่ำกว่าคุณสามารถเปลี่ยนได้ xFile = "* .xls" ไปยัง xFile = "* .xlsx" ในรหัส


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

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

Kutools สำหรับ Excel, ที่มีมากกว่า 120 ฟังก์ชัน Excel ที่มีประโยชน์เพิ่มประสิทธิภาพในการทำงานและประหยัดเวลาในการทำงานของคุณ

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1. เปิดใช้งานสมุดงานที่คุณต้องการป้องกันแผ่นงานแล้วคลิก Enterprise > ปกป้องแผ่นงาน. ดูภาพหน้าจอ:
doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 6

2 ใน ปกป้องแผ่นงาน คุณสามารถตรวจสอบแผ่นงานที่คุณต้องการปกป้องได้ตามต้องการจากรายการ ดูภาพหน้าจอ:
doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 7

3 คลิก Okและอีกกล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณป้อนและพิมพ์รหัสผ่านใหม่ดูภาพหน้าจอ:
doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 8

4 คลิก Okและกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณปกป้องแผ่นงานได้สำเร็จ
doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 9

สำหรับการยกเลิกการป้องกันแผ่นงานเหล่านี้คุณเพียงแค่คลิก Enterprise > ยกเลิกการป้องกันแผ่นงาน เพื่อป้อนรหัสผ่านสำหรับการยกเลิกการป้องกัน
doc ป้องกันสมุดงานทั้งหมดในโฟลเดอร์ 10

ดาวน์โหลด doc 1


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (6)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ป้องกันสมุดงาน ...โปรแกรมดี....มีประโยชน์มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้รับข้อผิดพลาดทางไวยากรณ์สำหรับสิ่งต่อไปนี้:
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณแก้ไขปัญหานี้หรือไม่ ยังไง?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ลบออกเท่านั้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถทำรหัสเดียวกัน แต่สำหรับการไม่ป้องกัน? พร้อมตัวเลือกในการเรียกดูโฟลเดอร์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉลาดหลักแหลม. ช่วยฉันเกือบชั่วโมงทุกเดือน ขอขอบคุณ.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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