this workbook

[ANTALYA 01]

Merhaba Aşağıdaki kodu this work book a yapıştırıyorum güzel çalışıyor

Fakat Bu işlemin yanında bu koduda this work booka yapıştırmam gerekiyor

Private Sub Workbook_Open()
Sheets("Sayfa2").Select
End Sub

Her iki işlemi yapması için this work book un nasıl yapılması gerekiyor

__________________

Private Sub Workbook_Open()
Application.Visible = False
Application.ScreenUpdating = False
Call xlSheetVeryHidden_All_Sheets
sifre = InputBox("", _
"ŞİFRE", "Şifreyi Buraya Giriniz.")
If sifre = "123" Then
MsgBox "Şifre Doğrulandı", vbInformation, _
"Giriş Kabul Edildi"
Call xlSheetVisible_All_Sheets
Application.Visible = True
Sheets("Sayfa1").Select

Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Program Açılamadı", vbCritical, "Yanlış ŞİFRE"
Application.Quit
End If
End Sub


Sub xlSheetVisible_All_Sheets()
On Error Resume Next
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Visible = xlSheetVisible
Next
End Sub
Sub xlSheetVeryHidden_All_Sheets()
On Error Resume Next
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Visible = xlSheetVeryHidden
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Visible = xlSheetVeryHidden
Next
ActiveWorkbook.Save
End Sub

 

[alpi]

Sheets("Sayfa2").Select Satırının ne zaman çalışmasını istiyorsanız aşağıdaki prosedür içinde bir yere yazabilirsiniz.

Private Sub Workbook_Open()
Application.Visible = False
Application.ScreenUpdating = False
Call xlSheetVeryHidden_All_Sheets
sifre = InputBox("", _
"ŞİFRE", "Şifreyi Buraya Giriniz.")
If sifre = "123" Then
MsgBox "Şifre Doğrulandı", vbInformation, _
"Giriş Kabul Edildi"
Call xlSheetVisible_All_Sheets
Application.Visible = True
Sheets("Sayfa1").Select
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Program Açılamadı", vbCritical, "Yanlış ŞİFRE"
Application.Quit
End If
End Sub

Yanlış anlamadıysam Private Sub Workbook_Open() Prosedürünü iki kere kullanmak istiyorsunuz fakat bu mümkün değil VBA bir kod editörü içerisinde aynı isimde prosedürü bir kez kullanmaya izin verir.

 

[ANTALYA 01]

n

Merhaba

Kodu denedim.Compile error Sub OR function not defined HATASI Verdi.
Ben bu kodla sayfa açılırken şifre sorsun ardından Örnek sayfa 1 i açsın istiyorum.15 yakın sayfa var.
Application.Visible = True
Sheets("Sayfa1").Select
Else
Sanırsam burdaki sayfa 1 değilde örnek ilk açılmasını istediğim sayfa 10 ise sayfa 10 yazın demek istiyorsunuz yanlış anlamadıysam.

Yanlış anlamadıysam Private Sub Workbook_Open() Prosedürünü iki kere kullanmak istiyorsunuz fakat bu mümkün değil anlaşılan thiswork book 1 kod kabul ediyor modül gibi 2.bir kodu kabul etmiyor.Doğrumu anlamışım teşekkürler

 

[alpi]

Kusura bakmayın ama ben anlayamıyorum herhalde. İlk verdiğinz kodlar çalışıyor ben denedim.

siz dosyanızı açan kişiye parola soruyorsunuz parola doğru ise dosya açılıyor ve sayfa1 i aktif yapıyor eğer parola hatalı ise Uygulamadan çıkıyor. sizin yapmak istediğiniz bu değil mi? Bunu yukarıdaki kodlar zaten yapıyor.

 

[ANTALYA 01]

GF

Call xlSheetVeryHidden_All_Sheets

Benim bilgisayrda denediğimde önce sayfa açılınca yukarıdaki kod geliyor.
Compile error Sub OR function not defined HATASI Veriyor dosya ekte

 

[Levent Menteşoğlu]

Hata vermesi doğal çünkü siz bütün sayfaları gizlemeye çalışıyorsunuz, halbuki en az bir sayfanın açık kalması gerekir.