Hẹn giờ dùng cho file excel (1 người xem)

[trungqt1985]

Chào các bạn. Mình đang có một file excel và mình muốn file này của mình chỉ được chỉnh sửa theo giờ từ 7->8 giờ sáng mỗi ngày ngoài những giờ trên thì file chỉ có thể đọc và không chỉnh sửa được. Bạn nào biết chỉ giúp mình với mình cảm ơn nhiều

 

[tvxdgt]

Chào các bạn. Mình đang có một file excel và mình muốn file này của mình chỉ được chỉnh sửa theo giờ từ 7->8 giờ sáng mỗi ngày ngoài những giờ trên thì file chỉ có thể đọc và không chỉnh sửa được. Bạn nào biết chỉ giúp mình với mình cảm ơn nhiều

tại ô A1 sheet1 bạn gỏ công thức sau:

=HOUR(NOW())

rồi chép đoạn code sau là ok:

Sub Khoa()
Application.ScreenUpdating = False
For Each Sh In ActiveWorkbook.WorksheetsIf 
Sheet1.Range("A1") >= 7 And Sheet1.Range("A1") <= 8 Then
Sh.Protect Password:="1234" 'Pass cua ban
Else
Sh.Unprotect Password:="1234" 'Pass cua ban
End If
Next Sh
Application.ScreenUpdating = True
End Sub

 

[tvxdgt]

Hoặc bạn sửa lại code như thế này:

'Khoa sheet
Sub Khoa()
Application.ScreenUpdating = False
For Each Sh In ActiveWorkbook.Worksheets
If Hour(Now()) >= 7 And Hour(Now()) <= 8 Then
Sh.Protect Password:="1234" 'Pass cua ban
Else
Sh.Unprotect Password:="1234" 'Pass cua ban
End If
Next Sh
Application.ScreenUpdating = True
End Sub

 

[trungqt1985]

mình cảm ơn tvxdgt vì đã trả lời thắc mắc của mình nhưng sao mình download file book1 của bạn về lúc đó là 16h mà mở ra vẫn thêm dữ liệu và lưu bình thường. mình thử với code bên dưới vẫn bị vậy. Có thể bạn cho mình nick yahoo hay sky mình hỏi trực tiếp một chút được không. thanks bạn nhiều
Thành Trung

 

[tvxdgt]

mình cảm ơn tvxdgt vì đã trả lời thắc mắc của mình nhưng sao mình download file book1 của bạn về lúc đó là 16h mà mở ra vẫn thêm dữ liệu và lưu bình thường. mình thử với code bên dưới vẫn bị vậy. Có thể bạn cho mình nick yahoo hay sky mình hỏi trực tiếp một chút được không. thanks bạn nhiều
Thành Trung

file trên mình làm ngược với yêu cầu của bạn, mình sửa lại một chút, bạn xem thêm file đính kèm nha.

Private Sub workbook_open()
Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Worksheets
If Hour(Now()) >= 7 And Hour(Now()) <= 8 Then
sh.Unprotect Password:="1234" 'Pass cua ban
Else
sh.Protect Password:="1234" 'Pass cua ban
End If
Next sh
Application.ScreenUpdating = True
End Sub

 

[trungqt1985]

ok rồi mình cảm ơn bạn nhiều nhé tvxdgt

 

[nhoklipice]

16h đổi lại thành 7h30 am thì sao nhỉ ?

 

[Hong.Van]

Code trên chỉ cho sử dụng, sửa đổi từ 7->8h00 sáng thôi

16h đổi lại thành 7h30 am thì sao nhỉ ?

Ý bạn muốn đổi ntn?

 

[tanxuong1989]

tvxdgt cao thủ về ex nhỉ, mình lâu rồi không đụng đến mảng này, giờ mình cần tạo 1file cel có cột ngày nhận hàng, ngày trả hàng và cột đã có hàng . Mình muốn nếu ngày trả hàng đến mà ô Đã có hàng chưa có dữ liệu thì ô ngày trả hàng sẽ đổi thành màu đỏ. bạn có thể giúp mình hoặc thảo luận cùng mình được không. thehungnb89@gmail.com

 

[vanle33]

tvxdgt cao thủ về ex nhỉ, mình lâu rồi không đụng đến mảng này, giờ mình cần tạo 1file cel có cột ngày nhận hàng, ngày trả hàng và cột đã có hàng . Mình muốn nếu ngày trả hàng đến mà ô Đã có hàng chưa có dữ liệu thì ô ngày trả hàng sẽ đổi thành màu đỏ. bạn có thể giúp mình hoặc thảo luận cùng mình được không. thehungnb89@gmail.com

1) Bạn lập file excel có các ngày mà bạn nói rồi up lên đây.
2) "cột đã có hàng" là gì vậy ? Có phải là SỐ?
3) Bạn dùng Conditional Formatting --> đó là gợi ý cho bạn.

 

[tutrinh010587]

cho em hỏi Sh trong đoạn code trên có ý nghĩa gì vậy?
sao em mở và sửa lại vào ngay giờ em mở nhưng nó không khoá lại và hỏi pass

 

[tutrinh010587]

sao em mở lên vào thời điểm đó nhưng vẫn không hiện yêu cầu nhập pass
cho em hỏi đoạn code trên sh có ý nghĩa là gì?