Sayfaları korumaya yönelik koda parola koymak

[mustafa7691]

Sn dostlar şu ana kadar sizden defalarca yardım aldım hepinize teşekkürlerimi sunarım ve bir konuda daha mümkünse yardım istemekteyim.Aşağıdaki kodu sizlerden almıştım.sorunum ise bu koruma koduna parola yazılabilirmi.Yani parolalı bir korumayı sayfalara tek tek yazmadan yapabilirmiyiz.yardımcı olursanız minnettar kalırım Saygılarımla

 

[mustafa7691]

özürlerimle kullandığım kodu yazmayı unuttum saygılarımla


Sub Sayfaları_koru()
For x = 1 To Worksheets.Count
Sheets(x).Protect
Next
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyebilirsiniz.Parola 1234
Parola Koymak için

Sub Parolali_Sayfa_Koru()
Dim i As Integer
For i = 1 To Worksheets.Count
    If MsgBox("[ " & sheets(i).name & " ] " & "İsimli sayfayı korumak istiyormusunuz?" & vbLf _
    & "PAROLA : 1234", vbYesNo) = vbNo Then GoTo atla
    Sheets(i).Protect "1234"
atla:
Next
End Sub

Parolayı kaldırmak için.

Sub parola_Kaldır()
Dim i As Integer
For i = 1 To Worksheets.Count
    Sheets(i).Unprotect "1234"
Next
End Sub

 

[mustafa7691]

Sn Sezar kodlar işe yarıyor elinize sağlık ancak koruma kodu her sayfa için korumak isteyip istemediğimi soruyor.ben çok sayfalı excel dosyaları ile çalışıyorum.her sayfa için ayrı ayrı sormasın istiyorum çünki hepsini okeylemek zaman alıyor mümkünmü acaba teşekkürler saygılarımla

 

[mustafa7691]

Sn sezar tamamdır sayfa aç kodunuzu değpiştirerek hallettim elinize sağlık

 

[Orion1]

Merhaba.
Sorunu çözdüğünüze sevindim.
İyi çalışmalar.

 

[SEABERT74]

koruma makrosunu korumak ...

peki, tüm sayfaları açıldıgı anda koruma altına aldım.. şimdi benim dosyamı kullanan kişilerin, koruma şifresini görmelerini nasıl saglarım.. makroyu gizlemek mümkün müdür? teşekkürler

 

[dEdE]

peki, tüm sayfaları açıldıgı anda koruma altına aldım.. şimdi benim dosyamı kullanan kişilerin, koruma şifresini görmelerini nasıl saglarım.. makroyu gizlemek mümkün müdür? teşekkürler

Merhaba,
Forumumuza hoş geldiniz.
Herhalde görme(me)lerini demek istediniz.
Tools menüsünden VBAProject Properties... i seçip;Protection sekmesini aktive ediniz. Lock Project for viewing i onaylayıp alttaki kutucuklara aynı parolayı iki kez yazıp Tamam(ok) ile çıkınız.
Dikkat : Parolanızı unutursanız siz de koda ulaşamazsınız.

 

[SEABERT74]

halloldu ,
çok teşekkürler ))

 

[dEdE]

Rica ederim.
İyi çalışmalar.