DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
teşekkür ederim,elinize sağlıkMerhaba,
İlk sayfada bütün sayfaların adlarını A1 den başlayarak sıralarsınız. Sonrası için
Benzer şekilde de korumayı kaldırabilirsiniz.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
Başka makroları çalıştırırken önce korumayı kaldırın, görev yaptıktan sonra da geri koruyunuz
İyi çalışmalar
Sub tumsayfalarikoru_59()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Protect "1"
Next
MsgBox "Tüm sayfalar korundu."
End Sub
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 ederimAlternatif;
Tüm sayfaları korumak için;
Tüm sayfaların korumasını kaldırmak 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
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??Alternatif;
Tüm sayfaları korumak için;
Tüm sayfaların korumasını kaldırmak 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
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
Alternatif;
Tüm sayfaları korumak için;
Tüm sayfaların korumasını kaldırmak 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
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
Sayfa şifreniz "1" değildir.bu kodu yazdığımda 400 hatası veriyor neden olabilir
Sayfa şifreniz "1" değildir.bu kodu yazdığımda 400 hatası veriyor neden olabilir