Açılışda sayfayı gizlesin

[atillaciftci]

Makroları aktif ettikten sonra Sheet1 isimli sayfayı da gizlemesini istiyorum
Sheets("Sheet1").Visible = False
yazıyorum ama olmuyor nasıl yapabilirim acaba...


Option Explicit
Dim InI As Integer
Dim BoSichern As Boolean

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For InI = Sheets.Count To 1 Step -1
Sheets(InI).Visible = True
Next InI
Sheets("MAKROLAR AKTIF DEGIL").Visible = False
ActiveWorkbook.Saved = True
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
BoSichern = True
If ActiveWorkbook.Saved Then
Sheets("MAKROLAR AKTIF DEGIL").Visible = True
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "MAKROLAR AKTIF DEGIL" Then _
Sheets(InI).Visible = xlVeryHidden
Next InI
BoSichern = True
ThisWorkbook.Save
End If
End Sub

 

[Huseyinkis]

Dosyanızdaki ilk sayfa Sheet1 mi?

 

[atillaciftci]

Sayfa4(Sheet1)

 

[Huseyinkis]

Kodları test edermisiniz.


Private Sub Workbook_Open()
Application.ScreenUpdating = False
For InI = Sheets.Count To 1 Step -1
Sheets(InI).Visible = True
Next InI
Sheets("MAKROLAR AKTIF DEGIL").Visible = False
Sheets("Sheet1").Visible = False
ActiveWorkbook.Saved = True
Application.ScreenUpdating = True
End Sub

 

[atillaciftci]

Siz
Sheets("Sheet1").Visible = False
ilave etmişsiniz bende zaten onu denemiştim olmamıştı.
Hata vermiyor ama işlem de görmüyor.

 

[Huseyinkis]

Siz
Sheets("Sheet1").Visible = False
ilave etmişsiniz bende zaten onu denemiştim olmamıştı.
Hata vermiyor ama işlem de görmüyor.

Dosyanızda başka kodlar mevcutmu?

Mevcut değilse sayfanın adını değiştirip denermisiniz.

 

[atillaciftci]

Bütün kodlarım aşağıdaki gibi
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
başlığının altındaki kodları kullanmıyordum onları aktif yapınca düzeldi ama bu sefer de sadece çarpı ile çıkarken kaydedebiliyorum bende öyle olsun istemiyorum...



Option Explicit
Dim InI As Integer
Dim BoSichern As Boolean

Private Sub Workbook_Open()

Application.StatusBar = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & _
" ////// " & " BEŞİKTAŞ TERSANESİ ///// ATİLLA ÇİFTÇİ /////"


Application.ScreenUpdating = False
For InI = Sheets.Count To 1 Step -1
Sheets(InI).Visible = True
Next InI
Sheets("MAKROLAR AKTIF DEGIL").Visible = False
Sheets("a").Visible = False
ActiveWorkbook.Saved = True
Application.ScreenUpdating = True
End Sub

'AŞAĞIDAKİ ALANLARI AKTİF YAPARSAN SADECE ÇARPI İLE ÇIKARKEN DOSYA KAYIT YAPILABİLİR.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If BoSichern = False Then
Cancel = True
MsgBox "DOSYANIZ SADECE KAPATILIRKEN KAYDEDILEBILIR!"
Else
Sheets("MAKROLAR AKTIF DEGIL").Visible = True
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "MAKROLAR AKTIF DEGIL" Then _
Sheets(InI).Visible = xlVeryHidden
Next InI
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
BoSichern = True
If ActiveWorkbook.Saved Then
Sheets("MAKROLAR AKTIF DEGIL").Visible = True
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name <> "MAKROLAR AKTIF DEGIL" Then _
Sheets(InI).Visible = xlVeryHidden
Next InI
BoSichern = True
ThisWorkbook.Save
End If
End Sub

 

[Huseyinkis]

Dosyanın bos halini yuklerminiz kodlar kalsın. Bilgileri silebilirsiniz.

İnanın Ramazan ayınında etkisiyle biraz anlama kıtlığı çekiyorum oyuzden dosya uzerinde çalışmak daha yararlı olacaktır.