cho em xin code để protect sheet nhiều sheet trong 1 file một lúc (1 người xem)

[diemdiem]

Vấn đề nằm ở chỗ, trong 1 sheet của em có rất nhiều file, trong đó, mỗi sheet em đều muốn khóa một vùng dữ liệu như nhau (ví dụ A1100 và A15). Nếu như em ngồi protect từng sheet thì rất lâu, em biết có nhiều cao thủ có thể làm được việc này chỉ "bằng 1 cú nhấp chuột". Các bác cao thủ vui lòng nghiên cứu giúp em với, bên cạnh đó hướng dẫn em cách sử dụng code luôn vì em còn mù mờ vba lắm.
Em xin hứa sẽ thank nhiệt tình.
Hihi

 

[Quang_Hải]

Vấn đề nằm ở chỗ, trong 1 sheet của em có rất nhiều file, trong đó, mỗi sheet em đều muốn khóa một vùng dữ liệu như nhau (ví dụ A1100 và A15). Nếu như em ngồi protect từng sheet thì rất lâu, em biết có nhiều cao thủ có thể làm được việc này chỉ "bằng 1 cú nhấp chuột". Các bác cao thủ vui lòng nghiên cứu giúp em với, bên cạnh đó hướng dẫn em cách sử dụng code luôn vì em còn mù mờ vba lắm.
Em xin hứa sẽ thank nhiệt tình.
Hihi

1. Bạn đã hỏi vấn đề này và có câu trả lời thỏa đáng, tuy nhiên không thấy bạn phản ứng gì sau khi có câu trả lời

http://www.giaiphapexcel.com/forum/...t-cho-nhiều-sheet-một-lúc&p=425619#post425619

2. Không hiểu thank nhiệt tình là thế nào?

3. Lẽ ra nếu có gì thắc mắc nên tiếp tục hỏi trong chủ đề cũ, trừ khi bạn không nhớ là đã hỏi 1 lần rồi

 

[diemdiem]

rất xin lỗi anh về vấn đề này, em cũng đã đọc, nhưng em chưa biết cách làm. Mong anh có thể hướng dẫn em chi tiết hơn được k?

 

[Hong.Van]

rất xin lỗi anh về vấn đề này, em cũng đã đọc, nhưng em chưa biết cách làm. Mong anh có thể hướng dẫn em chi tiết hơn được k?

1/ Khi mở file thì bấm Enable Macros
2/ Tại sheet AAA bấm nút "Khoa" trước "Mo"sau
3/ Muốn xem code thì bấm Alt+F11
----------
Ps: Gởi anh Quanghai: Trường hợp File đang khóa mà ta cho chạy code khóa một lần nữa thì báo lỗi, chắc fải bẫy lỗi
VD: Trong File của em nếm bấm nút "Khoa" hay "Mo" hai lần liên tiếp thì bị báo lỗi!

 

[Quang_Hải]

1/ Khi mở file thì bấm Enable Macros
2/ Tại sheet AAA bấm nút "Khoa" trước "Mo"sau
3/ Muốn xem code thì bấm Alt+F11
----------
Ps: Gởi anh Quanghai: Trường hợp File đang khóa mà ta cho chạy code khóa một lần nữa thì báo lỗi, chắc fải bẫy lỗi
VD: Trong File của em nếm bấm nút "Khoa" hay "Mo" hai lần liên tiếp thì bị báo lỗi!

Mọi thứ phải tùy biến vì mình toàn là học theo kiểu chắp và mà.

Anh sửa lại tí em xem coi được chưa.

Sub khoa_sheet()
Dim sh As Worksheet
  For Each sh In Worksheets
    With sh
      .Unprotect 123
      .Cells.Locked = False
      .[a1:d100].Locked = True
      .Protect 123
    End With
  Next
End Sub

 

[Hong.Van]

Mọi thứ phải tùy biến vì mình toàn là học theo kiểu chắp và mà.

Anh sửa lại tí em xem coi được chưa.

Sub khoa_sheet()
Dim sh As Worksheet
  For Each sh In Worksheets
    With sh
      .Unprotect 123
      .Cells.Locked = False
      .[a1:d100].Locked = True
      .Protect 123
    End With
  Next
End Sub

Híc, mở khóa rồi, lại tiếp tục khóa!!!

 

[ndu96081631]

Híc, mở khóa rồi, lại tiếp tục khóa!!!

Để phòng trường hợp trước đó sheet đã bị khóa sẽ không chuyển trạng thái CellLock được