Xin cách Khoá In Trong Bảng Tính

[ManhHungMHNH]

Nhờ mọi người viết macro cho phương pháp In trong bảng Tính Excel ( Phương Pháp khoá in theo mục đích)

 

[tedaynui]

bạn dùng sự kiện BeforePrint trong ThisWorkbook
Cho Cancel = True

TDN

 

[ongtrungducmx25]

Thế muốn in một sheet thì người ta phải gõ đúng mật khẩu thì mới cho in khi đó viết code như thế nào vậy Thầy Phước! chỉ giùm em với.Thank

 

[Po_Pikachu]

Bác dùng code này nè! Lưu trong ThisWorkbook nha.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If "pass" <> Application.InputBox("Nhap pass vao: ", Type:=2) Then
MsgBox ("Ban nhap khong dung pass rui!")
Cancel = True
End If
End Sub

Thân.

 

[ndu96081631]

Thế muốn in một sheet thì người ta phải gõ đúng mật khẩu thì mới cho in khi đó viết code như thế nào vậy Thầy Phước! chỉ giùm em với.Thank

Thì cũng dùng sự kiện Workbook_BeforePrint thôi ---> bạn thêm InputBox vào, đại khái thế này:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If InputBox("Nhap Pass") <> "1234" Then
    Cancel = True
    MsgBox "Nhap sai pass roi"
  End If
End Sub