Macro butona şifre koymak

[search77]

Arkadaşlar merhaba,
Aşağıdaki kodum bir butona tanımlı, butona basınca macroyu çalıştırmadan önce bu kodun önüne şifre koymak istiyorum.
Şifre kodu "123" olsun, bu şifre macro kodlarını aşağıda yazdığım kodların önüne nasıl entegre edebilirim.
Yani çalıştır dediğimde şifre doğru girildiğinde aşağıdaki kod çalışsın. şifre yanlış ise şifreniz yanlış tekrar girin desin.
Şimdiden yardım edeceklere çok çok tşk ederim, iyi ki varsınız.
Saygılar.

Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
Set dc = f.Files
For Each Dosya In dc
i = i + 1
Cells(i + 1, 1) = Dosya.Name
Next
End Sub

 

[maliex]

Sub Dosya_İsimleri()
    Dim ds As Object, dc As Object, f As Object, s
    Dim SIFRE As String
    
 
    SIFRE = "123"
hata:
  
    SIFRE_ = InputBox("Şifreyi girin:", "Şifre Girişi")
    
    
If SIFRE_ = "" Then
    Exit Sub
Else
    
    If SIFRE_ = SIFRE Then
        Set ds = CreateObject("Scripting.FileSystemObject")
        Set f = ds.GetFolder("C:\Users\SS\Desktop\Dosya")
        Set dc = f.Files
        For Each Dosya In dc
            i = i + 1
            Cells(i + 1, 1) = Dosya.Name
        Next
    Else
        MsgBox "Yanlış şifre girdiniz. Tekrar deneyiniz", vbExclamation, "Hata"
GoTo hata
    End If
    
End If
    
End Sub

 

[search77]

sayın maliex harika olmuş, elinize kolunuza emeğinize sağlık, saygılar

 

[maliex]

Rica ederim, Kolay gelsin