Tạo form đăng nhập

[ngoctrongdat]

Các bạn giúp tôi tạo một form đăng nhập file excel với nhé.
Nội dung tôi để trong file đính kèm.

 

[Hai Lúa Miền Tây]

Các bạn giúp tôi tạo một form đăng nhập file excel với nhé.
Nội dung tôi để trong file đính kèm.

Bạn tham khảo bài này

http://www.giaiphapexcel.com/forum/showpost.php?p=137938&postcount=3

Thân

 

[ngoctrongdat]

Tạo thông báo

Tôi muốn tạo một thông báo mà mỗi khi mở file là nó hiện ra thì cần làm như thế nào?
Các bạn giúp tôi với nhé!

 

[Hai Lúa Miền Tây]

Tôi muốn tạo một thông báo mà mỗi khi mở file là nó hiện ra thì cần làm như thế nào?
Các bạn giúp tôi với nhé!

Ý bạn là khi mở 1 file ra thì có hiện 1 dòng thông báo?
Nếu như vậy thì bạn vào cửa sổ VBA double click vào "Thisworkbook" rồi dán đoạn code sau vào:

Private Sub Workbook_Open()
MsgBox "Chuc ban mot ngay lam viec tot lanh !!!", vbInformation, "Xin chao"
End Sub

Thân

 

[ngoctrongdat]

Ý bạn là khi mở 1 file ra thì có hiện 1 dòng thông báo?
Nếu như vậy thì bạn vào cửa sổ VBA double click vào "Thisworkbook" rồi dán đoạn code sau vào:

Private Sub Workbook_Open()
MsgBox "Chuc ban mot ngay lam viec tot lanh !!!", vbInformation, "Xin chao"
End Sub

Thân

Trong code không sử dụng được tiếng việt có dấu phải không bạn!
Tôi đánh TV có dấu nhưng nó không đọc được bạn à!
LÀm thế nào bây giờ?

 

[ndu96081631]

Trong code không sử dụng được tiếng việt có dấu phải không bạn!
Tôi đánh TV có dấu nhưng nó không đọc được bạn à!
LÀm thế nào bây giờ?

Hình như tôi đã lưu ý với bạn 2 lần về MsgBox này rồi thì phải
Muốn tiếng Việt thì xem tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=22396

 

[phanngochiep]

Tạo form đăng nhập nhưng không được?

- Em có một form đăng nhập vào excel nhưng em viết macro nhiều lần mà không được:
1. Code trong frmlogin của em như sau:
Const sMatKhau = "123456"
Private Sub cmdCancel_Click()
MsgBox "Rat tiec vi ban khong chung minh duoc minh co quyen mo workbook nay!"
ActiveWorkbook.Close
End Sub
Private Sub CmdOK_Click()
With TextBox1
If .Text = sMatKhau Then
ActiveWorkbook.Sheets("Du Lieu").Activate
Unload Me
Exit Sub
End If
MsgBox "Mat khau khong dung!"
.SetFocus
End With
End Sub
Private Sub UserForm_Initialize()
ActiveWorkbook.Sheets("Login").Activate
With TextBox1
.Text = ""
.PasswordChar = "*"
End With
End Sub

2. Code trong module là:
Public Sub Auto_open()
frmlogin.Show
If frmlogin.TextBox1 = "123456" Then 'Sua mat khau dang nhap o day
Exit Sub
Else
MsgBox "Ban da nhap sai mat khau. Xin vui long thu lai!", vbInformation, "Mat khau dang nhap"
Auto_open
End If
End Sub

- Nó cứ báo lỗi tại chỗ em tô màu khác nhiều lần!
- Em muốn khi người ta không nhập đúng password và close form thì sẽ không vào được dữ liệu bên trong.
- Em muốn chạy macro mà không cần chỉnh security được không các anh chị?

Có anh chị nào chỉ giúp em?
Thanks các anh chị nhiều?

 

[ketoan100]

Mình có một file này hay lắm nhưng kg xem được code " Không biết file này làm bằng gì nữa" ai biết chỉ giúp nha !

 

[ketoan100]

nhờ các bạn xem giúp

nhờ các bạn xem giúp code

 

[ndu96081631]

nhờ các bạn xem giúp code

Đó là chức năng Form trong menu Data
Bạn tự làm cũng được... bằng cách quét chọn từ A2 đến J2 rồi vào menu Data\Form thử xem

 

[ketoan100]

Cám ơn ban rat nhiều, để mình làm thử xem sao. Nếu có gì không được xin bạn chỉ giáo nhé !

 

[nghiaphuc]

Nhờ giúp giải quyết vấn đề với Form đăng nhập

Mình đang làm một chương trình quản lý thư viện và đang bí ở vấn đề quản lý đăng nhập.
Cụ thể như ở file đính kèm, mình đã tạo 1 form Login, tưởng như ổn lắm rồi, nhưng vẫn có thể chẳng cần chọn User hay nhập Password gì cả mà vẫn đăng nhập như thường. Mình không nói đến cách đặt Security mức High hay Very high. Chỉ cần mở sẵn Excel và VBE, sau đó mới mở file. Cuối cùng, nhấn nút Reset trong VBE là mở được file. Liệu có cách nào để khắc phục trường hợp này không? Rất mong các A/C/E giúp đỡ.

 

[the_wind]

Đó là chức năng Form trong menu Data
Bạn tự làm cũng được... bằng cách quét chọn từ A2 đến J2 rồi vào menu Data\Form thử xem

Vậy làm thế nào để form đó luôn luôn nổi sau mỗi lần enter nó sẽ hiện form lên lại có được không? Hoặc vùng mà đã tạo form thì bắt buộc phải nhập bằng form mới được còn các vùng khác thì vô tư. (Tức là sau mỗi lần chỉnh sửa gì đó trong bảng mình lại phải gọi lại form để nhập liệu)

 

[Hai Lúa Miền Tây]

Mình đang làm một chương trình quản lý thư viện và đang bí ở vấn đề quản lý đăng nhập.
Cụ thể như ở file đính kèm, mình đã tạo 1 form Login, tưởng như ổn lắm rồi, nhưng vẫn có thể chẳng cần chọn User hay nhập Password gì cả mà vẫn đăng nhập như thường. Mình không nói đến cách đặt Security mức High hay Very high. Chỉ cần mở sẵn Excel và VBE, sau đó mới mở file. Cuối cùng, nhấn nút Reset trong VBE là mở được file. Liệu có cách nào để khắc phục trường hợp này không? Rất mong các A/C/E giúp đỡ.

Theo mình nghĩ chắc là phải cài Pass ở cửa sổ VBA thôi.

 

[nghiaphuc]

Theo mình nghĩ chắc là phải cài Pass ở cửa sổ VBA thôi.

Ý bạn là đặt Pass cho VBAProject? Không ổn bạn ạ. Bởi vì nút Reset trong VBE không phụ thuộc gì vào project này cả. Nếu có thể thì chắc là trước khi mở file (dùng sự kiện Workbook Open) thì phải đóng VBE lại, nhưng mình chưa làm được việc này.

 

[nghiaphuc]

Nghĩ miết rồi cũng ra, hóa ra chỉ đơn giản là thêm câu lệnh

SendKeys "%{F11}%{F4}", True

vào trước câu lệnh

FrmLogin.Show

 

[ndu96081631]

Mình đang làm một chương trình quản lý thư viện và đang bí ở vấn đề quản lý đăng nhập.
Cụ thể như ở file đính kèm, mình đã tạo 1 form Login, tưởng như ổn lắm rồi, nhưng vẫn có thể chẳng cần chọn User hay nhập Password gì cả mà vẫn đăng nhập như thường. Mình không nói đến cách đặt Security mức High hay Very high. Chỉ cần mở sẵn Excel và VBE, sau đó mới mở file. Cuối cùng, nhấn nút Reset trong VBE là mở được file. Liệu có cách nào để khắc phục trường hợp này không? Rất mong các A/C/E giúp đỡ.

Tôi để ý thấy các bạn hay khoái dùng Form đăng nhập mà theo tôi nó chẳng có tác dụng gì
Lấy 1 ví dụ:
- Tôi bấm phím Shift rồi Double click vào file thì Form ấy "tèo" luôn ---> Cứ thế là vào thẳng Excel, bỏ qua luôn form đăng nhập
Các bạn nghĩ sao về trường hợp này? Nếu các bạn giải quyết được thì mới viết tiếp nhé!
Ẹc... Ẹc...

 

[nghiaphuc]

Tôi để ý thấy các bạn hay khoái dùng Form đăng nhập mà theo tôi nó chẳng có tác dụng gì
Lấy 1 ví dụ:
- Tôi bấm phím Shift rồi Double click vào file thì Form ấy "tèo" luôn ---> Cứ thế là vào thẳng Excel, bỏ qua luôn form đăng nhập
Các bạn nghĩ sao về trường hợp này? Nếu các bạn giải quyết được thì mới viết tiếp nhé!
Ẹc... Ẹc...

Bạn nghĩ sao nếu sau khi làm xong, mình dùng XLStoEXE hoặc LockXLS để khóa tập tin lại? (có thể chuyển thành tập tin EXE) Hình như cách này giải quyết được vụ bấm phím Shift của bạn đó.

 

[ndu96081631]

Bạn nghĩ sao nếu sau khi làm xong, mình dùng XLStoEXE hoặc LockXLS để khóa tập tin lại? (có thể chuyển thành tập tin EXE) Hình như cách này giải quyết được vụ bấm phím Shift của bạn đó.

Đúng là mổi người mổi ý ---> Tôi thì chẳng mặn mà gì mấy vụ có liên quan đến password cả!
Thêm nữa, ra mổi chương trình, ngoài ưu điểm cũng không phải là không có nhược điểm ---> Bạn dùng và nghiên cứu xem XLStoEXE hoặc LockXLS có nhược điểm gì nhé!

 

[nghiaphuc]

Đúng là mổi người mổi ý ---> Tôi thì chẳng mặn mà gì mấy vụ có liên quan đến password cả!
Thêm nữa, ra mổi chương trình, ngoài ưu điểm cũng không phải là không có nhược điểm ---> Bạn dùng và nghiên cứu xem XLStoEXE hoặc LockXLS có nhược điểm gì nhé!

- Với XLStoEXE: Nhược điểm là tạo ra các file Backup mỗi khi lưu. Mình đã xử lý được vụ này bằng cách viết code để xóa các file Backup này lại khi đóng file (trong sự kiện Workbook_BeforeClose) (http://www.giaiphapexcel.com/forum/showthread.php?t=2576&p=195465#post195465), tuy nhiên mình chỉ mới xử được khi chạy file trên máy tính có chứa file, còn nếu file được share qua mạng LAN thì chưa được.
- Với LockXLS: Nhược điểm là phải cài LockXLS Runtime thì mới chạy được file (cái này hơi dở, chẳng lẽ tới máy nào cũng phải cài?)
Thực ra thì mình sử dụng các chương trình này chỉ để bảo vệ code tránh bị xóa bởi chương trình diệt virus thôi. Còn vấn đề tạo form đăng nhập là để phân quyền sử dụng trong một chương trình ứng dụng (VD: trong chương trình quản lý thư viện thì Độc giả chỉ được phép tra cứu sách, còn Thủ thư thì có toàn quyền can thiệp trên tập tin)