E rằng sẽ không có giúp cho bạn vấn đề này đâu vì điều đó vi phạm nội quy diễn đàn
Tuy nhiên tôi có thể cho bạn lời khuyên:
- Tìm 1 Tool nào đó ở các trang web nước ngoài chuyên về bẻ khóa Password Open của Excel (Crack Excel Open password)
- Đa phần các tool này nếu thuộc loại mạnh đều có bản quyền ---> Làm sao để dùng được chắc không cần phải nói
Chúc may mắn!
Đây là phần em mở được khi dùng phần mềm hỗ trợ, anh có thể giải thích hộ em mấy dòng lệnh này không?
Private Sub layma()
If Workbooks.Count = 2 Then
Range("A" & ActiveCell.Row).Select
mhieu = ActiveCell
cgv = ActiveCell.Offset(0, 1)
dvt = ActiveCell.Offset(0, 2)
dvchia = IIf(Left(dvt, 4) = "1000", 1000, IIf(Left(dvt, 4) = "táún", 1000, IIf(Left(dvt, 3) = "100", 100, IIf(Left(dvt, 2) = "10", 10, ""))))
ActiveWindow.Visible = False
ActiveWindow.ActivateNext
ActiveCell.Formula = mhieu
ActiveCell.Offset(0, 3) = cgv
ActiveCell.Offset(0, 4) = dvt
dvchia = IIf(Left(dvt, 4) = "1000", 1000, IIf(Left(dvt, 4) = "táún", 1000, IIf(Left(dvt, 3) = "100", 100, IIf(Left(dvt, 2) = "10", 10, ""))))
If Range("I4").Text = "Cao" Then
ActiveCell.Offset(0, 10).Formula = IIf(dvchia <> "", "=SUM(OFFSET(K" & ActiveCell.Row & ",0,0,COUNTIF(C" & ActiveCell.Row & ":C" & ActiveCell.Row + 150 & ",A" & ActiveCell.Row & ")))/" & dvchia, "=SUM(OFFSET(K" & ActiveCell.Row & ",0,0,COUNTIF(C" & ActiveCell.Row & ":C" & ActiveCell.Row + 150 & ",A" & ActiveCell.Row & ")))")
vitr_cu = ActiveCell.Address(rowabsolute:=False, columnAbsolute:=False, ReferenceStyle:=xlA1)
Do Until ActiveCell.Offset(0, -1).Value = 0
ActiveCell.Offset(0, 9).Formula = "=ROUND(PRODUCT(G" & ActiveCell.Row & ":J" & ActiveCell.Row & "),2)"
ActiveCell.Offset(1, 0).Select
Loop
Range(vitr_cu).Select
End If
If Range("M4").Text = "Dæû toaïn" Then
ActiveCell.Offset(0, 12).Formula = "=IF(L" & ActiveCell.Row & ">M" & ActiveCell.Row & ",L" & ActiveCell.Row & "-" & "M" & ActiveCell.Row & ",0)"
ActiveCell.Offset(0, 13).Formula = "=IF(M" & ActiveCell.Row & ">L" & ActiveCell.Row & ",M" & ActiveCell.Row & "-" & "L" & ActiveCell.Row & ",0)"
End If
ActiveCell.Offset(1, 0).Select
End If
End Sub
Private Sub auto_close()
Application.DisplayAlerts = False
Workbooks("DL_DQT2009.XLS").Close saveChanges:=False
End Sub
Private Sub auto_open()
Dim makt1 As String, s1 As String, v As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set d1 = fs.GetDrive(fs.GetDriveName("c:"))
Set d2 = fs.GetDrive(fs.GetDriveName("d:"))
Set e = fs.GetDrive(fs.GetDriveName("e:"))
s1 = d1.SerialNumber & d2.SerialNumber
v = e.VolumeName
If Len(Dir("c:\windows\dqt09.txt", vbHidden)) > 1 Then
Open "c:\windows\dqt09.txt" For Input As #1
Do While Not EOF(1)
makt1 = makt1 & Input(1, #1)
Loop
Close
If makt1 = s1 And v = "VU NGHIA" Then
Exit Sub
Else
Application.DisplayAlerts = False
Application.Quit
End If
Else
Application.DisplayAlerts = False
MsgBox "B¹n ®õng cè g¾ng n÷a! B¹n nªn mua b¶n gèc ®Ó ®­îc sù hç trî tèt nhÊt. Mäi chi tiÕt B¹n bÊm sè 091.3469545 ®Ó liªn hÖ víi T¸c gi¶.", , "XLCT - Vò NghÜa"
Application.Quit
End If
End Sub
pen, trong đó người ta làm như sau:
