arkadaşlar bir dosyanın başka bir bilgisayarda açılmasını engellemek için şöyle bir kod bulmuştum burada. Bunu kendi bilgisayarımda yazıo başka bir bilgisayarımda denedim ve dosyam açıldı ve kod sayfaasına geçip "If Left(InputData, 6) <> MyCheckVal Then GoTo NoGo:" satırında LEFT i gösterip hata verdi. Acaba sorun nedir?
Const strTxtFile As String = "C:\Sirket.txt"
Const MyCheckVal As Long = 123456
'
Sub Autpen()
Sheets("veri").Select
Dim InputData As Variant
Dim FileNum As Long
Dim x As Integer
FileNum = FreeFile
If Dir(strTxtFile) <> Empty Then
Open strTxtFile For Input As FileNum
x = x + 1
Do While Not EOF(FileNum)
Line Input #FileNum, InputData
If Left(InputData, 6) <> MyCheckVal Then GoTo NoGo:
If x = 1 Then Exit Sub
Loop
Close FileNum
ThisWorkbook.IsAddin = False
Else
NoGo:
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub