Nhờ các bạn sửa lại cái Code khóa Sheet

[khamha]

Chào các bạn,Mình có một File bị lỗi Code như sau:
Nếu mình khóa bằng Protect Workbook... thì nó sẽ không thực hiện được
lệnh mở khóa cho Sheet.
Các bạn xem và sửa hộ mình với,Cảm ơn các bạn.

 

[khamha]

Cái File đấy là khóa từng Sheet riêng biệt.Các bạn giúp mình nha,Thank

 

[khamha]

Chào các bạn,Mình có một File bị lỗi Code như sau:
Nếu mình khóa bằng Protect Workbook... thì nó sẽ không thực hiện được
lệnh mở khóa cho Sheet.
Các bạn xem và sửa hộ mình với,Cảm ơn các bạn.

Nó bị lỗi như thế này:Các bạn xem ảnh

 

[khamha]

Chào các bạn,Mình có một File bị lỗi Code như sau:
Nếu mình khóa bằng Protect Workbook... thì nó sẽ không thực hiện được
lệnh mở khóa cho Sheet.
Các bạn xem và sửa hộ mình với,Cảm ơn các bạn.

Chào các bạn,mình dùng cách là sau khi khóa bằng Protect Workbook...
Lại khóa bằng Protect Shared Workbook... Thì sử dụng được lệnh mở khóa Sheet,nó khóa
không cho xóa Sheet,Nhưng lại vẫn có thể sửa tên Sheet được và làm cho cái Code Không
chạy ( nếu sửa lại tên Sheet như cũ thì vẫn chạy OK ) Vậy nhờ các bạn xem và có cách nào
vô hiệu hóa không cho đổi tên Sheet.Cảm ơn các bạn.

 

[nghiaphuc]

Nó bị lỗi như thế này:Các bạn xem ảnh
View attachment 60127

Bạn sửa lại câu Sheets(sh).Visible=True thành Sheets(sh).Visible=xlSheetVisilbe

Chào các bạn,mình dùng cách là sau khi khóa bằng Protect Workbook...
Lại khóa bằng Protect Shared Workbook... Thì sử dụng được lệnh mở khóa Sheet,nó khóa
không cho xóa Sheet,Nhưng lại vẫn có thể sửa tên Sheet được và làm cho cái Code Không
chạy ( nếu sửa lại tên Sheet như cũ thì vẫn chạy OK ) Vậy nhờ các bạn xem và có cách nào
vô hiệu hóa không cho đổi tên Sheet.Cảm ơn các bạn.

Bạn tham khảo topic này nhé: http://www.giaiphapexcel.com/forum/showthread.php?42956-Không-cho-phép-đổi-tên-Sheet&

 

[khamha]

Bạn sửa lại câu Sheets(sh).Visible=True thành Sheets(sh).Visible=xlSheetVisilbe

Bạn tham khảo topic này nhé: http://www.giaiphapexcel.com/forum/showthread.php?42956-Không-cho-phép-đổi-tên-Sheet&

Chào bạn nghiaphuc,mình đã sửa theo cách của bạn nhưng không được,nên mình dùng theo cách
ở bài mà bạn giới thiệu là:dùng Code
Private Sub Worksheet_Deactivate()
Me.Name = "Bia"
End Sub
cho từng Sheet mình muốn không cho đổi tên,thấy rất hay (nhưng vẫn phải khóa bằng Protect Shared Workbook...)
bạn cho mình hỏi là cái khóa Protect Shared Workbook... nó có nghĩa là gì?
Cảm ơn bạn nhiều.