Bảo vệ dữ liệu đã nhập trong file Excell.

[Hong.Van]

File bạn chạy nặng máy kinh khủng.

File này chạy thêm thời gian ngắn là "die"

 

[luuvanchuan]

File bạn chạy nặng máy kinh khủng.

hi. Xin lỗi bạn nhé.
bạn giúp mình đưuọc không? giờ lock rùi, nhưng chức năng Filter và Group không dùng được.

Có cách nào không Snow25?

 

[NguyenthiH]

Bạn đã được giúp phần lọc Filter và khống chế tháng nhập liệu bằng Datavaliadation rồi mà.

khống chế dữ liệu thời gian nhập vào theo mốc thời gian cố định

Chào cả nhà. Mình có 1 vấn đề muốn nhờ mọi người giúp. trong 1 sheet, có cột nhập ngày tháng năm. Mình muốn bảo vệ cột đó theo cách như sau: chỉ nhập ngày tháng năm trong tháng , còn ngoài tháng thì không cho nhập vào. Ví dụ cho dễ hiểu: bây giờ là 12/2019. mình chỉ cho nhập dữ liệu ngày từ...

www.giaiphapexcel.com

 

[luuvanchuan]

Bạn đã được giúp phần lọc Filter và khống chế tháng nhập liệu bằng Datavaliadation rồi mà.

khống chế dữ liệu thời gian nhập vào theo mốc thời gian cố định

Chào cả nhà. Mình có 1 vấn đề muốn nhờ mọi người giúp. trong 1 sheet, có cột nhập ngày tháng năm. Mình muốn bảo vệ cột đó theo cách như sau: chỉ nhập ngày tháng năm trong tháng , còn ngoài tháng thì không cho nhập vào. Ví dụ cho dễ hiểu: bây giờ là 12/2019. mình chỉ cho nhập dữ liệu ngày từ...

www.giaiphapexcel.com

đúng rùi,nhưng còn phần sử dụng chức năng Group mình vẫn chưa làm được.
Muốn hỏi nhiều người, xem ai biết chỉ giúp mình với!

 

[luuvanchuan]

Snow25 ơi
Vẫn vào sheet đầu tiên í, vào các cột nhập ngày tháng bạn nhé

Snow25 ơi.
Mình muốn đổi Pass để unprotet và Protect , nhưng khi thay đổi xong, lưu vào thì VBA báo lỗi .
Hướng dẫn mình đổi sang Pass khác đưuọc không?

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim i As Long, j As Long, arr
With Sheet1
Application.Calculation = xlCalculationManual
arr = .Range("A1").Resize(10000, 55).Value
.Unprotect 123
For i = 4 To 10000
For j = 1 To 55
If Not IsError(arr(i, j)) Then
If Len(arr(i, j)) Then
.Cells(i, j).Locked = True
End If
End If
Next j
Next i
.Protect 123, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True, AllowFiltering:=True

Application.Calculation = xlCalculationAutomatic
End With
End Sub

 

[snow25]

Snow25 ơi.
Mình muốn đổi Pass để unprotet và Protect , nhưng khi thay đổi xong, lưu vào thì VBA báo lỗi .
Hướng dẫn mình đổi sang Pass khác đưuọc không?

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim i As Long, j As Long, arr
With Sheet1
Application.Calculation = xlCalculationManual
arr = .Range("A1").Resize(10000, 55).Value
.Unprotect 123
For i = 4 To 10000
For j = 1 To 55
If Not IsError(arr(i, j)) Then
If Len(arr(i, j)) Then
.Cells(i, j).Locked = True
End If
End If
Next j
Next i
.Protect 123, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True, AllowFiltering:=True

Application.Calculation = xlCalculationAutomatic
End With
End Sub

Cái số 123 đó.bạn thay bằng pass mới.lưu ý trước khi lưu mở khóa sheets thủ công trước nhé.pass 123 đó.

 

[luuvanchuan]

Cái số 123 đó.bạn thay bằng pass mới.lưu ý trước khi lưu mở khóa sheets thủ công trước nhé.pass 123 đó.

Snow25 oi.
Mình cảm ơn bạn nhé