Làm sao khóa tất cả các sheet bằng code

[thanhtratt]

Mình có 1 file excel có rất nhiều sheet mình muốn dùng 1 macro khóa lại tất cả các sheet, chỉ cho nhập liệu không cho sửa chửa công thức. Xin cám ơn.

 

[thanhdatx2bk]

Mục đích cuối cùng của bạn trong việc chọn các sheet là để làm gì? Để in chăng? Không cần phải chọn tất cả các sheet vẫn in được mà
Dạ đúng rồi thầy, mục đích của em là chỉ cần 1 lệnh tắt cho macro sẽ in tất cả các sheet có trong file ạ.

 

[befaint]

cần 1 lệnh tắt cho macro sẽ in tất cả các sheet có trong file

Sub InInVaIn()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible Then
            ws.PrintOut
        End If
    Next ws
End Sub

 

[thanhdatx2bk]

Mục đích cuối cùng của bạn trong việc chọn các sheet là để làm gì? Để in chăng? Không cần phải chọn tất cả các sheet vẫn in được mà

Dạ đúng rồi thầy, mục đích cuối cùng của em là phục vụ việc in ấn, em muốn tối ưu chỉ dùng 1 phím tắt có thể in tất cả các sheet có trong file

Bài đã được tự động gộp: 11/9/18

Sub InInVaIn()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible Then
            ws.PrintOut
        End If
    Next ws
End Sub

Nếu in pdf dùng code của bác ứng với 5 sheet nó xuất ra thành 5 file pdf. có cách nào gộp chúng lại thành 1 file không bác. em cảm ơn

 

[befaint]

gộp

PDFill

 

[Trongnghiakute]

Hi, em cảm ơn thầy.
Thầy ơi em có 1 câu hỏi nữa ạ: muốn sử dụng 2 code này mình phải tạo button ở 1 sheet bất kì ạ?

bạn ơi hướng dẫn lại bài này được không ạ