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

truongminhthi999 · 10/8/11

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

phucbugis · 13/10/13

Đã xử lý được trường hợp size của form login để có thể bao phủ toàn màn hình (trên nhiều Desktop)
Nếu dựa vào activewindow -> ko chính xác.
Có thể dùng sub sau:

Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub DisplayMonitorInfo()
'size of Screen Resolution
Dim w As Long, h As Long
w = GetSystemMetrics32(0) ' width in points
h = GetSystemMetrics32(1) ' height in points

Range("monitorsize_w") = w
Range("monitorsize_h") = h
End Sub

Sau khi kích hoạt Macro thì Call DisplayMonitorInfor trước khi login.show

Private Sub UserForm_Initialize() se~ co' dạng
login.height =Range("monitorsize_h")
login.width =Range("monitorsize_w")

Enjoy ! /-*+/

Hoàng Trọng Nghĩa · 13/10/13

phucbugis đã viết:
Đã xử lý được trường hợp size của form login để có thể bao phủ toàn màn hình (trên nhiều Desktop)
Nếu dựa vào activewindow -> ko chính xác.
Có thể dùng sub sau:

Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub DisplayMonitorInfo()
'size of Screen Resolution
Dim w As Long, h As Long
w = GetSystemMetrics32(0) ' width in points
h = GetSystemMetrics32(1) ' height in points

Range("monitorsize_w") = w
Range("monitorsize_h") = h
End Sub

Sau khi kích hoạt Macro thì Call DisplayMonitorInfor trước khi login.show

Private Sub UserForm_Initialize() se~ co' dạng
login.height =Range("monitorsize_h")
login.width =Range("monitorsize_w")

Enjoy !

Nếu mà để Form Zoom toàn màn hình mà làm như thế thì ẹ quá đi! Dưới đây là code trong Form để zoom toàn màn hình:

[GPECODE=vb]Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private hwnd As Long

Private Sub UserForm_Activate()
SetWindowLong hwnd, -16, &H84080080
ShowWindow hwnd, 3
End Sub

Private Sub UserForm_Initialize()
hwnd = FindWindow("ThunderDFrame", Me.Caption)
End Sub

[/GPECODE]

phucbugis · 13/10/13

có code nào cài đặt Size của Shape phủ toàn màn hình (trong workbook) dùng cho nhiều máy tính ko?

Thanks ! %#^#$

Hoàng Trọng Nghĩa · 13/10/13

phucbugis đã viết:
có code nào cài đặt Size của Shape phủ toàn màn hình (trong workbook) dùng cho nhiều máy tính ko?

Thanks !

Xin thưa là KHÔNG! Bởi SHAPE là "tập con" của SHEET nên "con" không thể lớn hơn "mẹ" được! Shape chỉ được chứa trong Sheet mà thôi.

ndu96081631 · 13/10/13

phucbugis đã viết:
có code nào cài đặt Size của Shape phủ toàn màn hình (trong workbook) dùng cho nhiều máy tính ko?

Thanks !

Công nhận là bạn "quá" quan tâm đến vụ màu mè thiệt đó
Giao diện đẹp khiến người ta thích ứng dụng, cũng đúng! Nhưng liệu có nên cân nhắc xem có phải ta đã quá chăm chút giao diện đến mức code cho phần màu mè chiếm phần lớn toàn bộ file còn code làm nhiệm vụ chính thì chẳng có bao nhiêu (xem các file của bạn tôi thấy rõ điều bất hợp lý này)
Quan điểm của tôi: 20% code dành cho giao diện là quá đủ. Đàng nào thì cái "tâm hồn" mới là thứ quan trọng. Một ứng đẹp, bóng bẩy nhưng lại chả làm nên được tích sự gì thì cũng là ứng dụng "vô dụng" thôi
----------------------
Cũng chỉ là quan điểm cá nhân, mong bạn đừng để bụng

nescafe · 13/10/13

phucbugis đã viết:
username: admin
password: admin

Sau khi đăng nhập dùng ESC để show Ribbon.

Có thể thay đổi background của form:
View attachment 110275

phucbugis đã có phiên bản mới chưa bạn? File này cũng hay đó.

ndu96081631 · 13/10/13

Hoàng Trọng Nghĩa đã viết:
Xin thưa là KHÔNG! Bởi SHAPE là "tập con" của SHEET nên "con" không thể lớn hơn "mẹ" được! Shape chỉ được chứa trong Sheet mà thôi.

Tự vẽ Shape bằng API chắc không có vấn đề: Muốn TO bao nhiêu thì TO bấy nhiêu
Ẹc...Ẹc...

Hoàng Trọng Nghĩa · 13/10/13

ndu96081631 đã viết:
Tự vẽ Shape bằng API chắc không có vấn đề: Muốn TO bao nhiêu thì TO bấy nhiêu
Ẹc...Ẹc...

Mà để làm gì với nó nhỉ? Còn cách vẽ thì em tịt ngòi thưa Thầy! Thầy làm luôn một file đi!

ndu96081631 · 13/10/13

Hoàng Trọng Nghĩa đã viết:
Mà để làm gì với nó nhỉ? Còn cách vẽ thì em tịt ngòi thưa Thầy! Thầy làm luôn một file đi!

Lúc trước tôi có làm 1 bài về vẽ shape trên Form (xem file)
trong file là vẽ Ellipse, giờ vẽ hình vuông thì dùng hàm Rectangle (cũng tương tự thôi)
-----------
Các bạn cứ tự nghiên cứu rồi áp dụng (tôi cũng không mấy hứng thứ về vấn đề này cho dù có biết)

Hoàng Trọng Nghĩa · 13/10/13

ndu96081631 đã viết:
Lúc trước tôi có làm 1 bài về vẽ shape trên Form (xem file)
trong file là vẽ Ellipse, giờ vẽ hình vuông thì dùng hàm Rectangle (cũng tương tự thôi)
-----------
Các bạn cứ tự nghiên cứu rồi áp dụng (tôi cũng không mấy hứng thứ về vấn đề này cho dù có biết)

Wow, cái file này Thầy đã làm lâu lắm rồi thì phải! Em nhớ hồi đó em còn "chọt chọt" vô cái topic đó nữa! Giờ nó vẫn còn tính thời sự hen!

phucbugis · 13/10/13

Thanks a !
nhưng ý e ko phải vậy. Chắc anh còn lưu file của e ở bài
Có hàm nào để rút gọn công thức file Lương tháng của e ko?

File đó có 1 image phía sau. Khi dùng trên nhiều máy thì phải cài đặt lại size của nó.
Vậy có cách nào chỉ cần setup 1 lần ko?

namkpac · 24/10/13

ndu96081631 đã viết:
Công nhận là bạn "quá" quan tâm đến vụ màu mè thiệt đó
Giao diện đẹp khiến người ta thích ứng dụng, cũng đúng! Nhưng liệu có nên cân nhắc xem có phải ta đã quá chăm chút giao diện đến mức code cho phần màu mè chiếm phần lớn toàn bộ file còn code làm nhiệm vụ chính thì chẳng có bao nhiêu (xem các file của bạn tôi thấy rõ điều bất hợp lý này)
Quan điểm của tôi: 20% code dành cho giao diện là quá đủ. Đàng nào thì cái "tâm hồn" mới là thứ quan trọng. Một ứng đẹp, bóng bẩy nhưng lại chả làm nên được tích sự gì thì cũng là ứng dụng "vô dụng" thôi
----------------------
Cũng chỉ là quan điểm cá nhân, mong bạn đừng để bụng

Nhờ các anh chị giúp em cái pass worksheet với, em làm nhưng không giấu được pass bằng ký tự sao tức là đặt thuộc tính PasswordChar = *

Quang_Hải · 24/10/13

namkpac đã viết:
Nhờ các anh chị giúp em cái pass worksheet với, em làm nhưng không giấu được pass bằng ký tự sao tức là đặt thuộc tính PasswordChar = *

1. Code viết sai >> bị lỗi khi code chạy. Cấu trúc With phải đi với Object hoặc range, sao đi với biến được
2. Inputbox không thể chuyển pass thành dấu***

Hai Lúa Miền Tây · 24/10/13

quanghai1969 đã viết:
2. Inputbox không thể chuyển pass thành dấu***

Có thể đó anh Chuyển ký tự sang dạng "*"

Quang_Hải · 24/10/13

Hai Lúa Miền Tây đã viết:
Có thể đó anh Chuyển ký tự sang dạng "*"

Với trình độ VBA căn bản thì làm sao có thể chuyển sang *** được, có làm được code cũng sẽ phức tạp lắm.

phucbugis · 25/10/13

namkpac đã viết:
Nhờ các anh chị giúp em cái pass worksheet với, em làm nhưng không giấu được pass bằng ký tự sao tức là đặt thuộc tính PasswordChar = *

Sao bạn ko lập 1 userform để xử lý dễ hơn.
Thich dấu * hay . cũng có. :-=

Cá ngừ F1 · 25/10/13

Nhu cầu của e chưa cần 1 form đăng nhập mà e cần khi mở file ra thì 1 form gồm các nút như:
- nhập thông tin khách hàng mới: kích vào thì đến bản ghi cuối cùng của sheet khách hàng
- sửa thông tin: chọn số chứng minh thư khi click vào thì đến bản ghi có số cmt đó
- xem báo cáo: dẫn đến sheet báo cáo
...
Mong các thành viên hỗ trợ,có ví dụ bằng hình ảnh thì quá tốt ạh

phucbugis · 25/10/13

Cá ngừ F1 đã viết:
Nhu cầu của e chưa cần 1 form đăng nhập mà e cần khi mở file ra thì 1 form gồm các nút như:
- nhập thông tin khách hàng mới: kích vào thì đến bản ghi cuối cùng của sheet khách hàng
- sửa thông tin: chọn số chứng minh thư khi click vào thì đến bản ghi có số cmt đó
- xem báo cáo: dẫn đến sheet báo cáo
...
Mong các thành viên hỗ trợ,có ví dụ bằng hình ảnh thì quá tốt ạh

Nếu thiết kế trên userform để liên kết các sheet thi` ko mạnh bằng thiết kế trực tiếp trên sheet.
Khi update số liệu vào sheet (khách hàng ...) nên đưa nó lên trên cùng thay vì cho nằm bên dưới. :-=

Cá ngừ F1 · 25/10/13

phucbugis đã viết:
Nếu thiết kế trên userform để liên kết các sheet thi` ko mạnh bằng thiết kế trực tiếp trên sheet.
Khi update số liệu vào sheet (khách hàng ...) nên đưa nó lên trên cùng thay vì cho nằm bên dưới.

Bạn có thể chia sẻ chút kinh nghiệm thiết kế trực tiếp trên sheet ?

phucbugis · 25/10/13

Cá ngừ F1 đã viết:
Bạn có thể chia sẻ chút kinh nghiệm thiết kế trực tiếp trên sheet ?

OK de minh share file, bao gom` tat ca cac form. Bao dam ko che vao dau. :-=

Toan bo menu se~ duoc dep di het.
Cho` minh xoa bot so lieu da~.

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

Thành viên mới

File đính kèm

Thành viên tích cực

Chuyên gia GPE

File đính kèm

Thành viên tích cực

Chuyên gia GPE

Huyền thoại GPE

Thành viên mới

Huyền thoại GPE

Chuyên gia GPE

Huyền thoại GPE

File đính kèm

Chuyên gia GPE

Thành viên tích cực

Thành viên thường trực

File đính kèm

Thành viên gạo cội

❆❆❆❆❆❆❆❆

Thành viên gạo cội

Thành viên tích cực

( ͡° ͜ʖ ͡°)

Thành viên tích cực

( ͡° ͜ʖ ͡°)

Thành viên tích cực

Facebook

Group