Nhờ giúp sửa lại code để giữ được các chức năng trong bảng Protect Sheet (1 người xem)

[Blad01]

Khi nhấn nút insert dòng hoặc delete dòng thì bảng Protect Sheet hiện thị như sau:

Mong các bác giúp em chỉnh sửa lại code để làm sao khi nhấn nút insert dòng hoặc delete dòng thì bảng Protect Sheet luôn hiển thị như sau:

Chọn hết chỉ không chọn 04 dòng là Insert row, Insert columns, delete row, delete columns.
code như sau:

Sub Insert()Application.ScreenUpdating = False
Sheet1.Unprotect Password:="10"
Selection.Insert
Sheet1.Protect Password:="10"
Application.ScreenUpdating = True
End Sub
---------------------------------------------
Sub Delete()
Application.ScreenUpdating = False
Sheet1.Unprotect Password:="10"
Selection.Delete
Sheet1.Protect Password:="10"
Application.ScreenUpdating = True
End Sub

em cảm ơn nhiều.

 

[huuthang_bd]

Khi nhấn nút insert dòng hoặc delete dòng thì bảng Protect Sheet hiện thị như sau:
View attachment 142250
Mong các bác giúp em chỉnh sửa lại code để làm sao khi nhấn nút insert dòng hoặc delete dòng thì bảng Protect Sheet luôn hiển thị như sau:
View attachment 142251
Chọn hết chỉ không chọn 04 dòng là Insert row, Insert columns, delete row, delete columns.
code như sau:

em cảm ơn nhiều.

Sao bạn không chọn luôn Insert Rows và Delete Rows mà phải dùng code?

 

[Blad01]

Sao bạn không chọn luôn Insert Rows và Delete Rows mà phải dùng code?

Em phải khóa để bảo vệ công thức và khi insert dòng hoặc delete dòng vẫn có thể sử dụng được tính năng sao chép công thức vào dòng mới chèn của chức năng Fomart As Table. Vì vậy em mới phải dùng tới code bác ạ

 

[huuthang_bd]

Em phải khóa để bảo vệ công thức và khi insert dòng hoặc delete dòng vẫn có thể sử dụng được tính năng sao chép công thức vào dòng mới chèn của chức năng Fomart As Table. Vì vậy em mới phải dòng tới code bác ạ

Tôi nghĩ bạn không nên khóa. Không khóa để biết đâu có "cao nhân" nào đó nhìn thấy có khi giúp bạn sửa công thức lại thành hay hơn

 

[Blad01]

Tôi nghĩ bạn không nên khóa. Không khóa để biết đâu có "cao nhân" nào đó nhìn thấy có khi giúp bạn sửa công thức lại thành hay hơn

nhưng cao nhân thì ít mà chỗ mình người biết sử dụng căn bản excel lại nhiều. Vì vậy không khóa, biết đâu người dùng nhỡ tay xóa công thức, bảng tính thống kê số liệu không chuẩn thì lúc đó họ lại ném đá vỡ đầu mình. Ai chịu trách nhiệm đây. Các cao nhân trên diễn đàn giúp em với ạ.

 

[phihndhsp]

Bạn khoá protected thì cũng như không? Nếu người ta muốn xoá thì mấy năm hồi

 

[Blad01]

Bạn khoá protected thì cũng như không? Nếu người ta muốn xoá thì mấy năm hồi

Mình không hiểu ý bạn. Bạn thử tải file đính kèm về xem và nhấn Insert dòng hoặc delete dòng, sẽ thấy nó khác mà

 

[Blad01]

Không bác nào giúp em vậy, trong VBA không làm được những yêu cầu của em sao.

 

[chuot0106]

Không bác nào giúp em vậy, trong VBA không làm được những yêu cầu của em sao.

Bạn dùng teamview ko?
Nếu dùng thì gửi ID và Pass lên đây.

 

[Blad01]

có bác ạ:
ID: 591 281 523
Pass: 7234

 

[ndu96081631]

Bạn dùng teamview ko?
Nếu dùng thì gửi ID và Pass lên đây.

[WARNING1]
Gửi chuột: Từ đây trở về sau, nếu bạn muốn teamview hay giúp đở riêng cho ai đó, vui lòng nhắn tin riêng chứ đừng gửi bài lên diễn đàn theo kiểu này nhé ---> Nó chẳng khác gì một dạng SPAM
Diễn đàn là nơi để chia sẻ kiến thức, mà đã gọi là chia sẻ thì tất cả đều công khai[/WARNING1]

 

[chuot0106]

[WARNING1]
Gửi chuột: Từ đây trở về sau, nếu bạn muốn teamview hay giúp đở riêng cho ai đó, vui lòng nhắn tin riêng chứ đừng gửi bài lên diễn đàn theo kiểu này nhé ---> Nó chẳng khác gì một dạng SPAM
Diễn đàn là nơi để chia sẻ kiến thức, mà đã gọi là chia sẻ thì tất cả đều công khai[/WARNING1]

Dạ em xin rút kinh nghiệm ạ!