Rectangles yoluyla oluşturulan butona şifre

[OKUROGLU3375]

İngilizce Excel sayfası içerisinde Insert / Shapes / Rectangles yoluyla
oluşturulan buton makro çalıştırmaktadır,
Bu makroyu çalıştırmadan önce şifre sorması lazım,
şifre doğruysa işlem yapması, şifre doğru değilse işlem yapmaması için yardımlarınızı rica ederim.
Not: Buton Commandbuton değildir.

 

[Haluk]

Aşağıdaki gibi basit bir şey olabilir....

Bu kodları yeni bir modüle yazıp, "Test" isimli prosedürü söz konusu nesneye makro olarak atayın.

Sub Test()
10:
    x = Application.InputBox("Şifre...", "Şİfre girişi....!", "Şifrenizi buraya girin")
    
    If x = False Then                                                                   'Eğer kullanıcı Cancel-Vazgeç tuşuna bastıysa
        y = MsgBox("Şifre girişi yapılmadı, tekrar denemek ister misiniz?", vbYesNo)    'Kullanıcıyı uyar
        If y = vbNo Then                                                                'Kullanıcı devam etmek istiyor mu?
            MsgBox "Programdan çıkılacak...."                                           'Devam etmek istemiyor, o zaman programdan çıkalım
            Exit Sub
        Else
            GoTo 10:                                                                    'Kullanıcıyı tekrar şifre girişine yönlendirelim
        End If
    ElseIf x <> "Pass123" Then                                                          'Kullanıcı eğer "Pass123" değerini girmezse ....
        MsgBox "Yanlış şifre...", vbCritical                                            'Yanlış şifre girildiğini kullanıcıya söyle
        Exit Sub                                                                        'Kodları durdur ve programdan çık
    End If
    
    MsgBox "Şifre doğru....!"
    
    'Şifre doğru girildiğinde kullanılacak kodlar buraya yazılacak.
    '.......................
    '................
    '...........
    '........
End Sub

 

[OKUROGLU3375]

Beceremedim

Beceremedim bi türlü... Uğraşlarınıza teşekkürler
hayırlı akşamlar

 

[Haluk]

Dosyanız aşağıdaki linktedir...

https://drive.google.com/open?id=0Bw38kVQiZJZEN01VNXJVR0d2UXc

.

 

[Murat OSMA]

Üyemiz kendi dosyasına uyarlamada sıkıntı çekiyor sanırım Sn. Raider..
O yüzden sanıyorum dosya dahî gönderilse çözüm olmayacak.
Burada bir kısım kodları görebilirsiniz.. ​

 

[Haluk]

Anlıyorum Murat Bey, umarım sorunu bir şekilde çözülür.

.