Tạo form đăng nhập trong Excel

[truongminhthi999]

Chào các bạn! Mình có làm một bài Excel tạo form đăng nhập nhưng mình chưa tạo được form thay đổi thông tin đăng nhập khi đăng nhập đúng. Do đó, khi muốn thay đổi phải mở Vba lên để mà thay đổi trong đó. Rất là phiền phức. Bạn nào biết thì chỉ dùm nhe. Tải file đính kèm xem thử nhe!
Xin cám ơn.
Liên lạc với mình qua truongminhthi999@gmail.com

 

[nguoinhen04]

Mail của em là :
nguoinhen04@yahoo.com.
Xin cảm ơn anh.

 

[Hoàng Trọng Nghĩa]

Mail của em là :
nguoinhen04@yahoo.com.
Xin cảm ơn anh.

Tôi vừa mới gửi mail cho bạn. Tham khảo nhé.

 

[nguoinhen04]

Xin cảm ơn anh nhiều.
Chúc 1 ngày mới vui vẻ.

 

[Kiều Mạnh]

Đơn giản là như vầy, tạo một module rồi chép thủ tục dưới đây vào trong đó:
Chép trong ThisWorkbook thủ tục của sự kiện Open:

Private Sub Workbook_Open()
    On Error Resume Next
    [COLOR=#0000ff]''Thoi han su dung:[/COLOR]
    If Date > DateSerial([COLOR=#ff0000][SIZE=3][B]2014, 3, 12[/B][/SIZE][/COLOR]) Then
        MsgBox "Het han su dung"
        GoTo ExitSub
    [COLOR=#0000ff]''Kiem tra so series, neu dung may minh moi cho mo file:[/COLOR]
    ElseIf ReadSeriesNumber <> MyComputerSeries Then
        MsgBox "May nay khong duoc quyen su dung"
        GoTo ExitSub
    Else
        MsgBox "Ban da xem duoc file!"
    End If
    Exit Sub
ExitSub:
    If Workbooks.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Close False
    End If
End Sub

Lâu ngày lục lại bài của Bạn nghĩa ôn lại một tí
Dòng Date chữ to màu đỏ giả thiết đến ngày đó người ta vào Control Panel chỉnh lùi lại ngày thì có giải pháp nào khắc phục được không Bạn...
(Điều Kiện Không chỉnh code và Mcros đã Enable)

 

[Hoàng Trọng Nghĩa]

Lâu ngày lục lại bài của Bạn nghĩa ôn lại một tí
Dòng Date chữ to màu đỏ giả thiết đến ngày đó người ta vào Control Panel chỉnh lùi lại ngày thì có giải pháp nào khắc phục được không Bạn...
(Điều Kiện Không chỉnh code và Mcros đã Enable)

Cái này không chỉ ở Excel mà các phần mềm khác cũng dính chưởng vụ chỉnh ngày giờ hệ thống với các bản Demo.

Thường là người ta so sánh vừa ngày giờ hệ thống, vừa ngày giờ Internet. Nhưng giả thiết đặt ra là không kết nối mạng thì lấy gì so sánh?

Cho nên trong trường hợp như thế thì bó tay toàn tập, hoặc ngoài sức của tôi.

 

[vdbang]

Cho hỏi anh Nghĩa
File Quyendangnhap sau khi tạo ra 9 user thì nó nằm lộn xộn và chồng lên nhau. Mình làm sao để sắp xếp theo thứ tự để nhìn cho đẹp mắt. Nhờ anh giúp nhe. Thanks

 

[pinklove]

Cho hỏi anh Nghĩa
File Quyendangnhap sau khi tạo ra 9 user thì nó nằm lộn xộn và chồng lên nhau. Mình làm sao để sắp xếp theo thứ tự để nhìn cho đẹp mắt. Nhờ anh giúp nhe. Thanks

Bạn Unprotect sheet rồi dùng chuột kéo các nút lại vị trí mình muốn một cách thủ công. Vì hiện tại a Nghĩa đang quy định mỗi khi tạo sheet/user mới thì nó nằm ở đâu đó trên cột N. Kinh nghiệm của mình là tạo các sheet data trước, sau đó chỉnh sửa rồi mới tạo lần lượt từng user vì ở các user mới vị trí của các nút sẽ giống với vị trí đã đặt ở user Admin. Nếu bạn không thích cũng làm tương tự ở các sheet User Home để chỉnh sửa vị trí các nút theo ý muốn.

 

[vdbang]

pinklove ơi cho mình hỏi, File Quyendangnhap mình tải xuống, mình không có pass để Unprotect. Bạn biết chỉ mình với

 

[pinklove]

pinkloveơi cho mình hỏi, File Quyendangnhap mình tải xuống, mình không có pass để Unprotect. Bạn biết chỉ mình với

Bạn tải file ở chỗ nào. Đọc kỹ bài viết đính kém file nhé.

 

[iloveit]

Cái này không chỉ ở Excel mà các phần mềm khác cũng dính chưởng vụ chỉnh ngày giờ hệ thống với các bản Demo.

Thường là người ta so sánh vừa ngày giờ hệ thống, vừa ngày giờ Internet. Nhưng giả thiết đặt ra là không kết nối mạng thì lấy gì so sánh?
Cho nên trong trường hợp như thế thì bó tay toàn tập, hoặc ngoài sức của tôi.

Giả sử họ chỉnh ngày giờ hệ thống đi nhưng nếu trong file có sử dụng đến cái hàm ngày tháng thì ứng dụng cũng chạy sai theo. Như vậy việc sử dụng ứng dụng đó k còn ý nghĩa nữa.

Ngoài ra khi thay đổi ngày giờ hệ thống thỉ cũng không vào google được ( tôi đã từng bị ).

 

[thec]

Trong file đó, bạn tạo thêm 1 module (tôi gọi là ModuleSeries) và chép vào hàm này:

Function ReadSeriesNumber()
    With CreateObject("Scripting.FileSystemObject")
        With .GetDrive(Environ("SystemDrive"))
            If .IsReady Then
                ReadSeriesNumber = Abs(.Serialnumber)
            Else
                ReadSeriesNumber = -1
            End If
        End With
    End With
End Function

Sau đó dùng hàm đó để kiểm tra máy của bạn có Series là bao nhiêu.

dùng thủ tục này để kiểm tra:

Sub test()
    Debug.Print ReadSeriesNumber
End Sub

Sau khi có số series, bạn đặt câu màu đỏ này lên trên cùng của ModuleSeries


Public Const YourSeries As Long = 1964788159 '<<< Số series của máy tính bạn thay cho số này.

Bây giờ, code của sự kiện Open sẽ như sau:

Private Sub Workbook_Open()
    On Error Resume Next
    If Date >= DateSerial(2010, 6, 20) Then
        MsgBox "Het han su dung"
        Call KillFile 'Hoac thay bang Application.Quit
[COLOR=#0000ff]    ElseIf [/COLOR][COLOR=#ff0000]ReadSeriesNumber <> YourSeries[/COLOR][COLOR=#0000ff] Then[/COLOR]
[COLOR=#0000ff]        MsgBox "May nay khong duoc quyen su dung"[/COLOR]
[COLOR=#0000ff]        Call KillFile 'Hoac thay bang Application.Quit[/COLOR]
    Else
        Call StructureUnLock
        With Home
            .Select
            .cmdAdmin.Enabled = False
            .cmdUser1.Enabled = False
            .cmdUser2.Enabled = False
            .cmdUser3.Enabled = False
        End With
        Application.ScreenUpdating = False
        Dim sh As Worksheet
        For Each sh In ThisWorkbook.Worksheets
            If sh.CodeName <> "Home" Then
                sh.Visible = xlSheetVeryHidden
            End If
        Next
        UsfUser.Show
    End If
End Sub

Cái Call StructureUnLock nó ở đâu chú Nghiã nhể

 

[quoctkcb2011]

A Hoàng Trong Nghia ơi sao em tải ve khong dung duoc

Đây là file "Demo" cho bạn dùng thử chơi cho vui nè! Mọi password đều là HoangTrongNghia.

Trong file tôi có 4 người được dùng, với Admin là cao nhất, sử dụng được mọi thứ, kể cả reset lại tất cả user & pass (thủ công, nếu muốn tự động, tự các bạn mày mò đi nhé, không khó); và 3 User, chỉ được quyền mở sheet của mình.

[NOTE1]Các Username / Password:

1) ADMIN / Admin

2) USER1 / User1

3) USER2 / User2

4) USER3 / User3[/NOTE1]

Các bạn cứ lần lượt mở file rồi chọn thử từng Username xem sao (mở và đóng 4 lần), nên chọn lần cuối là Admin cho thú vị!

[TIP]Click vào Box Username để xổ ra danh sách Users nha các bạn

[/TIP]



File đã được cập nhật mới, sửa lỗi đăng nhập, các bạn nên tải file AdminAndUsers2.rar nhé!

A Hoàng Trong Nghia ơi sao em tải ve khong dung duoc

 

[Hoàng Trọng Nghĩa]

A Hoàng Trong Nghia ơi sao em tải ve khong dung duoc

Bạn nói không dùng được là không dùng được như thế nào, nó báo những lỗi gì? Hoặc nó không có tác dụng gì? Office bạn 32bit hay 64bit?

 

[doangiabao]

AdminAndUsers2 Xin được hướng dẫn cách làm

Tôi rất hứng thú và phục Hoàng Trọng Nghĩa làm được file này!
Tôi hiện đang công tác tại phòng GD-ĐT quận Phú Nhuận
Tôi đang thực hiện một file báo cáo tháng có sự phân quyền từng sheet như vậy cho từng đơn vị rồi đưa vào trang web để các đơn vị thực hiện báo cáo tháng online - thuận tiện cho công tác quản lý.
Xin gởi file excel tôi đang làm và mong được sự chia sẻ.
Nếu được hướng dẫn thực hiện xin được hậu tạ.

đt: 0909010685.
email: dinhquangtranphuc@gmail.com

 

[tungnguyenthuan]

Bạn cho tôi cái mail đi, tôi gửi bạn file này tham khảo, bảo đảm đẹp và tiện ích (file này tôi mới giúp một thành viên) giờ tôi làm biếng làm quá, bạn cố gắng xem file, pass cho workbook và worksheet đều là 1.

cho minh xin file nay voi thanks, email nguyenthuantung@gmail.com

 

[netuser36]

Bạn xem có đúng ý mình không nhé!

Cho mình hỏi đã tạo form đăng nhập nhưng ko enable macro thì khi mở file vẫn vào đươc ko cân pass

 

[quangtuan1001]

Tôi có làm học và làm 1 from đăng nhập như thế này, bạn xem được ko

 

[giaiphap]

Tôi có làm học và làm 1 from đăng nhập như thế này, bạn xem được ko

Của bạn quét chọn mật khẩu và nhấn Ctrl+C mở word nhấn Ctrl+V tất cả mật khẩu hiển thị lên hết luôn.

 

[mrhung84]

Thầy Nghĩa ơi! Em đang dùng mẫu Form đăng nhập này của thầy và chế lại chút xíu cho phù hợp với yêu cầu công việc của em. Thầy chỉ giúp em các vấn đề sau:
1. Cách tạo, chỉnh sửa, di chuyển các nút tạo link liên kết (ví dụ: trong sheet Home có 4 User đăng nhập, giờ 1 muốn thêm 1 cái User nữa thì phải làm sao ạ.
2. Em muốn chỉnh sửa bài trí sheet Home theo ý của em thì phải làm sao ạ.
Em mới mày mò với VBA nhưng công việc đang cần mong thầy Nghĩa chỉ giáo tận tình giúp em ạ.
Em cảm ơn Thầy Nhiều!

 

[SA_DQ]

Thày Nghĩa của bạn chắc đang nghĩ chế độ Vợ đẽ tuần nay rồi!