Insert dong protected

Liên hệ QC

bbc

Thành viên hoạt động
Tham gia
13/1/07
Bài viết
112
Được thích
23
Dear anh chị,

Em muốn insert thêm 5 dòng dưới dòng 16.
Đồng thời copy công thức của dòng 16 vào 5 dòng mới.
Cột D-E-F là protected.

Anh chị giúp em nhé

Em cảm ơn
 

File đính kèm

  • 17 Insert them dong copy cong thuc dong san co.xlsx
    10.5 KB · Đọc: 17
Dear anh chị,

Em muốn insert thêm 5 dòng dưới dòng 16.
Đồng thời copy công thức của dòng 16 vào 5 dòng mới.
Cột D-E-F là protected.

Anh chị giúp em nhé

Em cảm ơn
Bạn khóa bảng tính lại rồi thì sao gán công thức vào được? Gán công thức ở 5 dòng mới thuộc cột nào?
 
  • Thích
Reactions: bbc
Bạn khóa bảng tính lại rồi thì sao gán công thức vào được? Gán công thức ở 5 dòng mới thuộc cột nào?

Đó vấn đề của mình là các cột bị protect rồi, nhưng vẫn insert 5 dòng từ cột B-M.

Vì nếu ko protect thì các user lỡ tay xóa công thức ở cột D-E-F.

Thanks bạn
 
Đó vấn đề của mình là các cột bị protect rồi, nhưng vẫn insert 5 dòng từ cột B-M.

Vì nếu ko protect thì các user lỡ tay xóa công thức ở cột D-E-F.

Thanks bạn
Khi protect sheet nó vẫn cho insert row, vấn đề ở đây là copy công thức xuống. Như vậy người insert phải gõ nguyên công thức xuống thui.
 
Đó vấn đề của mình là các cột bị protect rồi, nhưng vẫn insert 5 dòng từ cột B-M.

Vì nếu ko protect thì các user lỡ tay xóa công thức ở cột D-E-F.

Thanks bạn
Khi protect sheet nó vẫn cho insert row, vấn đề ở đây là copy công thức xuống. Như vậy người insert phải gõ nguyên công thức xuống thui.
 
Đó vấn đề của mình là các cột bị protect rồi, nhưng vẫn insert 5 dòng từ cột B-M.

Vì nếu ko protect thì các user lỡ tay xóa công thức ở cột D-E-F.

Thanks bạn
Cái chỗ màu đỏ cho dù không protect thì cũng chịu, không làm nổi.

Bạn khóa bảng tính lại rồi thì giờ làm gì với nó?
 
Hi cả nhà,

Em thấy chạy Macro được nhưng Protect ko có password (người dùng ko lỡ tay xóa công thức được)

Sub Macro2()

ActiveSheet.Unprotect
Rows("16:16").Select
Range("D16").Activate
Selection.Copy
Rows("16:22").Select
Selection.Insert Shift:=xlDown
Range("D16").Activate
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowInsertingRows:=True
End Sub


Cho em hỏi, em muốn khi chạy macro sẽ có 1 bảng hiện lên hỏi muốn insert bao nhiêu dòng , thì làm thế nào ạ

Em cảm ơn
 
Lần chỉnh sửa cuối:
Hi cả nhà,

Em thấy chạy Macro được nhưng Protect ko có password (người dùng ko lỡ tay xóa công thức được)

Cho em hỏi, em muốn khi chạy macro sẽ có 1 bảng hiện lên hỏi muốn insert bao nhiêu dòng , thì làm thế nào ạ

Em cảm ơn
Bạn xem thử File. (Code chạy hơi chậm)
 

File đính kèm

  • 17 Insert them dong copy cong thuc dong san co_3-.rar
    11.6 KB · Đọc: 17
Bạn xem thử File. (Code chạy hơi chậm)

Hay quá ! Thanks bác nhiều ạ !

Cho em hỏi chút trong code của bác có Workbook - Open; General - Declarations; General- Chendong

Là mình dùng cả 3 đoạn đó hay chỉ dùng 1 General - Chendong thôi ạ.

Bác có thể cho em biết Workbook- Open và General- Declarations có ý nghĩa gì ko ạ

Cảm ơn bác nhiều !
 
Ý là bạn hỏi trong Module và trong ThisWorkbook có phải vậy không
 
  • Thích
Reactions: bbc
Bạn thử cái này coi
 

File đính kèm

  • 17 Insert them dong copy cong thuc dong san co.xlsm
    31.8 KB · Đọc: 12
Web KT
Back
Top Bottom