Sayfaya sayfa koruma aç/kapat

[yyhy]

Macro çalıştığında Ara sayfasının sayfa korumasını kaldırsın daha sonra ise sayfa korumasını tekrar korumaya alsın, xxxxxxx işaretli olan yere macro ne yazabiliriz?

 

[metin_0606]

Sayfa Korumasını Kaldır
Sheets("Ara").Unprotect Password:="5090"
Sayfayı Koru
Sheets("Ara").protect Password:="5090"

 

[metin_0606]

Macro çalıştığında Ara sayfasının sayfa korumasını kaldırsın daha sonra ise sayfa korumasını tekrar korumaya alsın, xxxxxxx işaretli olan yere macro ne yazabiliriz?

5090 yazan yere kendi parolanızı yazın

Sub AramaVeriTemizle()

    Sheets("Ara").Unprotect Password:="5090"

    Range("B6:F6").Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.ClearContents

    ActiveWindow.SmallScroll Down:=-66

    Range("F4").Select

Sheets("Ara").protect Password:="5090"

  

End Sub

 

[yyhy]

Teşekkürler ihtiyaca cevap verdi emeğinize sağlık,

 

[metin_0606]

İyi çalışmalar