sayfa koruma ve kaldırma

muhsar

Altın Üye
Katılım
16 Mart 2019
Mesajlar
138
Excel Vers. ve Dili
2010 tütkçe
ActiveSheet.Unprotect "1"

ActiveSheet.protect "1"


günaydın;yıkarıdaki kodları çalışma kitabındaki tüm sayfaları koru veya korumayı kaldır şeklinde nasıl düzenleyebilirim.tüm sayfalardaki şifre aynı "1"
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
1,754
Excel Vers. ve Dili
2010 - Türkçe 64 Bit
Merhaba,
İlk sayfada bütün sayfaların adlarını A1 den başlayarak sıralarsınız. Sonrası için
Kod:
Private Sub CommandButton1_Click()
    Sheets([A2].Text).Activate
    ActiveSheet.Protect "1"
    Sheets("Sayfa1").Activate
   
    Sheets([A3].Text).Activate
    ActiveSheet.Protect "1"
    Sheets("Sayfa1").Activate

    Sheets([A4].Text).Activate
    ActiveSheet.Protect "1"
    Sheets("Sayfa1").Activate
End Sub
Benzer şekilde de korumayı kaldırabilirsiniz.
Başka makroları çalıştırırken önce korumayı kaldırın, görev yaptıktan sonra da geri koruyunuz
İyi çalışmalar
 

muhsar

Altın Üye
Katılım
16 Mart 2019
Mesajlar
138
Excel Vers. ve Dili
2010 tütkçe
Merhaba,
İlk sayfada bütün sayfaların adlarını A1 den başlayarak sıralarsınız. Sonrası için
Kod:
Private Sub CommandButton1_Click()
    Sheets([A2].Text).Activate
    ActiveSheet.Protect "1"
    Sheets("Sayfa1").Activate
  
    Sheets([A3].Text).Activate
    ActiveSheet.Protect "1"
    Sheets("Sayfa1").Activate

    Sheets([A4].Text).Activate
    ActiveSheet.Protect "1"
    Sheets("Sayfa1").Activate
End Sub
Benzer şekilde de korumayı kaldırabilirsiniz.
Başka makroları çalıştırırken önce korumayı kaldırın, görev yaptıktan sonra da geri koruyunuz
İyi çalışmalar
teşekkür ederim,elinize sağlık
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,863
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Alternatif;
Tüm sayfaları korumak için;
Kod:
Sub tumsayfalarikoru_59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "1"
Next
MsgBox "Tüm sayfalar korundu."
End Sub
Tüm sayfaların korumasını kaldırmak için;
Kod:
Sub tumsayfalarikorumakaldir_59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Unprotect "1"
Next
MsgBox "Tüm sayfaların koruması kaldırıldı."
End Sub
 

muhsar

Altın Üye
Katılım
16 Mart 2019
Mesajlar
138
Excel Vers. ve Dili
2010 tütkçe
Alternatif;
Tüm sayfaları korumak için;
Kod:
Sub tumsayfalarikoru_59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "1"
Next
MsgBox "Tüm sayfalar korundu."
End Sub
Tüm sayfaların korumasını kaldırmak için;
Kod:
Sub tumsayfalarikorumakaldir_59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Unprotect "1"
Next
MsgBox "Tüm sayfaların koruması kaldırıldı."
End Sub
Elinize sağlık teşekkür ederim
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
1,754
Excel Vers. ve Dili
2010 - Türkçe 64 Bit
Rica ederim arkadaşım, uzman işi değil ama iş görür.
İyi çalışmalar
 

seckinb

Altın Üye
Katılım
9 Aralık 2018
Mesajlar
121
Excel Vers. ve Dili
excel 2010 TR
Alternatif;
Tüm sayfaları korumak için;
Kod:
Sub tumsayfalarikoru_59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "1"
Next
MsgBox "Tüm sayfalar korundu."
End Sub
Tüm sayfaların korumasını kaldırmak için;
Kod:
Sub tumsayfalarikorumakaldir_59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Unprotect "1"
Next
MsgBox "Tüm sayfaların koruması kaldırıldı."
End Sub
bu kod ile şifre 1 mi oluyor??
 
Üst