Çözüldü Çalışma Kitabı Korumalıyken Hata Veriyor

[ekremmk]

Herkese hayırlı Cumalar.
Sub model_sifre_sayfa_gizle() Excel.Application.ScreenUpdating = False ThisWorkbook.Worksheets("default").Visible = xlSheetVisible For i = 1 To ThisWorkbook.Worksheets.Count If ThisWorkbook.Worksheets(i).Name <> "default" Then ThisWorkbook.Worksheets(i).Visible = xlSheetVeryHidden End If Next Excel.Application.ScreenUpdating = True End Sub
bu kod çalışma kitabı korumalı değilken hata vermiyor ancak çalışma kitabı korumalı olunca hata veriyor. Nasıl çözebilirim aceba?
Şimdiden teşekkür ederim. Hayırlı günler.

 

[Muzaffer Ali]

Merhaba.
Önce korumayı kaldırın en sonunda yeniden koruma yapabilirsiniz.
Kodlarınız aşağıdaki şekilde olmalı. "şifre" yerine kendi şifrenizi yazın.

Sub model_sifre_sayfa_gizle()
    ThisWorkbook.Unprotect "şifre"
    Excel.Application.ScreenUpdating = False
    ThisWorkbook.Worksheets("default").Visible = xlSheetVisible
    For i = 1 To ThisWorkbook.Worksheets.Count
        If ThisWorkbook.Worksheets(i).Name <> "default" Then
            ThisWorkbook.Worksheets(i).Visible = xlSheetVeryHidden
        End If
    Next
    Excel.Application.ScreenUpdating = True
    ThisWorkbook.Protect "şifre"
End Sub

 

[ekremmk]

Merhaba.
Önce korumayı kaldırın en sonunda yeniden koruma yapabilirsiniz.
Kodlarınız aşağıdaki şekilde olmalı. "şifre" yerine kendi şifrenizi yazın.

Sub model_sifre_sayfa_gizle()
    ThisWorkbook.Unprotect "şifre"
    Excel.Application.ScreenUpdating = False
    ThisWorkbook.Worksheets("default").Visible = xlSheetVisible
    For i = 1 To ThisWorkbook.Worksheets.Count
        If ThisWorkbook.Worksheets(i).Name <> "default" Then
            ThisWorkbook.Worksheets(i).Visible = xlSheetVeryHidden
        End If
    Next
    Excel.Application.ScreenUpdating = True
    ThisWorkbook.Protect "şifre"
End Sub

Problem verdiğin kodla çözüldü hocam. Teşekkür ederim.