Hỏi về password open Sheet excel 2010

[tiennam]

Dear all!
Trên diễn đàn đã có nhiều bài về đặt password Open cho file excel, giờ mình muốn đặt password Open cho sheet excel thì làm ntn?
Các cách trước đây đều chỉ khóa ô, ẩn công thức... chứ k khóa open được sheet

 

[quanluu]

Dear all!
Trên diễn đàn đã có nhiều bài về đặt password Open cho file excel, giờ mình muốn đặt password Open cho sheet excel thì làm ntn?
Các cách trước đây đều chỉ khóa ô, ẩn công thức... chứ k khóa open được sheet

KO có đâu bạn, với sheet thì chỉ có Protect thui.

 

[nghiaphuc]

Dear all!
Trên diễn đàn đã có nhiều bài về đặt password Open cho file excel, giờ mình muốn đặt password Open cho sheet excel thì làm ntn?
Các cách trước đây đều chỉ khóa ô, ẩn công thức... chứ k khóa open được sheet

Bạn thử cách này xem, nhưng nói trước là cách này chỉ làm cho vui thôi chứ nó chẳng có ý nghĩa gì nếu người khác vẫn cố tình mở.
Cách 1: Sử dụng code cho đối tượng Sheet (sử dụng nếu chỉ muốn đặt password cho 1 sheet):
[GPECODE=vb]Private Sub Worksheet_Activate()
Application.Visible = False
If InputBox("Nhap Password de mo sheet:") <> "abc" Then
MsgBox "Sai password!"
Sheet1.Activate
End If
Application.Visible = True
End Sub[/GPECODE]
Cách 2: Sử dụng code cho đối tượng ThisWorkbook (sử dụng nếu muốn đặt password cho nhiều sheet):
[GPECODE=vb]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Sheet3" Then
Application.Visible = False
If InputBox("Nhap Password de mo sheet:") <> "gpe" Then
MsgBox "Sai password!"
Sheet1.Activate
End If
End If
Application.Visible = True
End Sub[/GPECODE]
Chi tiết xem trong file đính kèm.

 

[tiennam]

Bạn thử cách này xem, nhưng nói trước là cách này chỉ làm cho vui thôi chứ nó chẳng có ý nghĩa gì nếu người khác vẫn cố tình mở.
Cách 1: Sử dụng code cho đối tượng Sheet (sử dụng nếu chỉ muốn đặt password cho 1 sheet):
[GPECODE=vb]Private Sub Worksheet_Activate()
Application.Visible = False
If InputBox("Nhap Password de mo sheet:") <> "abc" Then
MsgBox "Sai password!"
Sheet1.Activate
End If
Application.Visible = True
End Sub[/GPECODE]
Cách 2: Sử dụng code cho đối tượng ThisWorkbook (sử dụng nếu muốn đặt password cho nhiều sheet):
[GPECODE=vb]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Sheet3" Then
Application.Visible = False
If InputBox("Nhap Password de mo sheet:") <> "gpe" Then
MsgBox "Sai password!"
Sheet1.Activate
End If
End If
Application.Visible = True
End Sub[/GPECODE]
Chi tiết xem trong file đính kèm.

Ngon luôn bác ạ, nhưng sao sheet 3 viewcode lại không thấy gì thế bác?

 

[nghiaphuc]

Ngon luôn bác ạ, nhưng sao sheet 3 viewcode lại không thấy gì thế bác?

Nó nằm ở trong đối tượng ThisWorkbook ấy, mình cố tình đưa nó vào đấy để phù hợp với cách giải quyết thứ 2.
Cái này chỉ là làm cho vui thôi mà, chứ người khác mà đã cố tình mở thì mấy cái bẫy lặt vặt ấy ăn thua gì đâu.