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

วิธีป้องกันเซลล์ตามวันที่ใน Excel

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

doc ป้องกันภายในวันที่ 1

ปกป้องแถวทั้งหมดยกเว้นแถววันที่ของวันนี้ด้วยรหัส VBA

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

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

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

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการป้องกันเซลล์ตามวันที่จากนั้นเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลว่าง:

รหัส VBA: ปกป้องแถวทั้งหมดยกเว้นแถววันที่ของวันนี้:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
    If Range("E" & Selection.Row).Value <> Date Then
        ActiveSheet.Protect Password:="111111"
        MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
    ElseIf Range("E" & Selection.Row).Value = Date Then
        ActiveSheet.Unprotect Password:="111111"
        ActiveSheet.EnableSelection = xlNoRestrictions
    End If
End Sub

doc ป้องกันภายในวันที่ 2

หมายเหตุ: ในรหัสด้านบนตัวอักษร E คือส่วนหัวของคอลัมน์ที่มีวันที่ "111111” คือรหัสผ่านเพื่อป้องกันแผ่นงานนี้ คุณสามารถเปลี่ยนได้ตามความต้องการของคุณ

2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้

(1. ) หากคุณคลิกเซลล์อื่นนอกเหนือจากแถววันที่ของวันนี้กล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณว่าไม่สามารถแก้ไขเซลล์ได้โปรดดูภาพหน้าจอ:

doc ป้องกันภายในวันที่ 3

(2. ) หากคุณคลิกและแก้ไขแถวที่เท่ากับวันที่ของวันนี้จะได้รับการแก้ไขสำเร็จดูภาพหน้าจอ:

doc ป้องกันภายในวันที่ 4

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

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

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการป้องกันเซลล์ตามวันที่จากนั้นเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลว่าง:

รหัส VBA: ป้องกันวันที่แถวทั้งหมดผ่านไป:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
  Dim xRow As Long
  xRow = 2
  ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
  ThisWorkbook.ActiveSheet.Cells.Locked = False
  Do Until IsEmpty(Cells(xRow, 5))
    If Cells(xRow, 5) < Date Then
      Rows(xRow).Locked = True
    End If
    xRow = xRow + 1
  Loop
  ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub

doc ป้องกันภายในวันที่ 5

หมายเหตุ: ในรหัสด้านบนหมายเลข 5 คือหมายเลขคอลัมน์ที่มีวันที่ "111111” คือรหัสผ่านเพื่อป้องกันแผ่นงานนี้ คุณสามารถเปลี่ยนได้ตามความต้องการของคุณ

3. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้

(1. ) หากคุณคลิกวันที่ของเซลล์ได้ผ่านไปแล้วกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนว่าคุณไม่สามารถแก้ไขเซลล์ได้โปรดดูภาพหน้าจอ:

doc ป้องกันภายในวันที่ 6

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

doc ป้องกันภายในวันที่ 7

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 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 (30)
No ratings yet. Be the first to rate!
Miguel
Miguel
This comment was minimized by the moderator on the site
Hello, I would like to protect future days and allow editing current and past days. How do I do that?
Reply
0
0
skyyang
skyyang     Miguel
This comment was minimized by the moderator on the site
Hello, Miguel,To protect the future days, please apply the below code:<div data-tag="code">Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice
Dim xRow As Long
xRow = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = False
Do Until IsEmpty(Cells(xRow, 5))
If Cells(xRow, 5) > Date Then
Rows(xRow).Locked = True
End If
xRow = xRow + 1
Loop
ThisWorkbook.ActiveSheet.Protect Password:="111111"
End SubPlease try, hope it can help you!
Reply
Report
0
0
avtandil
avtandil
This comment was minimized by the moderator on the site
hello i did it but when i press cell message shows that it can not be edited but when i press keyborad i still can write in the cell
Reply
0
0
mouzahem
mouzahem
This comment was minimized by the moderator on the site
Hello, I tried to do the same but to Protect all columns except today’s date column with VBA code by replacing "Selection.Row" with "Selection.Columns" and "E" with "5" (row number where dates are), but I keep receiving error 1004!

Any help please?

Thank you
Reply
Report
0
0
skyyang
skyyang     mouzahem
This comment was minimized by the moderator on the site
Hello,
To apply this code to columns that you need, please use the following VBA code:(Note: In the code, 5 is the row number contains the date, please change it to your need.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Target.Worksheet.Cells(5, Target.Column)
If xRg <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf xRg.Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub

Please try, hope it can help you!
Reply
Report
0
0
rohit Khanna
rohit Khanna     skyyang
This comment was minimized by the moderator on the site
Hi Im facing one problem, once i close the file and reopens it again on the same date, code doesnot work. pls help im stuck
Reply
0
0
skyyang
skyyang     rohit Khanna
This comment was minimized by the moderator on the site
Hi, rohit,
To keep the code, you should save your workbook as Excel Macro-Enabled Workbook format, please try, thank you!
Reply
Report
0
0
rohit Khanna
rohit Khanna     skyyang
This comment was minimized by the moderator on the site
Thanks for your help, Thanku so much buddy, It is a great help. and solved my tension.
Be safe
RegardsRohit Khanna
Reply
0
0
youssef
youssef     skyyang
This comment was minimized by the moderator on the site
Thank you! Sorry, I did not get your reply until now, it might be a problem in my email.

It worked! Can't say thank you enough! I really appreciate that!
Reply
0
0
skyyang
skyyang     youssef
This comment was minimized by the moderator on the site
Hi,
Glad it can help you!
Reply
Report
0
0
mouzahem
mouzahem     skyyang
This comment was minimized by the moderator on the site
Hi,

I am trying to expand this to protect columns that do not include this current month or/and this current week. I tried to replace "Date" with "month" or "week", but did not work.

I have attached a sample for weeks sheet where user cannot edit or type in columns other than this week.

Any advice on that? or shall I use actual dates to reflect a day in the month?
Reply
Report
0
0
Youssef
Youssef
This comment was minimized by the moderator on the site
Hello, I tried to do the same but to Protect all columns except today’s date column with VBA code by replacing "Selection.Row" with "Selection.Columns" and "E" with "5" (row number where dates are), but I keep receiving error 1004!

Any help please?

Thank you
Reply
0
0
deokarkaran
deokarkaran
This comment was minimized by the moderator on the site
Hi,

while running this code I am getting an error as shown in the figure
Also i am attaching a snapshot my excel where i want to make changes..

Can u guide in my code where should i make changes according to my excel file so that cells that contain only todays & future date can be editied ???
View Attachments (2 / 5)
Reply
Report
0
0
skyyang
skyyang     deokarkaran
This comment was minimized by the moderator on the site
Hello, Karan,
Because there are merged cells in your table, the above code can not be applied correctly in merged cells table.
If you have any other good ideas, please comment here. Thank you!
Reply
Report
0
0
Niall
Niall
This comment was minimized by the moderator on the site
As someone who is relatively new to VBA, would you mind explaining why xRow = 2 in Line 4?



Thanks
Reply
0
0
Piotr
Piotr     Niall
This comment was minimized by the moderator on the site
because in row no. 1 you have header
Reply
0
0
Bobby
Bobby
This comment was minimized by the moderator on the site
This works great. but how can I switch it to unlock a column based on dates in row 3?
Reply
0
0
tajindia52@gmail.com
This comment was minimized by the moderator on the site
Hello.....


I am using the code for Protect all rows except today’s date row........



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
If Range("A" & Selection.Row).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf Range("E" & Selection.Row).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub


After i save i and click on cell i get message only today's date row can be edited....but if i double click the cell the i can edit...pls help
Reply
Report
0
0
lmg777
lmg777
This comment was minimized by the moderator on the site
hi is it possible to lock certain cells depending on the date that is directly above them in a column?
Reply
Report
0
0
skyyang
skyyang     lmg777
This comment was minimized by the moderator on the site
Hi, Lusis,
Can you give your problem more specifically? Or you can attach a screenshot as your problem.
Thank you!
Reply
Report
0
0
lmg777
lmg777     skyyang
This comment was minimized by the moderator on the site
Hi skyyang

Yes here is a screenshot. Hope this helps.
Reply
Report
0
0
lmg777
lmg777     lmg777
This comment was minimized by the moderator on the site
Here it is.
View Attachments (1 / 5)
Reply
Report
0
0
skyyang
skyyang     lmg777
This comment was minimized by the moderator on the site
Hello, Lucis,
Do you mean to lock the columns which date is past, and only the columns of today and future days can be modified?
View Attachments (1 / 5)
Reply
Report
1
0
lmg777
lmg777     skyyang
This comment was minimized by the moderator on the site
Correct! How would I go about that?
Report
0
0
skyyang
skyyang     lmg777
This comment was minimized by the moderator on the site
Hi, Luis,
How about the date cell in A1? Is it entered manually or entered with a formula =now()? If it is a formula cell, the locked columns will be changed with the date changes.
Looking forward to your reply!
Report
0
0
lmg777
lmg777     skyyang
This comment was minimized by the moderator on the site
Hi Skyyangg

yes the cell A1 has the =now() formula.

thanks!
Report
0
0
Lmg
Lmg
This comment was minimized by the moderator on the site
Hi is it possible to lock columns by the date directly above the columns?
Reply
0
0
Deltran cu preto
Deltran cu preto     Lmg
This comment was minimized by the moderator on the site
Private Sub worksheet_Change(ByVal Target As Range)

'Subscribe to http://youtube.com/excel10tutorial

'Support the channel by donating on http://patreon.com/excel10tutorial

Dim col As Range

'Set the correct sheet name here:

With ThisWorkbook.Sheets("AGOSTO-22")

.Unprotect "ABCDE"

For Each col In .UsedRange.Columns

col.EntireColumn.Locked = col.Range("A1").Value <> Date

Next col

.Protect "ABCDE"

.EnableSelection = xlNoRestrictions

End With

End Sub
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations