Makroya şifreli giriş

[inflexible]

Selamlar;
Makro tuşuna bastığımda makronun çalışması için şifre sorsun istiyorum.Girilen şifre doğru ise makro çalışsın,yanlış ise çalışmasın şeklinde.
yardımlarınız için teşekkürler

 

[leumruk]

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

 

[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

Teşekkürler sayın leumruk..