Belirli alana sayfa koruma

[mcetinkaya65]

Aşağıdki makro ile sayfaya koruma ekleyebiloruz.Sayfanın koruması açılsa gerekli işlemler yapıldıktan sonra sayfa değişikliğinde sayfaya koruma tekrar geliyor.Benim istediğim tabiki excel mantığına uyuyorsa AG ve AH stunları dışındaki stunlarda istenilenin yapılabilmesi Örnek:Boş olan satırların silinip yukarı kayması,
Saygılarımla..
Private Sub Worksheet_Deactivate()
Sheets("Data").Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True, Password:="1"
End Sub

 

[Korhan Ayhan]

Satır silme olayı kilitli alanlarıda etkileyecektir. Bu sebeple istediğiniz işlem yapılamaz.