Commandbuttona şifre koyma

[demhatozcelik]

Günaydın arkadaşlar

Commandbuttona makro ekleyip çalıştırmak istiyorum. Yalnız makroyu çalıştırmak için şifre sorulsun. Bunu nasıl yapabilirim. bana bu konuda yardımcı olursanız sevinirim.


Saygılarımla.....

 

[mehmett]

VBA kodlarını da şifrelemek kaydıyla aşağıdaki şekilde olabilir.

[vb:1:254950ebd1]Sub a()
sifre = InputBox("Lütfen Şifreyi Giriniz.")
If sifre = "123" Then
.
.
.
Çalıştırmak istediğiniz kodlar
.
.
.
Else
MsgBox ("Şifreyi yanlış girdiniz.")
End If
End Sub[/vb:1:254950ebd1]


123 yazan yere istediğiniz şifreyi yazın.

 

[demhatozcelik]

Sayın mehmett teşekkürler

tam istediğim gibi yalnız şifreyi girdiğimde rakam olarak değilde **** şeklinde görünmesi mümkünmü?

 

[xxrt]

olarak değilde **** şeklinde görünmesi mümkünmü?

Arama motoru ile arama yapınız.
http://www.excel.web.tr/viewtopic.php?p=1894#1894

http://www.excel.web.tr/viewtopic.php?p=17935#17935