sayfa koruma ve kaldırma

[muhsar]

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]

Merhaba,
İlk sayfada bütün sayfaların adlarını A1 den başlayarak sıralarsınız. Sonrası için

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]

Merhaba,
İlk sayfada bütün sayfaların adlarını A1 den başlayarak sıralarsınız. Sonrası için

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]

Alternatif;
Tüm sayfaları korumak için;

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;

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]

Alternatif;
Tüm sayfaları korumak için;

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;

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]

Rica ederim arkadaşım, uzman işi değil ama iş görür.
İyi çalışmalar

 

[seckinb]

Alternatif;
Tüm sayfaları korumak için;

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;

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??

 

[Korhan Ayhan]

Evet..

 

[musa yüksel]

Alternatif;
Tüm sayfaları korumak için;

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;

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 kodu yazdığımda 400 hatası veriyor neden olabilir

 

[Orion1]

bu kodu yazdığımda 400 hatası veriyor neden olabilir

Sayfa şifreniz "1" değildir.

 

[Orion1]

bu kodu yazdığımda 400 hatası veriyor neden olabilir

Sayfa şifreniz "1" değildir.