Makro'ya Düzenleme

[1Al2Ver]

Merhaba,

Masaüstünde kayıtlı excel'de birden fazla kullanıcı, kendi şifreleri ile dosyayı açıp işlem yapıyorlar,

Yetkisiz birisi dosyayı açmaya kalktığında, karşısına çıkan Kullanıcı Formu'nda (UserForm) şifreyi giremediğinde "KAPAT" düğmesini tıklıyor, çıkan mesaja "İptal" dediğinde ise, excel kapatılırken ekranda hangi sayfalar varsa, ekrana "ANASAYFA" sayfası ile birlikte o sayfalarda geliyor ve bu sayfalar kullanıma açık halde kalıyor.

İstiyorum ki, excel açılırken şifre ekranı (UserForm2) gelmeden önce "ANASAYFA" sayfası dışındaki sayfalar ekrana gelmesin, bu durumda "İptal" de tıklansa, ekranda sadece "ANASAYFA" sayfası olduğundan başka sayfalara erişemeyecektir, dolayısı ile de şifresini girmeden çalışamayacaktır.

Resimde; Kullanıcı Formu'nu açtığımda, excelden çıkarken "ANASAYFA" ile birlikte olan, ancak olmaması gereken "ÇİZELGE-1" ve "ÇİZELGE-2" sayfaları var.

Teşekkür ederim.

Modül1'de ;

Sub AUTO_OPEN()
UserForm2.Show
End Sub

Modül3'te ;

Sub AUTO_OPEN1()
Call sayfaları_gizle
Application.Visible = False
UserForm2.Show
End Sub

[COLOR="Red"]Sub sayfaları_gizle()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "ANASAYFA" Then
Sheets(i).Visible = xlVeryHidden
End If
Next i
End Sub[/COLOR]

Sub form()
Call AUTO_OPEN1
End Sub

 

[Levent Menteşoğlu]

Merhaba

KAPAT butonunda yazan kod nedir?

 

[1Al2Ver]

Levent bey merhaba,

İlginiz için teşekkür ederim. Kod ;

Private Sub CommandButton2_Click() 'KAPAT
    Unload Me
    ActiveWorkbook.Save
Excel.Application.Quit
End Sub

 

[Levent Menteşoğlu]

KAPAT butonundaki kodlara aşağıdaki mavi renkli satırı ekleyerek denermisiniz.

Private Sub CommandButton2_Click() 
[B][COLOR="Blue"]sayfaları_gizle[/COLOR][/B]
    Unload Me
    ActiveWorkbook.Save
Excel.Application.Quit
End Sub

 

[1Al2Ver]

Levent bey merhaba,

Bilgisayar başına ancak geçebildim, gecikme için özür dilerim.

Sorun çözülmüştür, çok teşekkür ederim.

Saygılarımla.