Phá bỏ mật khẩu VBA do quên mật khẩu đăng nhập vào VBA! (1 người xem)

[hcl_pt]

Xin GPE giúp đỡ cách phá mật khẩu VBA trong file này ạ! Năm trước em có dùng file này để làm phổ cập, cài VBA mật khẩu mà giờ em quên mật khẩu để xem lại mã code VBA! Rất mong các anh chị trong GPE giúp phá bỏ mật khẩu ạ! Xin chân trọng cảm ơn ạ!

 

[Hoàng Tuấn 868]

Xin GPE giúp đỡ cách phá mật khẩu VBA trong file này ạ! Năm trước em có dùng file này để làm phổ cập, cài VBA mật khẩu mà giờ em quên mật khẩu để xem lại mã code VBA! Rất mong các anh chị trong GPE giúp phá bỏ mật khẩu ạ! Xin chân trọng cảm ơn ạ!

NỘI QUY CỦA GIẢI PHÁP EXCEL
I. Quy định về nội dung
7. Không gửi các bài có nội dung xin crack, serial, chương trình hack, bomb mail, virus, trộm password... Có quyền gửi các bài học, thảo luận, trao đổi kinh nghiệm về Program, Security (hack, crack), nhưng không được hướng dẫn trực tiếp cách xâm nhập một hệ thống cụ thể nào hoặc bẻ khóa một phần mềm nào.

 

[PhanTuHuong]

Đừng máy móc quá, chủ thớt có chứng minh file của mình là được. Còn mở khóa của người khác thì mới bị GPE cấm.

 

[hcl_pt]

NỘI QUY CỦA GIẢI PHÁP EXCEL
I. Quy định về nội dung
7. Không gửi các bài có nội dung xin crack, serial, chương trình hack, bom mail, virus, trộm mật khẩu... Có quyền gửi các bài học, thảo luận, trao đổi kinh nghiệm về Program, Security (hack, crack) ), nhưng không được hướng dẫn trực tiếp để xâm nhập vào bất kỳ hệ thống nào hoặc bẻ khóa bất kỳ phần mềm nào.

dạ, em xin rút kinh nghiệm ạ!

 

[Duy Tùng 9x]

dạ, em xin rút kinh nghiệm ạ!

Mình rất trân quý những người làm trong ngành giáo dục, nhưng đây là quy định của diễn đàn. Bạn rút kinh nghiệm thì có cách nào chứng minh đây là file của bạn không ? Nó có bao nhiêu module, bao nhiêu class module, code làm gì,....

 

[ongke0711]

...Năm trước em có dùng file này để làm phổ cập...

File này của bạn chủ yếu là quản lý thông tin học sinh và báo cáo. File mà thay đổi địng dạng cột cái là vô cái Sub (900 mấy dòng code) tìm dòng mà sửa mệt nghỉ... . Cách đây mấy năm tôi có viết free một cái ứng dụng nhỏ giống vậy trên Access và đưa source code luôn cho bạn ấy tự phát triển thêm tùy nhu cầu. Nếu bạn cảm thấy có thể dùng ms Access thì nhắn tôi .

 

[HUONGHCKT]

File này của bạn chủ yếu là quản lý thông tin học sinh và báo cáo. File mà thay đổi địng dạng cột cái là vô cái Sub (900 mấy dòng code) tìm dòng mà sửa mệt nghỉ... . Cách đây mấy năm tôi có viết free một cái ứng dụng nhỏ giống vậy trên Access và đưa source code luôn cho bạn ấy tự phát triển thêm tùy nhu cầu. Nếu bạn cảm thấy có thể dùng ms Access thì nhắn tôi .

View attachment 304049

View attachment 304050

View attachment 304051

Theo tôi được biết thì sheet MauNhapLieu được bạn chủ thớt tải từ phần mềm PCGD của Bộ GD&ĐT. Tôi chưa xem kỹ (bởi dài quá) nhưng nghĩ rằng nếu sửa lại (hoặc viết lại) code của Sub CheckValidRow ấy thì có thể nó sẽ ngắn hơn và nhanh hơn nhiều.
Theo thông tin từ các sheet thì có thể thấy bạn chủ thớt này làm ở cấp 4 (tạm thời hiểu là :cấp 1: mầm non; cấp 2: Tiểu học; cấp 3 : Trung học CS; Cấp 4 là THPT- các đơn vị này là Cấp chủ yếu nhập dữ liệu đầu vào cho phần mềm và thực hiện các báo cáo ở cấp mình. Trong đó cấp Mầm non là cấp vất vả nhất (hàng năm phải Nhập toàn bộ dữ liệu về GD của tất cả các công dân trên địa bàn - đã có phần mềm nhập dữ liệu tương đối tiện dụng nhưng do công tác điều tra đầu vào lần đầu với khối lượng quá lớn, tính chuyên nghiệp của người điều tra không cao, tình trạng làm chắp vá, chủ quan, đoán mò, vv .... Do vậy dữ liệu của các công dân thường thiếu, hoặc thừa-sai, không chuẩn theo quy định của phần mềm.Từ đó cũng đã phản ánh chất lượng của các báo cáo. Không biết hiện nay phần mềm này đã nông cấp chưa chứ ít năm về trước (cột ngày tháng năm sinh neus chỉ ghi năm sẽ được hiểu là 1/1 năm sinh; cột trình độ VH nếu để trống - phần mềm tự điền vào theo mặc định là "mù chữ"-Có trường hợp là cô giáo làm hiệu trưởng trường Mầm non chỗ tôi ở, Khi xem đến mới phát hiện ra mình được ghi trong CSDL của phần mềm là 'Mù chữ" mặc dù cô ấy đã có trình độ Cao học, và rất nhiều trường hợp nực cười nũa...Và cũng không biết phần mềm đã nâng cấp lên là nếu dữ liệu thiếu, không chuẩn thì không nhập được hay chưa.
Kể ra đây để thấy được là các công đoạn đằng sau cái file excel được xuất ra từ phần mềm còn nhiều lắm. Các thầy cô thường nói với nhau rằng " Phổ cập là Phập cổ" là như vậy. Nói 1 cách chủ quan rằng: đai đa số các thầy cô được phân công làm PCGD có bản chỉ biết đến Excel, và số có trình độ VBA để viết được code như trong file cũng là thiểu số.
Do vậy sẽ vô cùng hữu ích cho các thầy cô là anh chuyển cái ứng dụng của anh từ ứng dụng trên Accsess thành ứng dụng trên Excel, thì có thể sẽ giúp cho được rất nhiều thầy cô đang hàng năm phải đánh vật với "Phập cổ".

 

[SA_DQ]

Năm trước em có dùng file này để làm phổ cập,

Thiết kế file của bạn cần những bổ sung quan trong như sau:
1./ Mỗi em HS (học sinh) cần có mã duy nhất;
2./ Khi tạo CSDL nhân sự thì ta cần có 1 trang làm danh mục;
Khi đó trong CSDL sẽ chỉ nhập mã danh mục, mà không phải nhập danh mục;
Mình lấy vì dụ danh mục nhập Dân tộc:

DÂN TỘC

Mã

Dao

Do

Gia-rai

GR

Kinh

Kh

Khơ me

KM

Mường

Mg

Mán

Mn

Thái

Th

. . .

. . .

3./
Ngoài ra còn những vấn đề nhỏ nhoi khác . . . . (Lúc khác sẽ thảo ,luận thêm)

 

[CHAOQUAY]

Xin GPE giúp đỡ cách phá mật khẩu VBA trong file này ạ! Năm trước em có dùng file này để làm phổ cập, cài VBA mật khẩu mà giờ em quên mật khẩu để xem lại mã code VBA! Rất mong các anh chị trong GPE giúp phá bỏ mật khẩu ạ! Xin chân trọng cảm ơn ạ!

Tình cờ có 1 file giống tên, bên trong code mở
Vậy chép 1 đoạn lên đây để bạn xem có phải đúng cái cần tìm?

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Dim isloading As Boolean
Dim strError As String
Dim NamDieuTra As Integer
Dim Tuoi As Integer
Dim MaxRange As Integer
Dim mt As Integer
Sub CheckError_Click()
    MaxRange = Sheet2.Range("A102").Value
    mt = Sheet2.Range("A103").Value
    NamDieuTra = Sheet1.Range("A" & "2").Value
    If isloading = False And Sheet2.Range("A100").Value = "False" Then
        Call CheckValidRow(1, MaxRange)
    Else
        MsgBox Sheet2.Range("A101").Value
    End If
End Sub
Function NamNhuan(ByVal Nam As Integer) As Integer
    If Nam Mod 400 = 0 Then
        NamNhuan = 1
    Else
        If Nam Mod 100 = 0 Then
        NamNhuan = 0
        Else
            If Nam Mod 4 = 0 Then
            NamNhuan = 1
            End If
        End If
    End If
End Function
Function ProperUni(uni As String) As String
Dim vt As Long
If Trim(uni) = "" Then
  ProperUni = uni
Else
  uni = LCase(uni)
  Mid(uni, 1, 1) = UCase(Mid(uni, 1, 1))
  Do
    vt = InStr(vt + 1, uni, " ")
    If vt = 0 Then Exit Do
    Mid(uni, vt + 1, 1) = UCase(Mid(uni, vt + 1, 1))
  Loop
  ProperUni = uni
End If
End Function

 

[hamhochoi66]

File này của bạn chủ yếu là quản lý thông tin học sinh và báo cáo. File mà thay đổi địng dạng cột cái là vô cái Sub (900 mấy dòng code) tìm dòng mà sửa mệt nghỉ... . Cách đây mấy năm tôi có viết free một cái ứng dụng nhỏ giống vậy trên Access và đưa source code luôn cho bạn ấy tự phát triển thêm tùy nhu cầu. Nếu bạn cảm thấy có thể dùng ms Access thì nhắn tôi .

View attachment 304049

View attachment 304050

View attachment 304051

Anh cho em xin file này được không ạ? Cảm ơn anh rất nhiều!