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

วิธีทำให้เซลล์เป็นแบบอ่านอย่างเดียวใน Excel

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

ทำให้เซลล์เป็นแบบอ่านอย่างเดียวโดยป้องกันแผ่นงาน
ทำให้เซลล์อ่านด้วยรหัส VBA โดยไม่ต้องปกป้องแผ่นงาน


ทำให้เซลล์เป็นแบบอ่านอย่างเดียวโดยป้องกันแผ่นงาน

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

1 คลิกที่ ที่มุมบนซ้ายของแผ่นงานปัจจุบันเพื่อเลือกทั้งเซลล์

2 กด Ctrl + 1 พร้อมกันเพื่อเปิดไฟล์ จัดรูปแบบเซลล์ กล่องโต้ตอบ ในกล่องโต้ตอบให้ยกเลิกการเลือก ล็อค ภายใต้ การป้องกัน จากนั้นคลิกแท็บ OK ปุ่ม. ดูภาพหน้าจอ:

3. ตอนนี้เลือกเซลล์ที่คุณต้องการทำให้เป็นแบบอ่านอย่างเดียว (ที่นี่ฉันเลือกเซลล์ของช่วง A1: C18) กด Ctrl + 1 พร้อมกันเพื่อเปิดไฟล์ จัดรูปแบบเซลล์ ให้ทำเครื่องหมายที่ ล็อค ภายใต้ การป้องกัน แท็บและคลิก OK ปุ่ม

4. ไปข้างหน้าเพื่อคลิก รีวิว > ป้องกันแผ่นงาน. ดูภาพหน้าจอ:

5. ระบุและยืนยันรหัสผ่านของคุณเพื่อป้องกันแผ่นงานตามภาพด้านล่างที่แสดง

ตอนนี้เซลล์ในช่วงที่ล็อคเป็นแบบอ่านอย่างเดียวแล้ว เมื่อคุณพยายามแก้ไขเซลล์เฉพาะเหล่านี้ภายในช่วงคุณจะได้รับกล่องข้อความดังภาพด้านล่างที่แสดง


ปกป้องแผ่นงานหลายแผ่น / ทั้งหมดด้วยรหัสผ่านพร้อมกันในสมุดงานปัจจุบัน:

Microsoft Excel ช่วยให้คุณสามารถปกป้องแผ่นงานด้วยรหัสผ่านได้ครั้งละหนึ่งแผ่น ที่นี่คุณสามารถใช้ไฟล์ ปกป้องแผ่นงาน และ ยกเลิกการป้องกันแผ่นงาน สาธารณูปโภคของ Kutools สำหรับ Excel เพื่อป้องกันหรือยกเลิกการป้องกันแผ่นงานหลายแผ่นหรือแผ่นงานทั้งหมดในสมุดงานปัจจุบันด้วยรหัสผ่านพร้อมกันได้อย่างรวดเร็ว
ดาวน์โหลดและทดลองใช้ทันที! (เส้นทางฟรี 30 วัน)


ทำให้เซลล์อ่านด้วยรหัส VBA โดยไม่ต้องปกป้องแผ่นงาน

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

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการทำให้เซลล์เป็นแบบอ่านอย่างเดียวจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

2. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง Code

รหัส VBA: ทำให้เซลล์เป็นแบบอ่านเฉพาะใน Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 4 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
            MsgBox Cells(Target.Row, Target.Column).Address & " cannot be selected and edited as it is a read-only cell", _
            vbInformation, "Kutools for Excel"
        End If
    End If
End Sub

หมายเหตุ: โค้ดนี้สามารถสร้างเซลล์ที่ระบุในคอลัมน์เดียวเป็นแบบอ่านอย่างเดียว ในรหัสนี้จะทำให้เซลล์ A3, A4 และ A5 เป็นแบบอ่านเฉพาะในแผ่นงานปัจจุบัน

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

เมื่อคลิกที่เซลล์ A3, A4 หรือ A5 ในแผ่นงานปัจจุบันคุณจะได้รับไฟล์ Kutools สำหรับ 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 (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very useful!!
This comment was minimized by the moderator on the site
Hi! How about if i want to just make 1 column editable and the rest uneditable? Thanks!
This comment was minimized by the moderator on the site
Hi Jac,
Please click on the column header to select the whole column, then do the steps mentioned in the post to unlock the column cells then protect the worksheet.
This comment was minimized by the moderator on the site
every usefull, thank you with gratitude
This comment was minimized by the moderator on the site
Thanks for the quick guidance.
This comment was minimized by the moderator on the site
Hi



I have mulipe sheets Menu ( option A1& A2) , A1 and A2 and VIEW work sheets ( where i will have BROWSE button) .



1. In menu i will select A1..

2. it will go to VIEW sheet ( which is working fine) till now ..

3. when i click on the BROWSE in the VIEW sheet A1 shee shoulf get displayed and the content present in the cells should be non editable..



Could you please help..
This comment was minimized by the moderator on the site
Good day,
Supposing there is a Command Button (ActiveX Control) in the View sheet. After inserting the below VBA into the worksheet code window, click on the button, in a popping up Kutools for Excel dialog box, specify a password to protect the sheet A1. Then sheet A1 is opened and non editable.

Private Sub CommandButton1_Click()
Dim xSheet As Worksheet
Dim xStr As String
On Error Resume Next
Set xSheet = Sheets("A1")
If xSheet Is Nothing Then Exit Sub
xSheet.UsedRange.Locked = True
xStr = Application.InputBox("Please specify a password to protect the sheet A1", "KuTools for Excel", , , , , , 2)
If xStr = False Or xStr = "" Then Exit Sub
xSheet.Protect xStr
xSheet.Activate
End Sub
This comment was minimized by the moderator on the site
i just want to make few cells of a book locked for input, only they shows the result as i programmed them to do so
This comment was minimized by the moderator on the site
Hey, Thanks a lot for this steps.


However, what if I want to copy the values in the cells that I have locked?
This comment was minimized by the moderator on the site
Dear Yahia,
The locked cells in a protected worksheet can't be copied.
This comment was minimized by the moderator on the site
Very Helpful. Thanks ! :D
This comment was minimized by the moderator on the site
Dear i want to protect the hidden cells from by copying to the new sheet, is there any option in the excel sheet for that. Means no can able to view the formulaes after copying from one sheet to other sheet.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations