Çalışma Kitabını Koru

[1Al2Ver]

Merhaba,

UserForm ile kullanıcı seçilen çalışma kitabını, "Çalışma Kitabını Koru" özelliği aktif olduğunda aşağıdaki kodlar UserForm'u açmıyor.

Sub Auto_Open()
Call sayfaları_gizle
Application.Visible = False
UserForm1.Show
End Sub

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

Sub form()
Call Auto_Open
End Sub

Hem UserForm'u açmak hem de çalışma kitabını korumak için ne yapıla bilir ?

Teşekkür ederim.

 

[cems]

Kodların başında ; yani sub dan sonra korumayı kaldırman ve kod sonunda tekrar korumayı vermen gerek . Bunu userformdaki her tuşta da tekrar yapman kodların çalışmasını ve sonra korunmasını sağlar.
Ayrıca sayfa gizlemeyi de kapanış tuşunda kaldırman , başka dosyalarda sorun yaşamanı engeller.

Örnek dosya yüklemediğinden uygulama yapıp da göndermez kimse , ancak yapman gereken bu .

Hem UserForm'u açmak hem de çalışma kitabını korumak için ne yapıla bilir ?

Teşekkür ederim.

 

[1Al2Ver]

Sayın cems merhaba,

İlginiz ve yönlendirmeleriniz teşekkür ederim.

Dosya ekleyecektim fakat boyutu ve özelliği açısından yapmadım,

Saygılarımla.