• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

userform açılırken sayfayı koru sekmesi açılmıyor

Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Merhaba Arkadaşlar ,
Ekteki dosyamda userformu kapat ınca"sayfayı koru" sekmesi kilitleniyor. (ActiveSheet.protect "excel")
Ancak userformu geri isteyince "sayfa yı koru" sekmesi nin kilidi açılmıyor (ActiveSheet.Unprotect "excel") neden acaba
 

Ekli dosyalar

  • hb.xlsm
    hb.xlsm
    18.1 KB · Görüntüleme: 5
Son düzenleme:
Bu şekilde revize yapın.
Kod:
Private Sub UserForm_Initialize()
ActiveSheet.Unprotect
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveSheet.Protect
End Sub
 
Seyit bey ben anlatamadım galiba butona tıklayın ca userform geliyor ya , o anda "sayfa korumasını kaldır " yazıyor hala excelde.
Öysa "userform initialize olayına yazdığım ,ActiveSheet.Unprotect" kodu sayesinde "Sayfayı koru" yazması gerekli değilmiydi
 
Birde Arkadaşlar, metin yazıplerinden çok yazımdan okunan yazılar "gönderilecek zamanlarımı bitiren ben yeniden yeniden düzeltmek yapmak zorunda kalmakumum."
Arkadaş lar yazdığım metin sürekli değişiyor ne yapmalıyım
 
Benim anladığım, kodla olduğu zaman bu pencere çıkmaz.
228055
 
Seyit bey ben metin yazmakta zorluk çekiyorum benim yazım yazılar ile ilgili olarak gidiyor olarak lütfen.
 
arkadaşlar benim bu formda yazıp size aktarmaya çalıştığım metin ler de sürekli değişiklik oluyor ve ben sürekli yeniden düzeltmeye çalışıyorum bu sorundan nasıl kurtulabilirim
 
Seyit bey f8 ile userforma girince
Private Sub UserForm_Initialize()
ActiveSheet.Unprotect "excel"
End Sub
kodu çalışıyor ve sayfayı koru şekline geliyor . Yani kod f8 ile takip edince çalışıyor ama butonla userformu çağırınca çalışmıyor . Anlam veremiyorum
 
İlgili kodları bu olaya atayıp deneyin.
Kod:
Private Sub UserForm_Activate()

End Sub
Yada : Kodları UserFormu açan butona atayıp deneyin.
 
Private Sub UserForm_Activate() olayına
ActiveSheet.Unprotect "q"
kodu yazınca
run-time error '1004' :
değiştirmeye çalıştığınız hücre ya da grafik korumalı ....hata uyarısı çıkıyor
 
Önce manuel olarak korumalı sayfanızı açın, ondan sonra kodlu deneyiniz.
 
Geri
Üst