Làm thế nào có thể hiện From của file.xla

[ongtrungducmx25]

chào các pác em mới làm file.xla khi em muốn mở để file.xla của em thì UF "UserName" của em ngay lập tức xuất hiện, những ai có ID và Pass được em cho thì có thể sử dụng file.xla của em, lúc này có thể bổ sung vào code như thế nào nhỉ!thank

*giống như file chuyển số thành chữ "vntool"

làm thế nào để chạy UerNamer thì hiện UFrom đăng nhập khi mở lần đầu tiên!

 

[ptm0412]

bạn đã thử cái này chưa?

Sub Workbook_Open()
YourForm.Show
End Sub

Đặt trong ThisWorkbook
Mình thử với xls được rồi nhưng với xla thì chưa.

 

[boong]

Em làm được rồi. Gửi bác nè! Nhưng khi bác cho nó vào XLA thì khi mở bất cứ file EXCEL nào đều xuất hiện Form đăng nhập cả đó. => Chương trình Excel kia chỉ có bác mới xài được thôi đó...

 

[ongtrungducmx25]

Bác có thể gửi file mà chưa được đổi thành dạng *.xla lên được không?
Chứ file này thì làm sao mà biết đường thử chứ.

pác vào sheet chọn unhide sheet là thấy macro4 cái em tạo menu đấy, sau đó pác đọc code trong UF của em, quan trọng là menu liên kết với username.......ngay sao khi mở *xla

 

[boong]

Em tìm được các giải quyết rồi. Chỉ cần thay thuộc tính IsAddin của ThisWorkbook là False thì mới xem được nội dung trong các Sheets và Macro4. Chứ bác bảo UnHide trên Book1 thì làm gì có Macro4 chứ. Macro4 này nằm trong XLA mà. Bác cứ thử cách của em thì sẽ rõ mà! Bác có thể nói rõ phần mềm nào được không? Nếu tiện cho xin link Download luôn càng tốt.

 

[ongtrungducmx25]

cái code của pác chạy rồi nhưng menu của em thì không hiện lên nữa mất tiêu rồi em muốn chạy file của em thì menu được cập nhật mà!

Private Sub Workbook_Open()
UsersName.Show
End Sub

 

[boong]

Máy em thì không có hiện tượng mất menu mà chỉ có hiện tượng là có lúc thanh phần trăm nó chạy lại có khi thì không. Mình phải bấm "Thoát" rồi làm lại vài lần nó mới chạy. Cũng chẳng hiểu tại sao nữa. Bác cứ thử Addins (Bỏ chọn rồi thoát Excel ra, rồi thử mở Excel lại chọn lại Addins đó xem sao). Em vẫn đang tìm cách giải quyết nhưng chưa có cách khắc phục....

 

[ongtrungducmx25]

đúng là khi cick chuột hai lần vào file.xla thì nó không chạy được là do khai báo là này :
Private Sub Workbook_Open()
UsersName.Show
End Sub

 

[tedaynui]

Máy em thì không có hiện tượng mất menu mà chỉ có hiện tượng là có lúc thanh phần trăm nó chạy lại có khi thì không. Mình phải bấm "Thoát" rồi làm lại vài lần nó mới chạy. Cũng chẳng hiểu tại sao nữa.
Bác cứ thử Addins (Bỏ chọn rồi thoát Excel ra, rồi thử mở Excel lại chọn lại Addins đó xem sao). Em vẫn đang tìm cách giải quyết nhưng chưa có cách khắc phục....

Vậy là do trong File Add-in có dòng lệnh Application.DisplayStatusBar = False nên khi OPen file nó sẽ là mất thanh StatusBar.
Bạn mở VBA tìm và bỏ dòng lệnh này thì thanh StatusBar luôn hiện ra thôi.

TDN

 

[boong]

Em nghĩ là không được đâu vì thằng này dùng để vô hiệu hóa bảng truy vấn có xóa sheet "TT" không. Nếu bác xóa nó đi thì sẽ gặp thông báo này:

Vậy không biết còn cách nào khác để xóa sheet mà không hiện bảng thông báo này không ạ? Xin chỉ giáo giùm ạ..

 

[tedaynui]

Em nghĩ là không được đâu vì thằng này dùng để vô hiệu hóa bảng truy vấn có xóa sheet "TT" không. Nếu bác xóa nó đi thì sẽ gặp thông báo ...
Vậy không biết còn cách nào khác để xóa sheet mà không hiện bảng thông báo này không ạ? Xin chỉ giáo giùm ạ..

Oh, 2 cái khác nhau bạn à. Một cái là DisplayStatus và một cái là DisplayAlerts.
Để không hiện bảng cảnh báo của Excel thì trong VBA, trước dòng lệnh xoá Sheet bạn dùng lệnh sau nhé
Application.DisplayAlerts = False

Chúc bạn như ý.
TDN

 

[boong]

Xin lỗi bác nha! Em nhầm. Nhưng em không tìm thấy nó đâu cả chỉ có cái DisplayAlerts trong Sub Main thôi. Bác có thể chỉ luôn cho em chính xác nó nằm dòng nào ở đâu không ạ? Kèm hình càng tốt.... Thankss...

 

[tedaynui]

Xin lỗi bác nha! Em nhầm.
Nhưng em không tìm thấy nó đâu cả chỉ có cái DisplayAlerts trong Sub Main thôi.
Bác có thể chỉ luôn cho em chính xác nó nằm dòng nào ở đâu không ạ? Kèm hình càng tốt....
Thankss...

Bạn xem nhé trong Module "Main1"

Sub Main()
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add.Name = "TT"
    Dim Counter As Integer
    Dim RowMax As Integer, ColMax As Integer
    Dim r As Integer, c As Integer
    Dim PctDone As Single
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    Cells.Clear
    Application.ScreenUpdating = False
    Counter = 1
    RowMax = 1300
    ColMax = 25
    For r = 1 To RowMax
        For c = 1 To ColMax
            Cells(r, c) = Int(Rnd * 1300)
            Counter = Counter + 1
        Next c
        PctDone = Counter / (RowMax * ColMax)
        With UsersName
            .FrameProgress.Caption = Format(PctDone, "0%")
            .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        End With
        DoEvents
    Next r
[B][COLOR=Blue]     Sheets("TT").Select[/COLOR][/B]
[B][COLOR=Red]     Application.DisplayAlerts = False[/COLOR][/B]
    ActiveWindow.SelectedSheets.Delete
    Unload UsersName
End Sub

Dòng màu đỏ phải nằm trên dòng màu xanh.

TDN

 

[boong]

Vậy là do trong File Add-in có dòng lệnh Application.DisplayStatusBar = False nên khi OPen file nó sẽ là mất thanh StatusBar. Bạn mở VBA tìm và bỏ dòng lệnh này thì thanh StatusBar luôn hiện ra thôi. TDN

Thôi coi như "Tỷ số 1 - 1" nha bác! Giời thì chẳng cần ai đúng ai sai chi mất lòng đúng không bác. Em chỉ có 1 chuyện là vậy. Lúc nhấp đúp vào file XLA thì nó chạy bình thường (Tức thanh trăm vẫn chạy, menu vẩn hiện tốt) nhưng khi thoát ra mở một file XLS khác (Ví dụ ketoan.xls chẳng hạn). Thì Form hiện lên, bạn gõ mật khẩu/pass vào rồi nhấn "Đồng ý" thì thanh phần trăm vẫn đứng nguyên đó như hình:

Dù bác có nhấn bao nhiêu nó vẫn thế thôi. Xin chỉ cách khắc phục..... Cảm ơn bác nhiều nha!>>>>>...

Em có ý này: Ta có thể làm cho thanh phần trăm này ở 1 Form riêng hay làm giống như trong phần mềm "Phan mem quan li diem cap 2 - 3" vậy thì nó sẽ không bị ảnh hưởng của Usersname nữa.. KHÔNG biết có được không nữa??

 

[tedaynui]

Thôi coi như "Tỷ số 1 - 1" nha bác!
Giời thì chẳng cần ai đúng ai sai chi mất lòng đúng không bác.
Em chỉ có 1 chuyện là vậy. Lúc nhấp đúp vào file XLA thì nó chạy bình thường (Tức thanh trăm vẫn chạy, menu vẩn hiện tốt) nhưng khi thoát ra mở một file XLS khác (Ví dụ ketoan.xls chẳng hạn). Thì Form hiện lên, bạn gõ mật khẩu/pass vào rồi nhấn "Đồng ý" thì thanh phần trăm vẫn đứng nguyên đó
Dù bác có nhấn bao nhiêu nó vẫn thế thôi. Xin chỉ cách khắc phục.....
Cảm ơn bác nhiều nha!>>>>>...

1/ Bó tay, lúc đầu tui đâu có tải file về và open file ra đâu vì nghĩ rằng Excel của bạn không hiện "phần trăm" ở thanh Status bar. Nào đâu bạn làm thanh Progress trên Form, hix hix... Sori sori

2/ Còn File của bạn hiện giờ bị lỗi tùm lum, mở có được đâu mà chạy với không chạy. Mình cũng muốn tìm cách sửa nhưng thật sự chưa hiểu rõ ý của bạn thế nào ??? Nhập đúng PW và Username cũng chưa cho đăng nhập nói chi chạy thanh "phần trăm".

TDN

 

[boong]

Xin lỗi nha, mấy bửa nay em bận lắm! Nên không có thời gian làm tiếp. Mong bác thông cảm nha! Em gửi lên theo ý bác đây.