Excel dosyası vba de kodların ne anlama geldiği hk.

[rızay]

Merhaba arkadaşlar hepinizi selamlıyorum.Yardımlarınızı bekliyorum.
Benim sorunum aşağıdaki kodlarla ilgili.Bir dosyayı bilgisayarıma indirdim.Fakat açamıyorum.Kod sayfasında ModuleA_Acilis seçeneğinde aşağıdaki kodlar var.Prtc sayfasında AA1 hücresinde Serial number ile ilgili sayı olmasını istiyor. Fakat tam anlamadım.Nasıl açabilirim.Prtc sayfasında AA1 hücresi ile ilgili işlem istiyor.Aşağıda tam ne demek istiyor? anlamını bana göndermenizi rica ederim
Şimdiden teşekkür ederim.
Autpen bölümünde şu kod var:
Sub Autpen()
yol = Workbooks("PPP.xls").Path
surucu = Left(CurDir(yol), InStr(CurDir(yol), ":"))
VBAProject.[mdMain].Main
'VBAProject.[ModuleA_Acilis].GECIS
VBAProject.[ModuleA_Acilis].DOSYA_KAPAT
ve devamında da aşağıdaki bölüm var:

Sub GECIS()
On Error GoTo hata
Dosya = Application.ActiveWorkbook.Name
If Dosya <> "PPP.xls" Then GoTo hata
Workbooks(Dosya).Activate
Sheets("Prtc").Visible = xlVeryHidden
Sheets("DATABASE").Select
Range("A2").Select
'Application.OnKey "{F8}", "Form"
UserForm2.Show
GetVolumeInformationA surucu & "\", vbNullString, 0, SerialNumber, _
0, 0, vbNullString, 0
'MsgBox SerialNumber
If Sheets("Prtc").Range("AA1").Value = "" Then
Sheets("Prtc").Range("AA1").Value = SerialNumber
Exit Sub
ElseIf Sheets("Prtc").Range("AA1").Value = SerialNumber Then
Exit Sub
ElseIf Sheets("Prtc").Range("AA1").Value <> "" And Sheets("Prtc").Range("AA1").Value <> SerialNumber Then
hata:
MsgBox "Bu dosyayı açtıktan sonra kullanabilirsiniz!", vbInformation, "XXX Programcılık"
Application.Quit
Workbooks(Dosya).Close savechanges:=False
End If
End Sub
'Sub sil()
'Workbooks("PPP.xls").Activate
'MsgBox Sheets("Prtc").Range("AA1").Value
'Sheets("Prtc").Range("AA1").Value = ""
'MsgBox Sheets("Prtc").Range("AA1").Value
'End Sub