Sayfa koruma

[mamita]

Merhaba,

Excel kitabındaki farklı sayfalar için oluşturduğum userformlar var Talebim makro çalıştırdıktan sonra bu sayfaların korumaya alınarak sayfa düzeninde herhangi bir bozulma olmaması Konuyla ilgili yardımcı olabilirseniz sevinirim

Bu arada userformlarda çok buton ve prosedür olduğu için webde araştırdığım kodlar işe yaramadı

 

[Cengiz Demir]

Koru makrosu tüm sayfaları tam korumaya alır.
korumaac makrosu tümünün korumasını kaldırır.
Korumaya almadan önce; formlarınızda veri girişi yapılacak hücrelerin kilidini kaldırmanız gerekir.

Sub koru()
   
    For x = 1 To Application.Sheets.Count
   
        Sheets(x).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

    Next x

End Sub

Sub korumaac()
   
    For x = 1 To Application.Sheets.Count
           Sheets(x).Unprotect
    Next x

End Sub

 

[mamita]

Cengiz Bey, ilginiz için teşekkür ederim Userformda textbox ve oluşturduğum butonların arka planında hücrelerle oynadığım çok alan var Bu yüzden makro çalıştıktan sonra tüm sayfaları kısacası excel kitabını korumaya alan bir kod mevcut mudur

 

[Cengiz Demir]

Pardon koru makrosu yanlış olmuş. Aşağıdaki makro kitapta kaç sayfa varsa tam koruma yapar.
Korumalar açılmadan hiç bir şekilde sayfaya müdahale ettirmez. Böyle bir şey mi istiyorsunuz. Yoksa farklı bir şey mi ?
Başka bir şey istiyorsanız, tam olarak anlayamadım ne istediğinizi.

Sub koru()
   
    For x = 1 To Application.Sheets.Count
   
        Sheets(x).Protect  DrawingObjects:=True, Contents:=True, Scenarios:=True

    Next x

End Sub