Herkese hayırlı Cumalar.
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.
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.