Sử dụng User và Pass

Liên hệ QC

ontopoftheworld

Am a Peasant Guy
Tham gia
17/3/07
Bài viết
109
Được thích
182
ongtrungducmx25 đã viết:
xin cho hỏi thêm nếu mình đăng nhập xong, soạn thảo một đoạn văn bản rồi mình muốn save vào thì cũng có "login" để save để người khác không sửa được nội dung của mình, nếu cố ý sửa nội dung của mình thì phải biết tên và password thì mới save được nhé!/quote]

Em nghĩ là được nhưng nếu là em thi em dùng inputnox. chỉ cần nhập pass thôi. nếu đúng thì cho lưu, còn không thì không cho lưu(có điều như vậy thì không chuyên nghiệp bác nhỉ). Nếu dùng InputBox hay FrmLogin thì bác thì chỉ cần thêm cái sự kiện Workbook_BeforeSave là được mà.
 
bạn "ontopoftheworld " làm file đó cho mình đi mình không biết inputBox hay frmlogin đâu bạn gởi lên cho mình nhé! thank
 
Upvote 0
ongtrungducmx25 đã viết:
bạn "ontopoftheworld " làm file đó cho mình đi mình không biết inputBox hay frmlogin đâu bạn gởi lên cho mình nhé! thank
Mời anh Thầy ghé vào đây tham khảo xem có giúp ích gì được cho Thầy không
HTML:
http://www.giaiphapexcel.com/forum/showthread.php?t=3460
Thân!
TDN
 
Upvote 0
cái này của phước:

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As String
On Error GoTo Done
lReply = InputBox("Sorry, you are not allowed to save this workbook as another name. " _
& Chr(13) & "Do you wish to save this workbook.", "Input Password")
If lReply = "tedaynui" Then Exit Sub
Done:
Cancel = True
End Sub

thì Thầy không biết cho text box để xác định như thế nào! em viết cho thầy một file để tham khảo nhé!thank​
 
Upvote 0
ongtrungducmx25 đã viết:
cái này của phước:

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As String
On Error GoTo Done
lReply = InputBox("Sorry, you are not allowed to save this workbook as another name. " _
& Chr(13) & "Do you wish to save this workbook.", "Input Password")
If lReply = "tedaynui" Then Exit Sub
Done:
Cancel = True
End Sub​


thì Thầy không biết cho text box để xác định như thế nào! em viết cho thầy một file để tham khảo nhé!thank​
Trên cở sở đoạn mã này, em thử thế này không biết có dùng được không nhỉ? Chỉ có điều khi Save As và cho tới khi yêu cầu nhập Key để lưu file dưới 1 cái tên khác mà nhấn Ctrl + Break thì cũng như không.
Các bác cho thể bố trí code sao có nhấn Ctrl +Break thì cũng không thể Save As được.(cho em học hỏi với). Chứ em hoa mắt rồi(em dùng if ..end if nhiều wá, thấy cũng không khả thi chút nào)
 

File đính kèm

Upvote 0
ontopoftheworld đã viết:
Trên cở sở đoạn mã này, em thử thế này không biết có dùng được không nhỉ? Chỉ có điều khi Save As và cho tới khi yêu cầu nhập Key để lưu file dưới 1 cái tên khác mà nhấn Ctrl + Break thì cũng như không.
Các bác cho thể bố trí code sao có nhấn Ctrl +Break thì cũng không thể Save As được.(cho em học hỏi với). Chứ em hoa mắt rồi(em dùng if ..end if nhiều wá, thấy cũng không khả thi chút nào)
Chào bạn
Mình xin phép mượn Code của bạn và sửa lại đôi chút, bạn test lại xem sao nhé
Mã:
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
Cancel = True
If SaveAsUI = True Then
        If lReply = vbYes Then
            Ans = InputBox("De luu file bang ten khac. Ban phai nhap Key ")
            If Ans = 833486 Then Cancel = True
        End If
 Else
    'MsgBox " Ban khong the sua doi file nay", vbCritical, "Warning"
     Ans = InputBox("De luu lai, Ban phai nhap key!")
        If Ans = 833486 Then
            Cancel = False
            SaveAsUI = True
            MsgBox "Su thay doi da duoc luu lai", vbInformation
        Else
            MsgBox " Su thay doi khong duoc luu lai", vbInformation
        End If
End If
End Sub
Thân!
TDN
 
Upvote 0
Mã:
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim lReply As Long
Cancel = True
If SaveAsUI = True Then
      [COLOR=red]lReply = MsgBox("Rat tiec, Ban khong duoc phep luu lai file nay bang mot ten khac." _
& "Ban muon luu lai khong?!", vbQuestion + vbYesNo, "Warning")[/COLOR]
        If lReply = vbYes Then
            Ans = InputBox("De luu file bang ten khac. Ban phai nhap Key ")
            If Ans = 833486 Then Cancel = [COLOR=red]False[/COLOR]
        End If
 Else
    'MsgBox " Ban khong the sua doi file nay", vbCritical, "Warning"
     Ans = InputBox("De luu lai, Ban phai nhap key!")
        If Ans = 833486 Then
            Cancel = False
            SaveAsUI = True
            MsgBox "Su thay doi da duoc luu lai", vbInformation
        Else
            MsgBox " Su thay doi khong duoc luu lai", vbInformation
        End If
End If
End Sub

Bác cho em thêm cái dòng đo đỏ vào nhá. Chứ không cái thằng "Save as " Nó trơ ra khi đụng tới nó. Như vậy là ổn rồi bác ạ, thao tác Ctrl+Break cũng loại bỏ được nó. Chỉ còn có cách nào không cho người dùng xóa file thôi. Cám ơn bác nhiều. gọn gàng lắm bác ạ./.
 
Lần chỉnh sửa cuối:
Upvote 0
ontopoftheworld đã viết:
Bác cho em thêm cái dòng đo đỏ vào nhá. Chứ không cái thằng "Save as " Nó trơ ra khi đụng tới nó.
Hi hi, vì code và chú thích chằng chịt quá nên chép lại cho gọn. Nào ngờ bị thiếu. Xin lỗi nhé.

TDN
 
Upvote 0
Em nào thích chằng chịt đâu. Tại trình độ còn ở lớp mầm nên nó thế bác ạ. Đang cố gắng theo các bác đấy chứ.
 
Upvote 0
ontopoftheworld đã viết:
ongtrungducmx25 đã viết:
xin cho hỏi thêm nếu mình đăng nhập xong, soạn thảo một đoạn văn bản rồi mình muốn save vào thì cũng có "login" để save để người khác không sửa được nội dung của mình, nếu cố ý sửa nội dung của mình thì phải biết tên và password thì mới save được nhé!/quote]

Em nghĩ là được nhưng nếu là em thi em dùng inputnox. chỉ cần nhập pass thôi. nếu đúng thì cho lưu, còn không thì không cho lưu(có điều như vậy thì không chuyên nghiệp bác nhỉ). Nếu dùng InputBox hay FrmLogin thì bác thì chỉ cần thêm cái sự kiện Workbook_BeforeSave là được mà.

Yêu cầu có vẻ lằng nhằng quá! :-=

Tốt nhất là bạn dùng chức năng Password protect của Screen Saver của Window cho AN TOÀN.
 
Upvote 0
PhanTuHuong đã viết:
Tốt nhất là bạn dùng chức năng Password protect của Screen Saver của Window cho AN TOÀN.
Vậy bác Hướng cập nhật cho em cái chức này với. Vùng sâu vùng xa nên thiếu kiến thức quá bác ạ&&&%$R .
Cám ơn bác nhiều.
 
Upvote 0
ontopoftheworld đã viết:
Vậy bác Hướng cập nhật cho em cái chức này với. Vùng sâu vùng xa nên thiếu kiến thức quá bác ạ&&&%$R .
Cám ơn bác nhiều.
Bạn click phải lên desktop / chọn Propeties sẽ hiện Display Properties / Chọn Tab Screen Saver / Chọn 1 Screen saver nào đó và nhớ đánh dấu chọn vào ô vuông On resume, password protect, định thời gian chờ (Wait) tùy ý bạn. Sau đó OK. Khi bạn không sử dụng máy tính trong 1 khoảng thời gian (Wait) thì Windows sẽ chạy Screen saver. Khi muốn sử dụng máy tính, bạn phải nhập Password mà bạn đã đăng nhập Windows (Tùy theo Admin hoặc User)

Thân
TDN
 
Upvote 0
Ủa, mấy bác ơi,
File trên chỉ read only và không cho lưu tên mới nếu không có password,
nhưng mà mình chọn sheet1 -> sheet4 , rùi Move or Copy sang 1 new book thì ok, Túm lại là tính năng read only để làm gì vậy ???
Thanks
 
Upvote 0
Hề hề, đặt cho vui thôi, chứ bạn tham gia ở đây một thời gian thì có lẽ mấy cái đó bạn bếit í mà. cái "readonly status"là chỉ cho sài file khi có cái Pass gõ vào thôi. chứ để lấy số liệu thì như bạn nói copy là đuợc mà.
 
Upvote 0
vumian đã viết:
Ủa, mấy bác ơi,
File trên chỉ read only và không cho lưu tên mới nếu không có password,
nhưng mà mình chọn sheet1 -> sheet4 , rùi Move or Copy sang 1 new book thì ok, Túm lại là tính năng read only để làm gì vậy ???
Thanks
Chào Quân
Mấy code trên là để không cho thay đổi dữ liệu của mình thôi. Nếu muốn chống Move or Copy thì ông bạn dùng thêm 2 Sub này nữa có thể như ý :
Mã:
Private Sub Worksheet_Deactivate()
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub

Mã:
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub
Thân!
TDN
 
Upvote 0
tedaynui đã viết:
Chào Quân
Mấy code trên là để không cho thay đổi dữ liệu của mình thôi. Nếu muốn chống Move or Copy thì ông bạn dùng thêm 2 Sub này nữa có thể như ý :
Mã:
Private Sub Worksheet_Deactivate()
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub

Mã:
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub
Thân!
TDN

Còn có 1 giải pháp chống tạo ra 1 sheet mới (= cách right click mouse) nữa đấy. Bác nghiên cứu nhé
(gợi ý : Sh mới được tạo ra luôn có tên là Sheet . . . )

Thân!
 
Upvote 0
Còn có 1 giải pháp chống tạo ra 1 sheet mới (= cách right click mouse) nữa đấy. Bác nghiên cứu nhé
(gợi ý : Sh mới được tạo ra luôn có tên là Sheet . . . )
Vậy cho hỏi: Nếu người ta ko tạo Sheet mới trên file hiện hành mà Move or Copy sang file khác thì sao?
ANH TUẤN
 
Upvote 0
anhtuan1066 đã viết:
Vậy cho hỏi: Nếu người ta ko tạo Sheet mới trên file hiện hành mà Move or Copy sang file khác thì sao?
ANH TUẤN
Là cái này nè anh Tuấn ơi
Mã:
Private Sub Worksheet_Deactivate()
    Application.CutCopyMode = False
    Application.CellDragAndDrop = False
End Sub
Thân!
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom