Merhaba ;
Bir userformum var , B kitabını açtığımda sayfa görünmeden direk karşıma çıkması için aşağıdaki kod yazılı .(çalışıyor) Benim problemim userform açıldıktan sonra userform üzerinde commandbutton ile A kitabını açmak ve userform ve B kitabını kapamak istiyorum (Userform ve B kitabı kapanıyor), Ancak aşağıdaki kod nedeniyle A kitabı açılıyor ama göremiyorum .
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub
commandbutton ile ilgili kod aşağıdadır ,
Private Sub CommandButton15_Click()
Workbooks.Open Filename:="C:\Documents and Settings\ugur\Belgelerim\QUICK LOADING\KUYRUK BAZLI\A.xls", Password:="Şifre"
ThisWorkbook.Close 1
End Sub
Bir userformum var , B kitabını açtığımda sayfa görünmeden direk karşıma çıkması için aşağıdaki kod yazılı .(çalışıyor) Benim problemim userform açıldıktan sonra userform üzerinde commandbutton ile A kitabını açmak ve userform ve B kitabını kapamak istiyorum (Userform ve B kitabı kapanıyor), Ancak aşağıdaki kod nedeniyle A kitabı açılıyor ama göremiyorum .
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub
commandbutton ile ilgili kod aşağıdadır ,
Private Sub CommandButton15_Click()
Workbooks.Open Filename:="C:\Documents and Settings\ugur\Belgelerim\QUICK LOADING\KUYRUK BAZLI\A.xls", Password:="Şifre"
ThisWorkbook.Close 1
End Sub