Yalnız Mesajı Göster
Eski 09-02-2010, 16:57  
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,101
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Bana pek mantıklı gelmedi. Souyu yanlış anlamışta olabilir tabi.

ThisWorkbook daki kodu aşağıdaki gibi değiştirin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Workbook_Open()
If Sayfa1.[D1] = "Deneme" Then
    Application.Visible = False
    UserForm1.Show
End If
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla