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

Katılım
21 Kasım 2018
Mesajlar
153
Excel Vers. ve Dili
Excel 2013 , Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
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.

Kod:
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
 
Katılım
21 Kasım 2018
Mesajlar
153
Excel Vers. ve Dili
Excel 2013 , Türkçe
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.

Kod:
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.
 
Üst