Şifreli açılışta başka excel açıkken hata veriyor.

[relaxim]

Merhabalar,
Şifreli açılışta başka excel kitabı açıkken hata veriyor. Başka excel açık değilse sorun yok. Neden olabilir. Aşağıda hata veren kısmı belirttim.

Şimdiden teşekkürler.

Sub form()
Call Autpen
End Sub
Sub Autpen()
Call sayfaları_gizle
Application.Visible = False
UserForm1.Show
Sheets("GENEL").[A1] = Application.StatusBar 'bu satırda hata veriyor sadece GENEL sayfasını açıyor.
'MsgBox "Yanlış Şifre Girdiniz"
End Sub
Sub sayfaları_gizle()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "GENEL" Then
Sheets(i).Visible = xlVeryHidden
End If
Next i
End Sub

 

[Muzaffer Ali]

Merhaba.
Sheets ve Worksheets terimlerinin önüne thisworkbook ekleyin
Yani şöyle olacak thisworkbook.Sheets("GENEL").[A1] = Application.StatusBar
Diğerlerine de siz ekleyin.

 

[relaxim]

Muzaffer Bey ilginiz için teşekkür ederim.
Sadece ilgili modülde değiştirdim. Bütün modüllerde değiştirmem gerekiyor mu? Diğerleri kapalıyken de hata verdi tamam deyince normal açtı.
Sıkıntı nedir anlamadım. Daha önce böyle bir problem yoktu. Son zamanlarda sadece satır sütun renklendirme ekledim.

 

[Muzaffer Ali]

Ne hatası veriyor?
Dosyanızı paylaşırsanız daha hızlı ve doğru sonuca ulaşabiliriz.

 

[relaxim]

Muzaffer Bey merhaba,

Belirttiğimiz satır sarı renkte olup, tamam dediğimizde sadece GENEL sayfasını açıyor diğer sayfaları gizliyor.
Giriş yapan kişiye göre ilgili sayfaları görebiliyor. Şimdi vaktim yok akşam evde verileri olmayan örnek eklerim.
Saygılar...

 

[relaxim]

Merhabalar

Örnek ektedir. Programı açmadan önce başka bir excel açık ise hata veriyor.
Kullanıcı Raci
Şifre R

 

[Korhan Ayhan]

Aşağıdaki değişiklikleri yapınca bende sorun düzeldi.

Module19;

Sub Auto_Open()
    ThisWorkbook.Activate
    Call sayfaları_gizle
    Application.Visible = False
    UserForm1.Show
    Worksheets("GENEL").[A1] = Application.StatusBar
    'MsgBox "Yanlış Şifre Girdiniz"
End Sub

Userform1;

Private Sub CommandButton1_Click()
    Call şifre_kontrol
    ThisWorkbook.Activate
End Sub

 

[relaxim]

Korhan Hocam ilginiz için teşekkürler. Ben şimdi denedim. Hata vermedi.
Ancak; sadece GENEL sayfası görünüyor, bütün sayfaları görmeye yetkili olduğum halde diğer sayfaları göremiyorum.
Saygılar....

 

[Korhan Ayhan]

@relaxim,

Konu başlığınız ile son sorunuzun içeriği eşleşmiyor. Ayrı sorular için ayrı konular açmanız arşiv açısından daha sağlıklı olacaktır.

 

[relaxim]

Korhan hocam merhaba,
Farklı konu değil normalde tek olarak bu programı açtığımda problem yok. Başka bir excel açıkken problem olmaya başladı son 10~15 gündür. Yani yeni bir şey istemedim. Yine de yanlış yaptığımı düşünüyorsanız; özür dilerim.
Saygılarımla.

 

[Korhan Ayhan]

Sorunuz "Şifreli açılışta başka excel kitabı açıkken hata veriyor " değil mi? Bunu cevabınıda #7 nolu mesajda verdiğimizi düşünüyorum.

#8 nolu mesajınız;

....
Ancak; sadece GENEL sayfası görünüyor, bütün sayfaları görmeye yetkili olduğum halde diğer sayfaları göremiyorum.

Bu talepleriniz sizce aynı mı?

 

[relaxim]

Sorunuz "Şifreli açılışta başka excel kitabı açıkken hata veriyor " değil mi? Bunu cevabınıda #7 nolu mesajda verdiğimizi düşünüyorum.

#8 nolu mesajınız;



Bu talepleriniz sizce aynı mı?

Korhan hocam sizinle tartışmayı saygımdan dolayı istemem. Yanlış anlatmış olabilirim.
Sizin verdiğiniz kodlar hata uyarısını almayı engelledi ama hatanın kendisi duruyor.
İlk gönderdiğim örneğe bakarsanız orada da sadece GENEL sayfası açılıyor diğer sayfalar görünmüyor.
Yani excel açıkken hata veriyor derken hem hata uyarını hem de sadece genel sayfasının açıldığını diğer sayfaları göremediğimiz demek istemiştim.
5. mesajda bunu anlatmak istemiştim.
Değerli zamanınızı aldığım için kusura bakmayınız.
Saygılar...

 

[Korhan Ayhan]

Ben mesajlarınızı defalarca okudum. Sayfa gizlenme sorunu olduğunu dile getiren bir cümlenizi göremedim.

Ben bunları tartışmak için yazmıyorum. Sorularınızı net sorarsanız alacağınız cevaplarda net olur. Varmaya çalıştığım nokta budur...

 

[relaxim]

Merhabalar

Application.Visible = False *****False yi True yapınca düzeldi.

İlgilenenlere teşekkür ederim.