Arkadaşlar merhaba,
Aşağıdaki kodum bir butona tanımlı, butona basınca macroyu çalıştırmadan önce bu kodun önüne şifre koymak istiyorum.
Şifre kodu "123" olsun, bu şifre macro kodlarını aşağıda yazdığım kodların önüne nasıl entegre edebilirim.
Yani çalıştır dediğimde şifre doğru girildiğinde aşağıdaki kod çalışsın. şifre yanlış ise şifreniz yanlış tekrar girin desin.
Şimdiden yardım edeceklere çok çok tşk ederim, iyi ki varsınız.
Saygılar.
Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
Set dc = f.Files
For Each Dosya In dc
i = i + 1
Cells(i + 1, 1) = Dosya.Name
Next
End Sub
Aşağıdaki kodum bir butona tanımlı, butona basınca macroyu çalıştırmadan önce bu kodun önüne şifre koymak istiyorum.
Şifre kodu "123" olsun, bu şifre macro kodlarını aşağıda yazdığım kodların önüne nasıl entegre edebilirim.
Yani çalıştır dediğimde şifre doğru girildiğinde aşağıdaki kod çalışsın. şifre yanlış ise şifreniz yanlış tekrar girin desin.
Şimdiden yardım edeceklere çok çok tşk ederim, iyi ki varsınız.
Saygılar.
Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
Set dc = f.Files
For Each Dosya In dc
i = i + 1
Cells(i + 1, 1) = Dosya.Name
Next
End Sub