n sayıda sayfanın aynı sütunlarında hücre koruma

[quesh]

arkadaşlar

elimde 100 sayfadan oluşan bir dosya var, ve ben bu dosyadaki her sayfanın "X:AD" aralığını değiştirilmemesi için korumaya almak istiyorum ancak her sayfaya tek tek manuel olarak bunu yapmak çok zamanımı alıyor, bunun için önereceğiniz kısa bir yol veya kod mevcut mudur ??

Teşekkür ederim.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırınız. ( 123 ile kendi şifrenizi değiştirirsiniz. )

Sub SayfaKoru()
    For Each sayfa In ActiveWorkbook.Worksheets
        With sayfa
            .Cells.Locked = False
            .Cells.FormulaHidden = False
            .Range("X:AD").Locked = True
            .Range("X:AD").FormulaHidden = True
            .Protect "[COLOR=red]123[/COLOR]"
        End With
    Next sayfa
End Sub

.

 

[quesh]

Run Time Error- 1004-
Range Sınıfının Locked özelliği kurulamıyor.

Hatası alıyorum. Debug yaptığımda ise
.Cells.Locked = False
sarı görünüyor

Merhaba,

Module kopyalayarak çalıştırınız. ( 123 ile kendi şifrenizi değiştirirsiniz. )

Sub SayfaKoru()
    For Each sayfa In ActiveWorkbook.Worksheets
        With sayfa
            .Cells.Locked = False
            .Cells.FormulaHidden = False
            .Range("X:AD").Locked = True
            .Range("X:AD").FormulaHidden = True
            .Protect "[COLOR=red]123[/COLOR]"
        End With
    Next sayfa
End Sub

.

 

[Ömer]

Sayfalar korumalı sanırım.

Sub SayfaKoru()
    For Each sayfa In ActiveWorkbook.Worksheets
        With sayfa
           [COLOR=blue] .Unprotect[/COLOR] "[COLOR=red]123[/COLOR]"
            .Cells.Locked = False
            .Cells.FormulaHidden = False
            .Range("X:AD").Locked = True
            .Range("X:AD").FormulaHidden = True
            .Protect "[COLOR=red]123[/COLOR]"
        End With
    Next sayfa
End Sub

.

 

[quesh]

Ömer Bey, ellerinize sağlık.
emsal olabilecek bir çalışma.

Teşekkür ederim

 

[quesh]

Ömer bey bir sorum daha olacak ;
çalışma kitabındaki 2 adet sayfayı gizlemek istiyorum alttaki sayfalar sekmesinden. bu mümkün müdür.? gizlemek istediğim sayfaların adları ; "ilk" ve " son"

teşekkür ederim

 

[Ömer]

Bu şekilde deneyiniz..

Sub SayfaGize()
    For Each sayfa In ActiveWorkbook.Worksheets
        With sayfa
            If .Name = "ilk" Or .Name = "son" Then
                .Visible = False
            End If
        End With
    Next sayfa
End Sub

.

 

[quesh]

peki bu sayfaları tekrar görüntületmek istersem izlemem gereken yol ne olacaktır?

teşekkürler

Bu şekilde deneyiniz..

Sub SayfaGize()
    For Each sayfa In ActiveWorkbook.Worksheets
        With sayfa
            If .Name = "ilk" Or .Name = "son" Then
                .Visible = False
            End If
        End With
    Next sayfa
End Sub

.

 

[Ömer]

.Visible = False

False yazan bölüme True yazınız..

.

 

[quesh]

Teşekkür ederim Ömer Bey, aynısını yaptım ben de.