[Yardım]  Otomatik Koşullu Sayfa Koruması Kod Yardımı

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Otomatik Koşullu Sayfa Koruması Kod Yardımı

İleti#1)  OMERULLAH » 09 Haz 2018 15:08

Sayın Uzman arkadaşlar,

Ekteki çalışma kitabında günlük olarak gg.aa.yyyy formatında sayfa oluşturuluyor. Gün içerisinde farklı kişiler bu çalışma kitabına veriler işlemektedirler. Saat 00:00 olduğu zaman geçmiş tarihe ait sayfaların şifrelenerek koruma altına alınmasını sağlamak istiyorum. Yani bugünden küçük olan sayfalar korumaya alınacak, bugüne eşit ve büyük olanlar korumasız veri girilebilir olmalıdır. Amacım günü geçen sayfalara ait verilerin değiştirilmesini engellemektir.
Bu konuda uzman olan arkadaşların çok değerli yardımlarını rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

https://www.dosyaupload.com/5vtf
http://s7.dosya.tc/server7/u6jhky/OMERU ... t.rar.html
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 13:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 49
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Otomatik Koşullu Sayfa Koruması Kod Yardımı

İleti#2)  muhammedyuksel » 09 Haz 2018 16:44

Merhaba Ömer bey, çalışma kitabı açılışında, çalışma gününden önceki tarihlere ait sayfalar için otomatik olarak sayfa koruması gerçekleştiriliyor fakat sayfa isimleri ayın ilk 9 günü için 01, 02 ... şeklinde olması gerekiyor yoksa sorun oluyor.
Kod: Tümünü seç
Private Sub Workbook_Open()
For a = 3 To Sheets.Count
    If Sheets(a).Name < Format(Now, "dd.mm.yyyy") Then
    Sheets(a).Protect
    End If
Next
End Sub
Kullanıcı avatarı
muhammedyuksel
 
Kayıt: 04 Haz 2018 22:02
Meslek: Memur
Yaş: 25
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat

Cevap: Otomatik Koşullu Sayfa Koruması Kod Yardımı

İleti#3)  OMERULLAH » 10 Haz 2018 20:51

Sayın Muhammed YÜKSEL,

Öncelikle konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
Sayfa koruma şifresi koyarak, sadece şifreyi bilenlerin değişiklik yapmasını mevcut kod üzerinde nasıl değişiklik ile sağlarız.
KADİR Gecenizi kutlar, hayırlara vesile olmasını dilerim.

Saygılarımla,
Ömer Ali ÜZÜMCÜ
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 13:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 49
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT

Cevap: Cevap: Otomatik Koşullu Sayfa Koruması Kod Yardımı

İleti#4)  muhammedyuksel » 11 Haz 2018 00:05

OMERULLAH yazdı:Sayın Muhammed YÜKSEL,

Öncelikle konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
Sayfa koruma şifresi koyarak, sadece şifreyi bilenlerin değişiklik yapmasını mevcut kod üzerinde nasıl değişiklik ile sağlarız.
KADİR Gecenizi kutlar, hayırlara vesile olmasını dilerim.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

Merhaba Ömer bey,

Kadir geceniz hayırlı olsun inşallah. Mevcut kodu "Sheets(a).Protect 123" şeklinde düzenlerseniz açılışta şifreyi 123 olarak belirler fakat çıkmadan önce el ile sayfa koruması düzenlerseniz, koruma şifresi olsun veya olmasın o korumaya müdahele edemiyor, benim de çok fazla kod bilgim olmadığı için çözümünü bulamadım. Bu şekilde kullanırsanız VBA Proje şifresi belirleyip şifreyi koruyabilirsiniz. Kolay kolay kimse bulamaz şifreyi. Hayırlı akşamlar.
Kullanıcı avatarı
muhammedyuksel
 
Kayıt: 04 Haz 2018 22:02
Meslek: Memur
Yaş: 25
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yozgat

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Otomatik Koşullu Sayfa Koruması Kod Yardımı

İleti#5)  OMERULLAH » 11 Haz 2018 13:21

Sayın Muhammed YÜKSEL,

yardımınız için size çok teşekkür ederim. Konu amacına ulaşmıştır.

Saygılarımla,
Kullanıcı avatarı
OMERULLAH
Siteye Alışmış
 
Adı Soyadı:ÖMER ÜZÜMCÜ
Kayıt: 06 Oca 2010 13:37
Konum: ANTALYA
Meslek: TURİZMCİ
Yaş: 49
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA / MANAVGAT


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Google Adsense [Bot], Yandex[Bot], yaramazserkan ve 2 misafir

Bumerang - Yazarkafe