sadece userform görünsün

[Marco]

Merhaba arkadaşlar....

Masaüstündeki bir çalışma kitabını açtığımda sadece kitabın içinde hazırladığım userformun ekrana gelmesini...excel çalışma kitabına ait başka bir öğenin görünmemesini istiyorum. Ne yapmalıyım ?

 

[ileriexcel]

Sub auto_open()
Application.Visible = False
UserForm1.Show
End Sub

 

[Marco]

Teşekkür ederim. işe yaradı... ama dosya elimde kaldı müdahale etmenin yolu yok mudur

 

[Marco]

Başka bir excel dosyanı açıp makro güvenlik ayarını yükseltmeyi akıl edebildim ama soğuk terler döktüm

 

[ileriexcel]

sub auto_open()
Application.Visible = False 'uygulamayı gizle
userform1.show ' formu göster
End Sub

Private Sub CommandButton1_Click()
Application.Visible = True 'uygulamayı göster
ActiveWorkbook.Save 'kiatabı kaydet
ActiveWorkbook.Close 'kitabı kapat
End Sub
*************************************

'sadece bir tek excel dosyasını gizleme ve gösterme

'Bir dosyayı gizlemek için

Windows(ThisWorkbook.Name).Visible = False

'Göstermek için

Windows(ThisWorkbook.Name).Visible = true
***************************************************

Sub Autpen()
If Workbooks.Count = 1 Then
Application.Visible = False
Else
Windows(ThisWorkbook.Name).Visible = False
End If
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
If Workbooks.Count = 1 Then
Application.Visible = True
Else
Windows(ThisWorkbook.Name).Visible = True
End If
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

 

[couldbe]

Sub auto_open()
Windows("son__version_2_").Visible = False
ANA.Show
End Sub

arkadaşlar haa veriyo
sadece son__version_2_ excel dosyası gizlensin diğer excel dosyaları gizlenmesin istiyom. ANA userformun ismi

 

[Tankut SAZLI]

Sub auto_open()
Windows("son__version_2_").Visible = False
ANA.Show
End Sub

arkadaşlar haa veriyo
sadece son__version_2_ excel dosyası gizlensin diğer excel dosyaları gizlenmesin istiyom. ANA userformun ismi

Burada dosyanın ismini yazmışsınız hatayı ordan alıyorsunuz.Dosya ismi yazmanıza gerek yok.Kodları ileriexcel arkadaşımızın verdiği gibi yazmanız yeterli.

Sub auto_open()
Windows([b]ThisWorkbook.Name[/b]).Visible = False
ANA.Show
End Sub

Farklı bir uygulama şekline de buradan bakabilirsiniz.Excel Derleme

 

[couldbe]

arkadaşlar bu hatayı veriyo
ilginiz iin teşekürler