Korumalı sayfada iken kaydedip çıkıldığında yeniden açılış işlemi

[zehnisağcan]

Private Sub Worksheet_Activate()
Application.Visible = False
Şifre = "12345"
Yaz_Şifre = InputBox(" YETKİLİ İSENİZ LÜTFEN ŞİFRENİZİ GİRİNİZ!!!! ", " YETKİLİ ŞİFRESİ GİRİNİZ ")
If Yaz_Şifre <> Şifre Then Sheets("FORM").Select
Application.Visible = True
End Sub

sevgili hocalarım tekrar merhaba;

çalışma kitabımda "form, data, izin" sayfaları var

form sayfasında ağdaki kişiler işlem yapıyor

"data" ve "izin" sayfaları korumalı şifreyi bilen açıp içinde düzenleme veya kontrol yaptıkdan sonra kaydedip çıkıyor

benim istediğim "data" ve "izin" sayfasında iken kaydedip çıkıldıkdan sonra tekrar açıldığında korumalı sayfa açık vaziyette geliyor, tekrar çalışma kitabı açılışında "form" sayfası açılsın.

şimdiden sevgili hocalarıma teşekür ederim.

 

[Orion1]

Autpen prosedürünüz varsa içindeki kodları oraya yapıştırın yoksa bu nların hepsini bir modüle yapıştırın.

sub auto_open
    sheets("data").visible=false
    sheets("izin").visible=false
    sheets("form").select
end sub

 

[zehnisağcan]

hocam modüle ekledim vermiş olduğunuz macroyu yalnız şöyle bir durum oluştu, açıldığı zaman data ve izin sayfasını gizli duruma getiriyor ve form sayfasını açıyor gizlemese daha ii olacak

çalışma kitabı açılışında direk form sayfasından açılsın

 

[zehnisağcan]

sheets("data").visible=false
sheets("izin").visible=false

burdaki "false" komutlarını "true" yaptım gizlemedi ve direkt olarak form sayfasına geçti

yardımlarınızı esirgemediğiniz için sizlere teşekür ediyorum hocam.

 

[Orion1]

sheets("data").visible=false
sheets("izin").visible=false

burdaki "false" komutlarını "true" yaptım gizlemedi ve direkt olarak form sayfasına geçti

yardımlarınızı esirgemediğiniz için sizlere teşekür ediyorum hocam.

Rica ederim.
Biraz siz kodlara kendinizdende bir şeyle katmalısınız.
Ancak öyle inkişaf edebilirsiniz.
İyi çalışmalar.