Tạo nút Mở Sheet

[phuyen89]

Em có sáng kiến thê này.Em làm một nút khóa Sheet,Em cũng làm một nút Mở Sheet trên đó.Nhung nút Mở Sheet này:Em muốn là khi nhấn nút này thì xuất hiên hộp Inputbox yeu câu nhập password thì mới cho Mở khóa Sheet.Password đó có thể khác "nam" không.Chăng hạn nhu "123456" cũng đưoc.Thì phai làm như thế nào

 

[MinhNguyệt]

Em có sáng kiến thê này.Em làm một nút khóa Sheet,Em cũng làm một nút Mở Sheet trên đó.Nhung nút Mở Sheet này:Em muốn là khi nhấn nút này thì xuất hiên hộp Inputbox yeu câu nhập password thì mới cho Mở khóa Sheet.Password đó có thể khác "nam" không.Chăng hạn nhu "123456" cũng đưoc.Thì phai làm như thế nào

Đây là code :

Private Sub Khoa_Click()
    Sheet1.Protect ("123456")
End Sub

Private Sub MoKhoa_Click()
    Pas = InputBox("Insert Password", "Password", "nam")
    If Pas = "123" Then
        Sheet1.Unprotect ("123456")
    Else
        MsgBox "Khong the mo", , "Xin Loi"
        Exit Sub
    End If
End Sub

 

[phuyen89]

Đây là code :

Private Sub Khoa_Click()
...
End Sub

Em đã làm theo.Nhưng cho em hỏi một điều bất cập là.Có thể là khi đóng Workbook lại là tự động Protect không?Bởi vì khi Mo khoá và khi đóng File.Excel yêu cầu có lưu hay không?Nếu Save thì lần sau mở lên thì nó không còn Protect!Còn cách nào để đáp ứng yêu cầu nay không?

 

[Hai Lúa Miền Tây]

Em đã làm theo.Nhưng cho em hỏi một điều bất cập là.Có thể là khi đóng Workbook lại là tự động Protect không?Bởi vì khi Mo khoá và khi đóng File.Excel yêu cầu có lưu hay không?Nếu Save thì lần sau mở lên thì nó không còn Protect!Còn cách nào để đáp ứng yêu cầu nay không?

Nếu vậy thì khi Open file đó lên bạn cho chạy Macro khoa là xong:

Private Sub Workbook_Open()
Sheet1.Protect ("123456")
End Sub

 

[MinhNguyệt]

Em đã làm theo.Nhưng cho em hỏi một điều bất cập là.Có thể là khi đóng Workbook lại là tự động Protect không?Bởi vì khi Mo khoá và khi đóng File.Excel yêu cầu có lưu hay không?Nếu Save thì lần sau mở lên thì nó không còn Protect!Còn cách nào để đáp ứng yêu cầu nay không?

Khi bạn bấm nút MoKhoa, rồi Save file, lần sau mở lại, sheet sẽ không bị khóa và ngược lại với nút Khoa

 

[phuyen89]

Phải làm như thế nào thì nó áp dung cho các Sheet.Hay là ở mỗi Sheet đều tạo 2 nút lện và gọi thủ tục.Như thế thi rườm rà qua.Có cách nào khác không?

 

[Hai Lúa Miền Tây]

Phải làm như thế nào thì nó áp dung cho các Sheet.Hay là ở mỗi Sheet đều tạo 2 nút lện và gọi thủ tục.Như thế thi rườm rà qua.Có cách nào khác không?

Bạn xem bài theo đường link bên dưới nhé
http://www.giaiphapexcel.com/forum/showthread.php?p=210352#post210352

 

[huuthang_bd]

Phải làm như thế nào thì nó áp dung cho các Sheet.Hay là ở mỗi Sheet đều tạo 2 nút lện và gọi thủ tục.Như thế thi rườm rà qua.Có cách nào khác không?

Vậy thì đưa nó vào Popup Menu luôn.
Trong file, click chuột phải, chọn Lock hay Unlock để khoá, mở sheet.
Mà không biết bạn làm cái này để làm gì nữa, sao ko sử dụng chức năng Protect - Unprotect của Excel luôn???

 

[khamha]

Đây là code :

Private Sub Khoa_Click()
    Sheet1.Protect ("123456")
End Sub

Private Sub MoKhoa_Click()
    Pas = InputBox("Insert Password", "Password", "nam")
    If Pas = "123" Then
        Sheet1.Unprotect ("123456")
    Else
        MsgBox "Khong the mo", , "Xin Loi"
        Exit Sub
    End If
End Sub

Chào các bạn,Cho mình hỏi là có cách nào liên kết dữ liệu khi đã khóa Sheet không,ví dụ:
Sheet 1 là Sheet nhập dữ liệu (mở khóa) và Sheet 2 là Sheet lưu dữ liệu (khóa) tức là khi ta nhập
dữ liệu vào Sheet 1 thì sẽ tự động lưu vào Sheet 2 (cái Code liên kết mình đã có rồi)
Cảm ơn các bạn nhiều.

 

[sealand]

bạn cứ làm bình thường đúng trình tự, có sao đâu.
-gỡ protect sheet lưu.
-chạy code liên kết lưu dữ liệu
-protect lại sheet luu

toàn bộ quy trình trên hoàn toàn do code đảm nhiệm. yêu cầu cơ bản là pass phải thống nhất với code
mình gõ 1 tay nên không nhấn kèm shift được, mong các bạn và BQT lượng thứ cho lỗi chính tả.