Excel açılma esnasında

[latif1881]

Excel açıldıktan sonra
Mesaj kutusu açılsın.
Yasal sorumlulukları kabul ediyormusunuz? Diye sorsun
Evet hayır seçimi yapılsın.
Evet derse sayfa2 açılsın.
Hayır derse çalışma kitabı kendini kapatsın.

 

[Mahir64]

Merhaba,
Fikir verebilir.

 

[latif1881]

Aslında bu işi yapmaya çalıştım ama çalışmıyor. Cevap için teşekkürler
Sub Auto_open()
msgbox " ......kabul ediyormusunuz", vbyesno
If sonuc1= vbNo Then
Application.Quit
If sonuc2 = vbYes Then
Worksheets("Sayfa2")
End sub

 

[latif1881]

Merhaba,
Fikir verebilir.

Teşekkürler

 

[latif1881]

Üstadlarım yardım rica ediyorum

 

[Rheago]

Mahir hocamın attığı excel sayfasında istediğiniz şekilde verilmiş aslında. Fakat userform şeklinde.Önce Mahir hocanın ve sonra kendi çalışma sayfanızı açınız. Ardından Mahir hocanın gönderdiği çalışma sayfasından Kod görüntülemeyi açıp ardından Ctrl + R ye basıp Project görünümünü açınız. Solda açılan ekrandan Userform1 i seçip aşağıdaki kendi çalışma sayfanıza sürükleyiniz. Userform1 e tıklayıp düzenleme yapabilirsiniz.

 

[latif1881]

Mahir hocamın attığı excel sayfasında istediğiniz şekilde verilmiş aslında. Fakat userform şeklinde.Önce Mahir hocanın ve sonra kendi çalışma sayfanızı açınız. Ardından Mahir hocanın gönderdiği çalışma sayfasından Kod görüntülemeyi açıp ardından Ctrl + R ye basıp Project görünümünü açınız. Solda açılan ekrandan Userform1 i seçip aşağıdaki kendi çalışma sayfanıza sürükleyiniz. Userform1 e tıklayıp düzenleme yapabilirsiniz.

teşekkür ederim