Korumalı sayfalarda makro kullanımı

[kamilsrky]

Selam arkadaşlar.Ben birbirine bağlı yani formüllerle bağlı birkaç sayfalık bir çalışma yaptım.Bu çalışma içinde makrolar var yalnız bu sayfaların çok kullanıcılı olduğu için sayfa koruma ile korunması gerekiyor.Ama böyle oluncada makrolar çalışmıyor hata veriyor.Korumalı sayfaya erişemiyor diye anladığım kadarı ile ama korumayı kaldırınca çalışıyor.Bu konuda yardımlarınızı bekliyorum.Ne yapmam lazım.Teşekkürler :hey:

 

[xxrt]

Bu size fikir verebilir..
Amaç Kodlarınız çalışmadan Makro Sayfa Korumanızı açacak,işi bittiğinde tekrar korumaya alacak.
[vb:1:ac5790c48a]Sub tt()
Sheets("Sayfa1").Unprotect Password:="12345" 'şifreyi çözüyor.
'kodlarınız....
'...
'.
Sheets("Sayfa1").Protect Password:="12345" 'şifreniz 12345 olarak yazıyor.
End Sub
Sub Autpen()
Sheets("Sayfa1").Protect Password:="12345" 'şifreniz 12345 olarak yazıyor.
End Sub[/vb:1:ac5790c48a]

Kodlarınızı görmedim ama Hangi hücrelerde işlem yapıyorsa o Hücrelerin Kilitlerini çözüp bu işi yapabilirrsiniz.

 

[birol_mumcu]

merhaba; :hey:
koruma için şöyle bir yol deneyin; tüm hücreleri seçili hale getirin,sağ tıklayıp hücreleri biçimlendir\ kilitli hala getirin, sonra değerini elle girdiğiniz hücreleri seçerek kilitleirni acın. sonra araçlar\ koruma\sayfayı koru dan parola koyarak sayfalarınızı koruyun (burda kilidi açılmış hücreleri seç kalsın), yine aynı yerden kullanıcıların aralıkları düzenlemesine izin verden "yeni" başlık ekleyerek kullanıcılara gerekli izinleri ver(mey)in
kolay gelsin

 

[danersin]

İki yolda yazılmış bende tercih etmesi için yorum yazayım o zaman..

Eğer çalışan makrolarınız sayfada satır sil, ekle vb işlemler yapıyorsa sn.xxrt'nin yöntemi daha kullanışlı olur.
Yok sadece kodlar ile bir/birkaç hücreye değer yazıp okutacaksanız sn birolmumcu'nun yöntemi daha pratik olabilir sizin için.

 

[kamilsrky]

Yardımlarınız için teşekkürler xxrt sizin değiniz gibi yaparak çözmeye çalışacağım.Ancak p.tesi sonuç hakkında bilgi verebilirim.Teşekkürler

 

[INSMUH]

Bu size fikir verebilir..
Amaç Kodlarınız çalışmadan Makro Sayfa Korumanızı açacak,işi bittiğinde tekrar korumaya alacak.
[vb:1:6ddf5a587e]Sub tt()
Sheets("Sayfa1").Unprotect Password:="12345" 'şifreyi çözüyor.
'kodlarınız....
'...
'.
Sheets("Sayfa1").Protect Password:="12345" 'şifreniz 12345 olarak yazıyor.
End Sub
Sub Autpen()
Sheets("Sayfa1").Protect Password:="12345" 'şifreniz 12345 olarak yazıyor.
End Sub[/vb:1:6ddf5a587e]

Kodlarınızı görmedim ama Hangi hücrelerde işlem yapıyorsa o Hücrelerin Kilitlerini çözüp bu işi yapabilirrsiniz.

Vermiş olduğunuz kodları nereye yazmalıyız? Koruması olan sayfanın kod bölümüne mi? Yoksa o sayfaya giriş yapan userformun kod bölümüne mi? Eğer userformun kod bölümüne ise userformda kayıt ve değiştir düğmelerim var onlara mı yazmalıyım?
Ne çok soru sordum di mi? :?

 

[Levent Menteşoğlu]

Userform kullanıyorsanız kaydeden command butona yazmalısınız. Kodun prensibi şöyledir. Ã?nce sayfa korumasını kaldırır, sonra arada sizin kodlarınızdaki işlemleri yapar ve sayfa korumasını tekrar koyar.

[vb:1:9bad6a4d15]Private Sub CommandButton1_Click()
Sheets("Sayfa1").Unprotect Password:="12345" 'şifreyi çözer
.
. kendi kodlarınız....
.
.
Sheets("Sayfa1").Protect Password:="12345" 'şifreyi tekrar koyar
End Sub
[/vb:1:9bad6a4d15]

 

[INSMUH]

Sn:leventm, :mutlu:
Başka söze gerek var mı?

 

[osan003]

Sayın Leventm, onlarca sayfamızvar,sayfa koruma şifreleri aynı,yazacağımız bir kodla bütün sayfaların korumalarını kaldırıp tekrar şifreleyebilirmiyiz.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde yapabilirsiniz.

[vb:1:124791f16f]Sub sifreac()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
Sheets(a).Unprotect Password:="1"
Next
End Sub
Sub sifrekapa()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
Sheets(a).Protect Password:="1"
Next
End Sub
[/vb:1:124791f16f]

 

[mustafa golek]

korumalı sayfada şifre aç / kapa

yazdığınız kodu sayfanın çeşitli yerlerinde denedim ancak soeun çözmede ki beceriksizliğim yüzünden sanırım kodu çalıştıramadım sizden istirhamım gönderdiğim sayfaya kod uygulamısı yaparmısınız...

bu kod benim çok işime yarayacak bir kod/ işlem yardımlarınızı bekliyorum ilginize şimdiden teşekkür ederim .

saygılar
mustafa gölek
mustafagolek@hotmail.com

Aşağıdaki şekilde yapabilirsiniz.

[vb:1:4b7adcb743]Sub sifreac()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
Sheets(a).Unprotect Password:="1"
Next
End Sub
Sub sifrekapa()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
Sheets(a).Protect Password:="1"
Next
End Sub
[/vb:1:4b7adcb743]

 

[Levent Menteşoğlu]

Yazdığınız kodlara gerek yok sizde sadece tek sayfa mevcut. Eki inceleyin.

 

[mustafa golek]

sn leventm user form kullanmayı bilmiyorum öğrenmeye çalışıyorum ama yeterli dökümanım yok yine zizin değerli yarmınıza başvuracağım plaka ve tarih sütüunlarında gönderdiğim form üzerinde tarih aralığında ve plakaya endeksli arama(süzme yapmak istiyorum bunu nasıl yapabilirim bu konuda yardımlarınızı bekliyorum ; user form ile ilgli kaynak belirtirseniz bizi ihya etmiş olursunuz...

teşekkürler ..

 

[mustafa golek]

sn keventm sizden yardım etmenizi istediğim formla ilgli olarak şifreyi göndermediğim içim cevap verememiş olma ihtimaline karşı şifreyi gönderiyorum 18102002 ....

pazartesi bu formu faaliyete geçirmem gerekiyor araştırmalarım devam ediyor ancak müspet bir sonuç elde edmedim .

saygılar ..)))

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[mustafa golek]

makro ile süzme işlemi

sn leventm yardımlarınız için çok teşekkür ederim formu kullanıyorum...ellerinize sağlık ....

yanlız küçük bir şey söylemek istiyorum formda bulma işlemini yaparken aynı for üzerinde bul hansine yazdığım plaka veya tarihi farklı bir for değilde aynı for üzerinde bulsun örenek bir form var elimde ancak çok karmaşık çözemedim ..incelerseniz sevinirim .

yardımlarınızdan ötürü tekrar tekrar teşekkür ederim ....

 

[a_self_lion]

Burda bir soru da ben sormak istiyorum
Sayın leventim

visual basic kodu:

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Unprotect Password:="12345" 'şifreyi çözer
.
. kendi kodlarınız....
.
.
Sheets("Sayfa1").Protect Password:="12345" 'şifreyi tekrar koyar
End Sub

aynen dedğiniz gibi yaptım sorunum çözüldü
ama ben otomatik filtre uygulatmak istedim ama tekrar data sayfam korumalı olduğu için malesef otomatik filtreyi uygulayamiyorum

acaba otomatik filtre uygulamayı nasıl çözebiliriz

 

[Halit TÜRK]

Değerli arkadaşlar...

Sayfa koruması olduğu zaman yazdır vb. makrolar çalışıyor fakat, değer değiştir butonu korumada hala... Nasıl çözülecek acaba...Yardımcı olurmusunuz, teşekkürler...

htrk

 

[serhan]

Burda bir soru da ben sormak istiyorum
Sayın leventim

visual basic kodu:

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Unprotect Password:="12345" 'şifreyi çözer
.
. kendi kodlarınız....
.
.
Sheets("Sayfa1").Protect Password:="12345" 'şifreyi tekrar koyar
End Sub

aynen dedğiniz gibi yaptım sorunum çözüldü
ama ben otomatik filtre uygulatmak istedim ama tekrar data sayfam korumalı olduğu için malesef otomatik filtreyi uygulayamiyorum

acaba otomatik filtre uygulamayı nasıl çözebiliriz

Sayın a_self_lion;

Benzer sorun bende de vardı. Ve problemi Yeni Makro kayıt ederek şifresiz bir koruma elde ettim. Ve VBA kodlarına ulaştım ve kendim için özelleştirdim.

Private Sub TextBox1_Change()
   ActiveSheet.Unprotect
On Error Resume Next
Sayi = TextBox1.Value
Set FC2 = Range("L5:L65536").Find(What:=Sayi)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=12, Criteria1:="*" & TextBox1.Value & "*"
If Sayi = "" Then
Selection.AutoFilter Field:=12
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

End If
End Sub

Kolay gelsin...