makroya şifre

[enba]

arkadaşlar merhaba.

benim bir dosyamda makrom var bu makroyu butuna bağladım. yalnız benim istediğim bu makro çalıştırmak istenildiğinde butona basılınca makroyu kullanmak için şifre sorsun. böyle birşey mümkün mü ??

şimdiden ilgilendiğin için teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kod sanırım işinizi görür. Burada "....." yazan yere kendi makronuzu kopyalayın. örnekteki şifre 999 dur. Bunu kendinize göre değiştirirsiniz.

Sub şifre()
If InputBox("ÞİFREYİ GİRİNİZ") = 999 Then
.........
End If
End Sub

selamlar

 

[enba]

cok teşekkür ederimm

 

[baydeniro]

Çok güzel bir kod sayın leventm. Teşekkür ederim.

 

[selimcengizince]

Aşağıdaki gibi bir kod sanırım işinizi görür. Burada "....." yazan yere kendi makronuzu kopyalayın. örnekteki şifre 999 dur. Bunu kendinize göre değiştirirsiniz.

Sub şifre()
If InputBox("ÞİFREYİ GİRİNİZ") = 999 Then
.........
End If
End Sub

selamlar

Şifre yanlışsa veya iptal dersen hata veriyor.. Ne yapmam lazım?

 

[selimcengizince]

Merhaba,
aşağıdaki kod işinizi görür.

Sub Dene()
sifre = InputBox("Lütfen şifrenizi giriniz.")
If sifre = "" Then Exit Sub
If sifre = "12345" Then
------Makrolarınız......
Else:
MsgBox "Yanlış şifre girdiniz. Kodlar çalışmayacak."
End If
End Sub

İhtiyacı olan biri çıkarsa;
Cevabı başka benzer bir konuda buldum..Bu kod sorunsuz..