giriş parolası olan bir çalışma kitabını buton ile açmak

[olymposss]

sn üstadlarım herkese hayırlı günler

aradım aradım ama bi türlü bulamadım.
giriş parolası olan bir çalışma kitabını buton yardımı ile açmak istiyorum.aşağıdaki gibi denedim ama olmadı.giriş şifresini direkt okutup sayfayı açacak.

Sub Düğme1_Tıklat()
Dim sifre As String
sifre = "123456"
Workbooks.Open ThisWorkbook.Path & "\deneme.xls", Password = sifre
End Sub

acaba mümkünmü yardımcı olacak arkadaşlara şimdiden teşekkürler.
saygılar:yardim:

 

[emrexcel123]

şu şekilde dener misin ?
Sub Düğme1_Tıklat()
sfr = "123456"
Workbooks.Open ThisWorkbook.Path & "\kitap2.xls", , , , sfr
End Sub

 

[olymposss]

çok teşekkür ederim elinize sağlık
saygılar

 

[emrexcel123]

rica ederim

ufak bir hata sadece tanımlamada yapmışsın yoksa benim yaptığım birşey yok ii çalışmalar...