Sayfa Koruma

[mcetinkaya65]

Aşağıdaki makro ile sayfa değişikliğinde sayfayı koruyor. Sağ tık Taşı kopyala ile çoğalttığımızda sayfa koruması için makroda ne gibi bir değişiklip yapmalıyız?..
Saygılarımla

Private Sub Worksheet_Deactivate()
    Sheets("ERKEK").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:="123"
    End Sub

 

[Muzaffer Ali]

Merhaba.

Sayfa ismi kullanmamanız yeterli.

Private Sub Worksheet_Deactivate()
    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:="123"
End Sub

 

[mars2]

İyi Geceler;

Bu konuya bağlı olarak hücre dolu olması halinde sayfanın değil hücrenin korunması hakkında yardımcı olabilirdeniz sevinirim.

 

[mcetinkaya65]

Allah razı olsun.