Đăng ký học Excel và VBA cùng GPE tháng 10 - TPHCM

Đăng ký học Excel và VBA cùng GPE tháng 11 - TPHCM

Insert dong protected

Thảo luận trong 'Cơ sở dữ liệu' bắt đầu bởi bbc, 4 Tháng năm 2017.

  1. bbc

    bbc Thành viên hoạt động

    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
     

    Các file đính kèm:

  2. befaint

    befaint |||||||||||||

    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?
     
    bbc thích bài này.
  3. bbc

    bbc Thành viên hoạt động

    Đó 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
     
  4. quanluu1989

    quanluu1989 Thành viên gắn bó

    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.
     
    befaint thích bài này.
  5. quanluu1989

    quanluu1989 Thành viên gắn bó

    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.
     
  6. befaint

    befaint |||||||||||||

    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ó?
     
  7. befaint

    befaint |||||||||||||

    Còn tùy thuộc thiết lập protect những thuộc tính nào...
     
    Ba Tê thích bài này.
  8. Ba Tê

    Ba Tê Cạo Rồi Vẫn Gội

    Vậy mới biết sự "lợi hại" của Protect Sheet chứ.
     
    befaint thích bài này.
  9. bbc

    bbc Thành viên hoạt động

    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: 4 Tháng năm 2017
  10. PacificPR

    PacificPR Thành viên tích cực

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

    Các file đính kèm:

    HieuCD, bbcphulien1902 thích bài viết này.
  11. bbc

    bbc Thành viên hoạt động

    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 !
     
  12. PacificPR

    PacificPR Thành viên tích cực

    Ý là bạn hỏi trong Module và trong ThisWorkbook có phải vậy không
     
    bbc thích bài này.
  13. HieuCD

    HieuCD Thành viên gạo cội

    muốn nhanh thì bỏ For, chọn N dòng insert 1 lần và copy công thức 1 lần
     
    bbcPacificPR thích bài viết này.
  14. bbc

    bbc Thành viên hoạt động

    Vâng hiện em đang thấy có trong ThisWorkbook; Module1; Module2 và RibbonX_Code ạ
     
  15. PacificPR

    PacificPR Thành viên tích cực

    bbc thích bài này.
  16. bbc

    bbc Thành viên hoạt động

    Vậy code hoàn hảo sẽ là thế nào bác ?
     
  17. HieuCD

    HieuCD Thành viên gạo cội

    mình chỉ thấy vậy thôi, còn code hoàn hảo chắc không có
     
    befaint thích bài này.
  18. mrtq_86

    mrtq_86 Thành viên chính thức

    Bạn thử cái này coi
     

    Các file đính kèm:

Chia sẻ trang này