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

 

[thao81hn]

Bác Nghĩa ơi sang Tải file về mở lên Nó không hiện Userform để đăng nhập em Gửi qua Máy khác mở Thủ cũng bị Lỗi a mong anh hướng dãn ạ

 

[thao81hn]

Tặng các bạn các FORM ĐĂNG NHẬP & FORM THAY ĐỔI USER, PASS

Chỉ là trò chơi màu mè thôi, chứ nếu người ta cài đặt Macro Setting ở chế độ High thì chương trình xem như ai vào nhà mình cũng OK.

Khi mở file, các bạn sẽ thấy một form hiện lên:

​

Tôi mặc định sẳn User và Pass rồi, chỉ bấm Nhập. Nhưng lưu ý, bạn chỉ được quyền sai User hoặc Pass trong vòng 4 lần, sau 4 lần sẽ tự động thoát file. Thú vị chứ nhỉ?

Và tại sheet có một nút lệnh để thay đổi User & Pass, ở đó bạn chỉ cần làm đúng các yêu cầu trong form này:

​

thì các bạn sẽ được thay đổi quyền đăng nhập.

Để làm khó tí xíu cho các bạn tôi đã đặt VBA pass là: HoangTrongNghia

Riêng Password đã đăng nhập thì các bạn tự tìm trong file xem nó ở đâu nhé!

Sao em tải về không Mở được hả Bác Nghĩa ui

 

[tueyennhi]

Tặng các bạn các FORM ĐĂNG NHẬP & FORM THAY ĐỔI USER, PASS

Chỉ là trò chơi màu mè thôi, chứ nếu người ta cài đặt Macro Setting ở chế độ High thì chương trình xem như ai vào nhà mình cũng OK.

Khi mở file, các bạn sẽ thấy một form hiện lên:

​

Tôi mặc định sẳn User và Pass rồi, chỉ bấm Nhập. Nhưng lưu ý, bạn chỉ được quyền sai User hoặc Pass trong vòng 4 lần, sau 4 lần sẽ tự động thoát file. Thú vị chứ nhỉ?

Và tại sheet có một nút lệnh để thay đổi User & Pass, ở đó bạn chỉ cần làm đúng các yêu cầu trong form này:

​

thì các bạn sẽ được thay đổi quyền đăng nhập.

Để làm khó tí xíu cho các bạn tôi đã đặt VBA pass là: HoangTrongNghia

Riêng Password đã đăng nhập thì các bạn tự tìm trong file xem nó ở đâu nhé!

Cảm ơn anh nhé!

 

[bin.vcsc]

Thử cái này xem sao nha, có gì không hài lòng xin thông cảm, mới vọc VB thôi, không biết gì nhiều đâu

@ducky2301 ơi mình muốn file excel của mình chỉ được sử dụng ở một số máy tính nhất định, nên thêm 1 cột điều kiện nữa là dò tìm "Computer Name" của máy, nếu đúng thì mới có thể mở file được không?

 

[PhapKhuong]

Em chào các anh chị.
Các anh chị cho em hỏi ké. Em có một đoạn code nhỏ nhỏ như file đính kèm. Anh chị cho em hỏi vì sao khi e để mảng arr kiểu byte thì đoạn code không thể chạy đến hoàn thiện được, còn để kiểu khác như integer thì lại chạy được.
Em xin cảm ơn.
Đoạn code thế này ạ:
Sub v()
Dim arr(1 To 1, 1 To 5) As Byte
Dim i As Byte
For i = 1 To 5
arr(1, i) = i
MsgBox "dkf: " & arr(1, i)
Next i
Range("A1").Resize(1, 5) = arr
End Sub

 

[Doãn Quốc Bình]

Không hiểu các bạn làm cái Form với mật khẩu để làm gì nhỉ? Tôi hỏi thật vì muốn biết lý do.
Tôi chỉ cần disable macro thì xong.

Mà chả cần disable macro.

Hiện thời bạn có:

    With login
        .Height = ActiveWindow.Height + [B][COLOR=#ff0000]150[/COLOR][/B]
        .Width = ActiveWindow.Width
    End With

Vậy trên máy tôi tôi vẫn nhìn thấy thẻ "Sheet1" và "dieukiennho"

View attachment 110285

Tôi chỉ cần chuột phải lên thẻ này hoặc thẻ kia rồi chọn "Viiew code" thế là tôi vào được trong VBE. Vào rồi thì chọn Run --> Reset. Thế là xong, form Login mất tiêu.

Bạn có thể "che hết" bằng code .Height = ActiveWindow.Height + 500???

Thôi thì chả cần disable macro hay tốn công click, chọn menu làm gì

Hiện thời code của bạn thực thi rất lâu vì muốn "hiện từ từ" form Login. Vậy thì: kích hoạt tập tin --> ở thời điểm bất kỳ giữa lúc bắt đầu animate form tới khi hiện Frame (sau thời điểm này thì "muộn rồi") thì nhấn ESC --> trong cửa sổ nhẩy ra chọn End. Xong.

With login
.Height = ActiveWindow.Height + 150
.Width = ActiveWindow.Width
End With
Anh chỉ cần thay đoạn code trên bằng đoạn code sau là ok:
With login
ActiveWindow.DisplayWorkbookTabs = False
End With