วิธีตั้งรหัสผ่านเพื่อป้องกันแผ่นงานที่ซ่อนอยู่ใน Excel

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

ตั้งรหัสผ่านเพื่อป้องกันแผ่นงานที่ซ่อนอยู่ด้วยฟังก์ชัน VeryHidden

ตั้งรหัสผ่านเพื่อป้องกันแผ่นงานที่ซ่อนอยู่ด้วยรหัส VBA

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

ตั้งรหัสผ่านเพื่อป้องกันแผ่นงานที่ซ่อนอยู่ด้วยฟังก์ชัน VeryHidden

โดยปกติคุณสามารถใช้ฟังก์ชัน VeryHidden เพื่อซ่อนแผ่นงานก่อนจากนั้นตั้งรหัสผ่านสำหรับพวกเขาโปรดทำตามขั้นตอนต่อไปนี้:

1. เปิดสมุดงานของคุณค้างไว้ Alt + F11คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

2. ใน หน้าต่าง Microsoft Visual Basic for Applicationsคลิก รายละเอียด > นักสำรวจโครงการ และ หน้าต่างคุณสมบัติ to แสดงบานหน้าต่าง

เอกสารป้องกันซ่อนแผ่น -01

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

เอกสารป้องกันซ่อนแผ่น -02

4. หลังจากทำการซ่อนแผ่นงานแล้วคุณสามารถตั้งรหัสผ่านเพื่อป้องกันได้ ใน หน้าต่าง Microsoft Visual Basic for Applicationsคลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อเปิดโมดูลว่างจากนั้นคลิก เครื่องมือ > คุณสมบัติ VBAProjectดูภาพหน้าจอ:

เอกสารป้องกันซ่อนแผ่น -03

5. จากนั้นในโผล่ออกมา คุณสมบัติ VBAProject-Project คลิกตกลง การป้องกัน จากนั้นตรวจสอบ ล็อกโครงการเพื่อดู สุดท้ายให้ป้อนและยืนยันรหัสผ่านในไฟล์ รหัสผ่านเพื่อดูคุณสมบัติโครงการ ส่วนดูภาพหน้าจอ:

เอกสารป้องกันซ่อนแผ่น -04

6. จากนั้นคลิก OK เพื่อออกจากกล่องโต้ตอบนี้และปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications

7. บันทึกเวิร์กบุ๊กเป็น สมุดงานที่เปิดใช้งานแมโคร Excel จัดรูปแบบและปิดเพื่อให้การป้องกันด้วยรหัสผ่านมีผล

เอกสารป้องกันซ่อนแผ่น -05

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

เอกสารป้องกันซ่อนแผ่น -06

Demo: ตั้งรหัสผ่านเพื่อป้องกันแผ่นงานที่ซ่อนอยู่

ตั้งรหัสผ่านเพื่อป้องกันแผ่นงานที่ซ่อนอยู่ด้วยรหัส VBA

ในการตั้งรหัสผ่านเพื่อป้องกันแผ่นงานที่ซ่อนอยู่ฉันสามารถพูดคุยเกี่ยวกับรหัส VBA ให้คุณได้

1. ซ่อนแผ่นงานหนึ่งแผ่นที่คุณต้องการปกป้อง

2. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

3. จากนั้นเลือก สมุดงานนี้ จากด้านซ้าย นักสำรวจโครงการดับเบิลคลิกเพื่อเปิดไฟล์ โมดูลจากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลเปล่า:

รหัส VBA: ตั้งรหัสผ่านเพื่อป้องกันแผ่นงานที่ซ่อนอยู่

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

เอกสารป้องกันซ่อนแผ่น -07

หมายเหตุ: ในโค้ดด้านบน Sheet1 ของ xSheetName = "แผ่นงาน 1" สคริปต์คือชื่อเวิร์กชีตที่ซ่อนอยู่ซึ่งคุณต้องการป้องกันและ 123456 ใน ถ้า response = "123456" แล้ว สคริปต์คือรหัสผ่านที่คุณตั้งไว้สำหรับแผ่นงานที่ซ่อนอยู่ คุณสามารถเปลี่ยนได้ตามความต้องการของคุณ

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

เอกสารป้องกันซ่อนแผ่น -08

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

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

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

ไปที่ดาวน์โหลด
ทดลองใช้ฟรี 30 วัน การซื้อ
เพย์พาล/มายคอมเมิร์ซ

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

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

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

เอกสารป้องกันซ่อนแผ่น -010

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

เอกสารป้องกันซ่อนแผ่น -011

4. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบและแผ่นงานทั้งหมดในสมุดงานได้รับการป้องกันด้วยรหัสผ่านเดียวกัน

หมายเหตุ หากคุณต้องการยกเลิกการป้องกันแผ่นงานทั้งหมดในครั้งเดียวคุณเพียงแค่คลิก Kutools พลัส > ยกเลิกการป้องกันแผ่นงานและพิมพ์รหัสผ่านของคุณเพื่อยกเลิกการป้องกัน

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

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

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

จะตั้งรหัสผ่านเพื่อป้องกันสมุดงานได้อย่างไร?

วิธีป้องกัน / ล็อครหัส VBA ใน 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 (10)

No ratings yet. Be the first to rate!

ciekawa

about 1 year ago

#40007

This comment was minimized by the moderator on the site

jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?

skyyang ciekawa

about 1 year ago

#40090

This comment was minimized by the moderator on the site

Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png

You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!

Report

David

about 4 years ago

#30539

This comment was minimized by the moderator on the site

This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?

skyyang David

about 4 years ago

#30540

This comment was minimized by the moderator on the site

Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!

Report

Jeremy

about 7 years ago

#18498

This comment was minimized by the moderator on the site

Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub

Darren

about 7 years ago

#17884

This comment was minimized by the moderator on the site

I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub

Severin Darren

about 6 years ago

#17885

This comment was minimized by the moderator on the site

Found a solution yet?

I am having the same problem

Rexamillian Severin

about 6 years ago

#17887

This comment was minimized by the moderator on the site

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub

Report

Tomas Rexamillian

about 5 years ago

#17888

This comment was minimized by the moderator on the site

Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?

Rexamillian Severin

about 6 years ago

#17886

This comment was minimized by the moderator on the site

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

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

การเปลี่ยนแปลง

บทแนะนำคุณสมบัติ

ขอความช่วยเหลือ?