gizli sayfayı göster

[vitaminb1]

elimdeki belgede gizli Sayfa1 göstermeyi başaramadım. Aşağıda yazdığım kod nedeni ile gizli kaldığını düşünüyorum. nasıl çözerim.
dosyada süre dolduğu için bazı sayfaları gizlenmiş.Gizli sayfaları nasıl açarım. bu kod da sıkıntı var.
Sub Autpen()

Worksheets("Sayfa1").Unprotect Password:="2"
Worksheets("HATALI KAYITLAR").Unprotect Password:="2"
ActiveWorkbook.Unprotect "2"


Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.ScreenUpdating = True

Dim saat1 As Date
Dim saat2 As Date
Dim su
saat1 = "25/12/2019"
saat2 = Date
If saat2 > saat1 Then

Sheets("SÜRESİDOLAN").Select
Range("E5:L65000").ClearContents
Range("E5").Select

On Error Resume Next
Dim gizle As Worksheet
For Each gizle In Worksheets
gizle.Visible = xlVeryHidden
Next
ThisWorkbook.Save
'UserForm18.Show
ThisWorkbook.Close
Exit Sub
Else


Application.DisplayAlerts = False
Tekrar:
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Sayfa1" _
Or Worksheets(i).Name = "SAYIM TUTANAĞI" _
Or Worksheets(i).Name = "HATALI KAYITLAR" _
Or Worksheets(i).Name = "BOŞ" _
Or Worksheets(i).Name = "LİSTE" _
Or Worksheets(i).Name = "ELİMİZDEKİ" _
Or Worksheets(i).Name = "TÜMÜ" _
Or Worksheets(i).Name = "İADE" _
Or Worksheets(i).Name = "VERGİ" _
Or Worksheets(i).Name = "ALINAN" _
Or Worksheets(i).Name = "SÜRESİDOLMUŞ" _
Or Worksheets(i).Name = "SÜRESİDOLAN" _
Or Worksheets(i).Name = "ÜSTYAZI" _
Or Worksheets(i).Name = "BOS" Then GoTo ATLA
Worksheets(i).Delete
GoTo Tekrar:
ATLA:
Next i
Application.DisplayAlerts = True

For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i

With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False

End With




'Application.DisplayFormulaBar = False

ActiveWorkbook.Protect "2"
Worksheets("Sayfa1").Protect Password:="2"
Worksheets("HATALI KAYITLAR").Protect Password:="2"
Application.ScreenUpdating = False


Application.ScreenUpdating = True
Application.WindowState = xlNormal
Application.Width = 1000
Application.Height = 560
UserForm2.Show

End If

End Sub



"worksheet sınıfının select yöntemi başarısız" hatasını vermekte. bu hata gizlemeden kaynaklaınıyor. diye düşünüyorum sayfa biri göster yapamadım.

 

[Orion1]

aşağıdaki kod gösterir.

sheets("Sayfa1").visible=true

 

[muygun]

merhaba;

Sub tüm_sayfalar()
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
Application.ScreenUpdating = True
End Sub

İyi çalışmalar.

 

[PLİNT]

elimdeki belgede gizli Sayfa1 göstermeyi başaramadım. Aşağıda yazdığım kod nedeni ile gizli kaldığını düşünüyorum. nasıl çözerim.
dosyada süre dolduğu için bazı sayfaları gizlenmiş.Gizli sayfaları nasıl açarım. bu kod da sıkıntı var.
"worksheet sınıfının select yöntemi başarısız" hatasını vermekte. bu hata gizlemeden kaynaklaınıyor. diye düşünüyorum sayfa biri göster yapamadım.

Evren ağabeyin gözünden kaçmış.
Sn.muygun cevap vermiş ama hazırlamışken ekledim.
Aşağıdaki değişen kodu aynen kopyalayıp dosyadakiyle değiştirin.
dosyayı açıp kodu çalıştırın sayfalar görünecektir, dosyayı kaydedin.
kırmızı bölümü silin.

Sub Auto_Open()

Worksheets("Sayfa1").Unprotect Password:="2"
Worksheets("HATALI KAYITLAR").Unprotect Password:="2"
ActiveWorkbook.Unprotect "2"


Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.ScreenUpdating = True
'On Error Resume Next
[COLOR="Red"]Dim gizle As Worksheet
For Each gizle In Worksheets
gizle.Visible = true
Next
[/COLOR]
Application.DisplayAlerts = False
Tekrar:
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Sayfa1" _
Or Worksheets(i).Name = "SAYIM TUTANAĞI" _
Or Worksheets(i).Name = "HATALI KAYITLAR" _
Or Worksheets(i).Name = "BOŞ" _
Or Worksheets(i).Name = "LİSTE" _
Or Worksheets(i).Name = "ELİMİZDEKİ" _
Or Worksheets(i).Name = "TÜMÜ" _
Or Worksheets(i).Name = "İADE" _
Or Worksheets(i).Name = "VERGİ" _
Or Worksheets(i).Name = "ALINAN" _
Or Worksheets(i).Name = "SÜRESİDOLMUŞ" _
Or Worksheets(i).Name = "SÜRESİDOLAN" _
Or Worksheets(i).Name = "ÜSTYAZI" _
Or Worksheets(i).Name = "BOS" Then GoTo ATLA
Worksheets(i).Delete
GoTo Tekrar:
ATLA:
Next i
Application.DisplayAlerts = True

For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i

With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
'Application.DisplayFormulaBar = False
ActiveWorkbook.Protect "2"
Worksheets("Sayfa1").Protect Password:="2"
Worksheets("HATALI KAYITLAR").Protect Password:="2"
Application.ScreenUpdating = False
Application.ScreenUpdating = True
Application.WindowState = xlNormal
Application.Width = 1000
Application.Height = 560
UserForm2.Show
End Sub

 

[vitaminb1]

dedikleriniz yaptık fakat aşağıdaki hata veriyor sarı reng içerisinde sayfa1 ' işareti ile etkisiz hale geçsem. diğer sayfa (örnek "SÜRESİDOLAN")için aynı hatayı veriyor.


Dim i As Long, sat As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False

kod çalıştırınca sarı rengli yerde hata veriyor neden. "worksheet sınıfının select yöntemi başarısız" hatasını

 

[Orion1]

Evren ağabeyin gözünden kaçmış.
Sn.muygun cevap vermiş ama hazırlamışken ekledim.

Kaçmadı.Soruda sayfa1 i görünür yapmak istiyor.
Sadece o döngünün altına benim yazdığım kodu girecek o kadar.

 

[bekirus]

2010 excel de sayfa gizle göster çalışmıyor vb den kod hatası diyorlar nasıl çözülür

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Sayfa2.Visible = Sayfa2.Visible = 0