Userform Ile Sayfa Korumal Sayfalara Kayıt

  • Konuyu başlatan Konuyu başlatan Akif59
  • Başlangıç tarihi Başlangıç tarihi

Akif59

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
450
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Kaydet için en başta UnProtect yapmışsınız, işlem bitince de Protect.
Böyle de olması gerek..
Sayfanın korumasını kaldırıp, verileri yazdır, sonra tekrar koru.

Tek dikkat etmeniz gereken husus, Exit Sub, Exit For, Exit Do tarzı işlemler ile sonlandırma yapıyorsanız, ilk satıra yazdığınız korumayı kaldırma kodu çalışacağı için en sonraki koruma ekleme çalışmayacaktır.

Bu hususu gözönünde bulundurarak kodlarınızı en iyi siz bildiğiniz için, uygun yeri de siz seçeceksiniz.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)
Örneğin Kaydet butonundaki kodların üstteki olanlarından bir tanesi Exit Sub ile prosedürü tamamlamadan sonlandırırsa, sayfanız korumasız kalır.
Bunun için ayrı bir modüle Sayfa_Koru, Sayfa_Kaldir gibi iki tane yeni prosedür ekleyin ve unprotect ve protect kodlarını yazın.
Sonra Exit Sub önüne Call komutu ile Sayfayi_Koru koymanız yeterli olur.
Ya da goto Git deyip, en son kod satırına gidebilirsiniz.

Tek tek kodlara bu eklemeleri yapmak için vaktim olmadığı için ancak bu kadar dönüş yapabiliyorum.

Umarım yol gösterici olmuştur.
 
Oyla 0 Olumsuz oyla
Admin' Alıntı:
Kaydet için en başta UnProtect yapmışsınız, işlem bitince de Protect.
Böyle de olması gerek..
Sayfanın korumasını kaldırıp, verileri yazdır, sonra tekrar koru.

Tek dikkat etmeniz gereken husus, Exit Sub, Exit For, Exit Do tarzı işlemler ile sonlandırma yapıyorsanız, ilk satıra yazdığınız korumayı kaldırma kodu çalışacağı için en sonraki koruma ekleme çalışmayacaktır.

Bu hususu gözönünde bulundurarak kodlarınızı en iyi siz bildiğiniz için, uygun yeri de siz seçeceksiniz.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)
Örneğin Kaydet butonundaki kodların üstteki olanlarından bir tanesi Exit Sub ile prosedürü tamamlamadan sonlandırırsa, sayfanız korumasız kalır.
Bunun için ayrı bir modüle Sayfa_Koru, Sayfa_Kaldir gibi iki tane yeni prosedür ekleyin ve unprotect ve protect kodlarını yazın.
Sonra Exit Sub önüne Call komutu ile Sayfayi_Koru koymanız yeterli olur.
Ya da goto Git deyip, en son kod satırına gidebilirsiniz.

Tek tek kodlara bu eklemeleri yapmak için vaktim olmadığı için ancak bu kadar dönüş yapabiliyorum.

Umarım yol gösterici olmuştur.
Genişletmek için tıklayın ...
Merhaba SAYIN @Admin (Bahadır) bey
Muhtemelen Açıklamanız kod bilgisi olan birisi için çok açıklayıcıdır.
Ama kodlar ile ben bu sitede tanıştım açıklamanızı uygulayabilecek kapasitede değilim
müsait olduğunuzda uygulanmış halde destek olursanız çok memnun olurum.
saygılar sunuyorum
 
Oyla 0 Olumsuz oyla
Merhaba Akif bey,

Mesai saatlerim içinde iş hayatımın yoğunluğu ve mesai saatlerim sonrasında da ExcelDepo için harcadığım zaman nedeniyle, ne yazık ki tek tek sorulardaki kodlamalara zaman ayıramıyorum.
Elbet yardım etmek isterim ama bir beklenti oluşturmak içinde söz vermeyi doğru bulmuyorum.

Bilginize sunarım.
 
Oyla 0 Olumsuz oyla
@Akif59

Belgenizi ve belgede mevcut kodları incelemedim.
Mevcut kaydetme prosedürünün en sonuna End Sub satırının hemen üstüne
bitir: gibi bir satır ekleyin, protect işlemini yapan kod satırını bitir: ile End Sub arasına taşıyın,
son olarak da kodlar içerisinde mevcut Exit Sub kısımlarını GoTo bitir şeklinde değiştirin.

.
 
Oyla 0 Olumsuz oyla
Merhaba Sayın @okutkan
son eklediğiniz dosyada seçilen deparmanda seçilen gurubun son satırnına yeni boş tatır açamadığığı için bu hatayı veriyor.


Ekran görüntüsü 2022-02-11 220203.webp
 
Oyla 0 Olumsuz oyla
Evet user forla giriş temizleme güncelleme gibi işlemderde sifreleme öncesi hiç bir problem yok

Amacım Çok kullanıçılı bir dosya olacağı için departman saylarındaki user formala Müdale edilen sütunları korumak.
 
Oyla 0 Olumsuz oyla
Büyük ihtimalle, Aktif sayfa şifresini kaldırma işlemi yaptığı için hata alıyor.

Aktif sayfa şifresi kaldırma yerine sayfa ismi belirterek şifre kaldırma işlemi daha doğru olacak. Şifre çözenmeye yarayan, Activesheet.unprotect yazan satırları sf.unprotect olarak değiştirin. Tekrar şifreleme satırında da aynı şekilde değişiklik yapın.
Kısaca kod içerisindeki "Activesheet" yazan yerlere "sf" olarak değiştirin.
 
Oyla 0 Olumsuz oyla
Sayın @okutkan
KAYDET işlemi taman dediğiniz değişikliği yapınca düzeldi
BUL kısmınında ben halletim

GÜNCELLE ve TEMİZLE İşlemleide hala hatalıyorum bu iki işlem kodunda .unprotect ve protect işlem anını tuturamadım
 
Oyla 0 Olumsuz oyla
okutkan' Alıntı:
Temizle ve güncelle buton kodlarını burada paylaşın bi bakayım.
Genişletmek için tıklayın ...
Merhaba Sayın @okutkan dosyanın son halinide ekliyorum.hiç bir kod bloğuna müdahalede bulnunulmadı sade paraola satırları eklendi.
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(73 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt