Cài mật khẩu

[letuongqt]

Nhờ các anh em trên diễn đàn giúp cho vấn đề sau : Có 1 danh sách để cho nhiều giáo viên nhập điểm vào . Yêu cầu là mỗi người khi nhập xong phần điểm của lớp mình thì bấm chuột vào 1 nút "xác nhận" nào đó , lúc này vùng mới vừa nhập (Chỉ vùng của GV đó) sẽ tạo một mật khẩu khoá các ô đã nhập này , còn các vùng chưa nhập thì giáo viên khác vẫn nhập được bình thường (không bị khoá ) . Mật khẩu này sẽ do 1 người quản lý danh sách cung cấp (Muốn sửa chữa phải nhập đúng mật khẩu ) . Có như vậy thì người nhập điểm sau sẽ không sửa được (do vô tình hay cố ý) điểm của người đã nhập trước đó . Xin nhờ các anh giúp đỡ . Xin cảm ơn .
(Tôi nhớ trên diên đàn này cũng có 1 bài tương tự như hình thức này , nhưng mật khẩu tự tạo sau 1 khoảng thời gian định sẵn ).

 

[ndu96081631]

Nhờ các anh em trên diễn đàn giúp cho vấn đề sau : Có 1 danh sách để cho nhiều giáo viên nhập điểm vào . Yêu cầu là mỗi người khi nhập xong phần điểm của lớp mình thì bấm chuột vào 1 nút "xác nhận" nào đó , lúc này vùng mới vừa nhập (Chỉ vùng của GV đó) sẽ tạo một mật khẩu khoá các ô đã nhập này , còn các vùng chưa nhập thì giáo viên khác vẫn nhập được bình thường (không bị khoá ) . Mật khẩu này sẽ do 1 người quản lý danh sách cung cấp (Muốn sửa chữa phải nhập đúng mật khẩu ) . Có như vậy thì người nhập điểm sau sẽ không sửa được (do vô tình hay cố ý) điểm của người đã nhập trước đó . Xin nhờ các anh giúp đỡ . Xin cảm ơn .
(Tôi nhớ trên diên đàn này cũng có 1 bài tương tự như hình thức này , nhưng mật khẩu tự tạo sau 1 khoảng thời gian định sẵn ).

Bạn thử vào:
Tools\Protection\Allow Users to Edit ranges
rồi nghiên cứu tiếp
Chú ý: Phải Protect Sheet nữa thì chức năng này mới có tác dụng!
Xem file nhé: Không cần code gì cả! Nhập xong save lại là được
(trò này học được của ca_dafi ---> mời anh ấy đi uống cafe là được rồi... Ẹc... Ec...)

 

[letuongqt]

Bạn thử vào:
Tools\Protection\Allow Users to Edit ranges
rồi nghiên cứu tiếp
Chú ý: Phải Protect Sheet nữa thì chức năng này mới có tác dụng!
Xem file nhé: Không cần code gì cả! Nhập xong save lại là được
(trò này học được của ca_dafi ---> mời anh ấy đi uống cafe là được rồi... Ẹc... Ec...)

Cảm ơn bạn rất nhiều . Nhưng tại sao bấm vào nút "xác nhận" hoặc save thì không được ? . Chỉ cần 1 mật khẩu chung cho người quản lý danh sách là được . Nếu người nào đó đã nhập xong vùng dữ liệu của mình thì bấm vào "Xác nhận" là xong . Xin bạn xem lại giúp , vấn đề này là rất thực tế và cần thiết trong nhà trường .

 

[Po_Pikachu]

Chưa hiểu ý bạn lắm thôi thì mình cho là nút "Xác nhận" sẽ là hoàn thành xong công việc kiêm luôn save dữ liệu lại. Và ta chỉ việc đóng file Excel đó lại là xong đúng không? À, file của bạn có con virus XL4Poppy đó. Bạn vào C:\Program FIles\Microsoft Office\OFFICE11\xlstart\ xóa đi file Book1 trong đó nếu có rồi mới mở file này lên nhé! Chúc vui! File: http://www.mediafire.com/?jzjhemmjbzg Thân.

 

[hoangvuluan]

Nhờ các anh em trên diễn đàn giúp cho vấn đề sau : Có 1 danh sách để cho nhiều giáo viên nhập điểm vào . Yêu cầu là mỗi người khi nhập xong phần điểm của lớp mình thì bấm chuột vào 1 nút "xác nhận" nào đó , lúc này vùng mới vừa nhập (Chỉ vùng của GV đó) sẽ tạo một mật khẩu khoá các ô đã nhập này , còn các vùng chưa nhập thì giáo viên khác vẫn nhập được bình thường (không bị khoá ) . Mật khẩu này sẽ do 1 người quản lý danh sách cung cấp (Muốn sửa chữa phải nhập đúng mật khẩu ) . Có như vậy thì người nhập điểm sau sẽ không sửa được (do vô tình hay cố ý) điểm của người đã nhập trước đó . Xin nhờ các anh giúp đỡ . Xin cảm ơn .
(Tôi nhớ trên diên đàn này cũng có 1 bài tương tự như hình thức này , nhưng mật khẩu tự tạo sau 1 khoảng thời gian định sẵn ).

Vấn đề của bạn đang được triển khai ở:
http://www.giaiphapexcel.com/forum/showthread.php?p=120837#post120837
bạn vào xem và cho ý kiến nhé!

 

[ongtrungducmx25]

Nhờ các anh em trên diễn đàn giúp cho vấn đề sau : Có 1 danh sách để cho nhiều giáo viên nhập điểm vào . Yêu cầu là mỗi người khi nhập xong phần điểm của lớp mình thì bấm chuột vào 1 nút "xác nhận" nào đó , lúc này vùng mới vừa nhập (Chỉ vùng của GV đó) sẽ tạo một mật khẩu khoá các ô đã nhập này , còn các vùng chưa nhập thì giáo viên khác vẫn nhập được bình thường (không bị khoá ) . Mật khẩu này sẽ do 1 người quản lý danh sách cung cấp (Muốn sửa chữa phải nhập đúng mật khẩu ) . Có như vậy thì người nhập điểm sau sẽ không sửa được (do vô tình hay cố ý) điểm của người đã nhập trước đó . Xin nhờ các anh giúp đỡ . Xin cảm ơn .
(Tôi nhớ trên diên đàn này cũng có 1 bài tương tự như hình thức này , nhưng mật khẩu tự tạo sau 1 khoảng thời gian định sẵn ).

mở bảng tính lên thì ta sẽ có một trang mới toanh, sao đó bạn khoanh vùng cần chọn để đặt mật khẩu là vào Tools\Protection\Allow Users to Edit ranges , chọn new ở thẻ range password : đặt mật khẩu gì đó tùy bạn thích ........chọn tiếp , tiếp đến bạn vào menu tools/protection /protection sheet...và đặt mật khẩu sao đó lưu lại. và bạn test thử xem sao nhé! chúc bạn thành công.

 

[letuongqt]

Vấn đề của bạn đang được triển khai ở:
http://www.giaiphapexcel.com/forum/showthread.php?p=120837#post120837
bạn vào xem và cho ý kiến nhé!

Cản ơn bạn . Tôi thấy bài của PiKaChu đúng với yêu cầu của mình . Xin nhờ hướng dẫn cách làm của PiKaChu để áp dụng vào file cụ thể của mình .

Chưa hiểu ý bạn lắm thôi thì mình cho là nút "Xác nhận" sẽ là hoàn thành xong công việc kiêm luôn save dữ liệu lại. Và ta chỉ việc đóng file Excel đó lại là xong đúng không?
À, file của bạn có con virus XL4Poppy đó. Bạn vào C:\Program FIles\Microsoft Office\OFFICE11\xlstart\ xóa đi file Book1 trong đó nếu có rồi mới mở file này lên nhé!
Chúc vui!
File: http://www.mediafire.com/?jzjhemmjbzg
Thân.

Rất đúng yêu cầu của mình , tuy nhiên bạn có thể hướng dẫn cho cách làm và làm sao tiêu đề lớp sử dụng được Autofile để lọc ra từng lớp để nhập . Xin cảm ơn rất nhiều .

 

[Po_Pikachu]

Do nút Xác nhận của bạn được làm bằng lệnh Button của Form. Nên để nó chạy được bạn cần gắn nó với 1 Macro. Để gắn nó với 1 Macro thì bạn nhấn phải chuột vào nó chọn Assign Macro -> Tiếp theo là chọn tên Macro cần gắn vào là được. Để tạo 1 Macro chạy 1 chuỗi sự kiện nào đó. Bạn có thể dùng tính năng Record New Macro (Tools -> Macro) để lưu lại những sự kiện hay việc gì đó bạn làm trên Excel. Hoặc tự tạo nếu bạn đã rành việc viết code trong VBA của Excel (Alt + F11). Bạn nhấn Alt + F11, sẽ xuất hiện cửa sổ VBA. Bạn nhấn phải chuột vào tên các Sheet bên trên chọn Insert -> Module. Khi trang Module mới hiện ra. Bạn copy đoạn code này vào:

Sub xacnhan() Sheet1.Unprotect "777" Sheet1.Protect "777" ThisWorkbook.Save End Sub

Sub xacnhan(): Là chỉ cho bạn biết đây là Macro tên là xacnhan Sheet1.Unprotect "777": Là lệnh mở khóa sheet1 (ở đây Sheet1 là tên Code chứ không phải tên Name ở cửa sổ bảng tính đâu) với pass là 777. Sheet1.Protect "777": Là lệnh khóa Sheet1 với pass là 777. Nhớ rằng pass mở và khóa là phải giống nhau đó. ThisWorkbook.Save: Là lệnh dùng để lưu file này lại. End Sub: Là lệnh kết thúc 1 Macro. Phần tên Sheet bên cửa sổ VBAProject bạn sẽ thấy có 2 phần được viết là Sheet1 (Sheet1). Vậy phần trong ngoặc là Sheet Name mà bạn sẽ thấy nó bên cửa sổ bảng tính. Còn phần phía trước là tên code do VBA xác nhận việc tên sheet. Và ở đây mình dùng tên code thay cho tên sheet Name bên bảng tính để người dùng tự ý thay đổi mà không ảnh hưởng đến code. Vậy bạn sẽ tự chọn và tự thay đổi cho phù hợp nha!

 

[ndu96081631]

Cảm ơn bạn rất nhiều . Nhưng tại sao bấm vào nút "xác nhận" hoặc save thì không được ? . Chỉ cần 1 mật khẩu chung cho người quản lý danh sách là được . Nếu người nào đó đã nhập xong vùng dữ liệu của mình thì bấm vào "Xác nhận" là xong . Xin bạn xem lại giúp , vấn đề này là rất thực tế và cần thiết trong nhà trường .

Tôi cũng không hiểu tại sao bạn lại làm cho vấn đề thêm phức tạp thế nhỉ? Đơn giản là khi đóng file, Save lại là được, cần gì bấm XÁC NHẬN chứ---> Động tác này có phải hơi bị thừa không?
Tôi thử nghiệm rất nhiều lần ---> Chỉnh sửa, Save bình thường, khỏi cần code gì cả
Pass chung tôi có ghi trong file rồi đấy, là 777 ---> Pass này là TOÀN QUYỀN

 

[letuongqt]

Tôi cũng không hiểu tại sao bạn lại làm cho vấn đề thêm phức tạp thế nhỉ? Đơn giản là khi đóng file, Save lại là được, cần gì bấm XÁC NHẬN chứ---> Động tác này có phải hơi bị thừa không?
Tôi thử nghiệm rất nhiều lần ---> Chỉnh sửa, Save bình thường, khỏi cần code gì cả
Pass chung tôi có ghi trong file rồi đấy, là 777 ---> Pass này là TOÀN QUYỀN

Cảm ơn anh , đúng là khi xem kỹ lại thì thấy thao tác này là thừa , bởi vì khi save và đóng file lại thì nó vẫn tự động khoá như thường . Nhưng ở đây ý em muốn rằng : Nếu 1 giáo viên không bấm vào nút xác nhận sau khi nhập điểm thì xem như khi mở file lên vùng của GV này là không bị khoá (Vùng nhập chỉ bị khoá lại khi và chỉ khi bấm vào nút "xác nhận" mà thôi) . Nhờ anh hướng dẫn giúp . Xin cảm ơn anh .

 

[aiquocxp]

Rất hay nhưng khi khoá vùng rồi dùng lệnh khoá nhiều sheet như Macro dưới thì lại mất tác dụng vì sau thế xin chỉ giúp chỗ sai. vì mình có nhiều sheet.

Option Explicit
Sub ProtectAllSheets()
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ThisWorkbook.Worksheets
Sh.Unprotect 11
Sh.Cells.Locked = False
With Sh.Cells.SpecialCells(3, 23)
.Locked = True
.FormulaHidden = True
End With
Sh.Protect 11, AllowFormattingRows:=True
Next
End Sub
Sub UnProtectAllSheet()
  Dim Sh As Worksheet
  On Error Resume Next
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Unprotect 11
    Sh.Cells.Locked = True
    Sh.Cells.FormulaHidden = False
  Next
End Sub

 

[ndu96081631]

Rất hay nhưng khi khoá vùng rồi dùng lệnh khoá nhiều sheet như Macro dưới thì lại mất tác dụng vì sau thế xin chỉ giúp chỗ sai. vì mình có nhiều sheet.

Option Explicit
Sub ProtectAllSheets()
Dim Sh As Worksheet
On Error Resume Next
For Each Sh In ThisWorkbook.Worksheets
Sh.Unprotect 11
Sh.Cells.Locked = False
With Sh.Cells.SpecialCells(3, 23)
.Locked = True
.FormulaHidden = True
End With
Sh.Protect 11, AllowFormattingRows:=True
Next
End Sub
Sub UnProtectAllSheet()
  Dim Sh As Worksheet
  On Error Resume Next
  For Each Sh In ThisWorkbook.Worksheets
    Sh.Unprotect 11
    Sh.Cells.Locked = True
    Sh.Cells.FormulaHidden = False
  Next
End Sub

Tôi vẫn thấy chạy bình thường mà... Tôi lấy file ở trên và chèn code của bạn vào... bạn kiểm tra xem nhé

 

[aiquocxp]

Anh hay mở các sheet ra bằng Macro rồi đóng nó lại cũng bằng Macro em đưa thì nó mất tác dụng anh ơi

 

[ndu96081631]

Anh hay mở các sheet ra bằng Macro rồi đóng nó lại cũng bằng Macro em đưa thì nó mất tác dụng anh ơi

Tôi thấy rồi... Đó là vì trong code của bạn chỉ khóa cell chứa công thức, các cell khác cho nhập thoải mái
Vậy với file tôi gữi ở trên, bạn chỉ cần thêm đoạn Lock cell tại vùng mà bạn muốn phân quyền
Ví dụ: Thêm đoạn: Range("C3:I14").Locked = True

With Sh.Cells.SpecialCells(3, 23)
.Locked = True
.FormulaHidden = True
End With
Sh.Range("C3:I14").Locked = True

Tuy nhiên nếu làm vậy thì vùng Range("C3:I14") trên toàn bộ các sheet đều có tác dụng giống nhau... Bạn lưu ý điều này nhé

 

[aiquocxp]

Như vậy là phải xài pass đó luôn, giáo viên không tự đổi pass được, khổ thân àh nhe anh ơi

 

[ndu96081631]

Như vậy là phải xài pass đó luôn, giáo viên không tự đổi pass được, khổ thân àh nhe anh ơi

Giáo viên tự đổi pass là thế nào nhỉ?
- Bạn là người phân quyền thì bạn giao pass cho từng người, mỗi người 1 pass khác nhau
- Nếu họ tự đổi được thì người chết là bạn ấy chứ
- Và đương nhiên khi nào ai đó muốn đổi pass phải thông qua bạn trước
Tôi nghĩ thế thì quy trình mới chuẩn

 

[aiquocxp]

một lớp học có 13 môn học, một trường có 64 lớp gồm 143 giáo viên như trường em chắc cấp mỗi người 1 cái chắc mệt quá.
Ý em là cấp 1 cái chung rồi họ tự quản lý từng môn của họ ấy mà

 

[Po_Pikachu]

Bạn có hai cách: 1/ Cấp file theo lớp. Tất nhiên file này tất cả các giáo viên điều có pass để chỉnh sữa điểm và quyền cao nhất thì thuộc về bạn. File có thể tạo được 2 cấp độ Password. Một, là password toàn quyền; và một là pass vùng: cái này thì bạn có thể chia sẽ cho các giáo viên ấy. 2/ Mỗi giáo viên 1 file riêng và họ được toàn quyền chỉnh sữa trong đó. Và họ cũng tự tạo password riêng cho mình luôn. Và cuối học kỳ hoặc 1 thời điểm nào đó bạn muốn thông kê thì yêu cầu tất cả các giáo viên gửi dữ liệu về và không đặt pass (hoặc mở ra sẵn cho bạn làm việc). Vậy được không? Thân.