sayfa koruma ve kaldırma

muhsar

Altın Üye
Katılım
16 Mart 2019
Mesajlar
57
Beğeniler
2
Excel Vers. ve Dili
2010 tütkçe
#1
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"
 
Katılım
30 Temmuz 2012
Mesajlar
1,684
Beğeniler
73
Excel Vers. ve Dili
2010 - Türkçe 64 Bit
#2
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
57
Beğeniler
2
Excel Vers. ve Dili
2010 tütkçe
#3
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,586
Beğeniler
394
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#4
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
57
Beğeniler
2
Excel Vers. ve Dili
2010 tütkçe
#5
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
 
Katılım
30 Temmuz 2012
Mesajlar
1,684
Beğeniler
73
Excel Vers. ve Dili
2010 - Türkçe 64 Bit
#6
Rica ederim arkadaşım, uzman işi değil ama iş görür.
İyi çalışmalar
 
Üst