makro çalıştırma için şifre koyulması

[cyedikardaslar]

merhabalar;
bu forumda yardımlarınız sayesinde macro ile acayip işler başardım hepinize teşekkürlerimi sunarım, ancak kendimce yapmaya çalıştım yapamadım, acaba oluşturduğumuz makro için çalışması sırasında bana şifre sorsa ve bu şifreyi girdikten sonra çalışsa? böle bir şey ekleme yapabilirmiyiz? belki konusu geçmiştir, inanın forumda aradım bi yerde buldum, link vermişler ama o link çalışmıyordu o yüzden bu konuyu açtım,

saygılarımla;

 

[fedeal]

Aşagıdaki kodları kullanabilirsiniz,

Sub N()
ŞİFRE = "12345"
cvp = InputBox("ŞİFRE GİRİNİZ", "FEDEAL")
If cvp = ŞİFRE Then
'KODLARI BURAYA YAZBİLİRSİNİZ.
MsgBox "MAKROLAR ÇALIŞTI"
Else
MsgBox "ŞİFRE YANLIŞ"
End If
End Sub

iyi çalışmalar.

 

[mudix]

Tools/VBAProject Properties/protection

Buraya şifreni yazdıktan sonra Look protecion for viewing kutusunu okeyle ve tamama bas. Çalışmanı kaydederek excelden çık. Tekrar aynı excel çalışma sayfanı açıp makrolara girmeyi denediğinde şifre soracaktır.

 

[cyedikardaslar]

@fedeal

dostum süpersin çok sağol ellerin dert görmesin,

saygılarımla;

 

[fedeal]

ricaederim,işinize yardıgına sevindim.
saygılar.

 

[baydeniro]

Çok teşekkürler.