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

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
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

  • 18.1 KB Görüntüleme: 5
Son düzenleme:

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
 

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
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
 

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
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
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Benim anladığım, kodla olduğu zaman bu pencere çıkmaz.
228055
 

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
Seyit bey ben metin yazmakta zorluk çekiyorum benim yazım yazılar ile ilgili olarak gidiyor olarak lütfen.
 

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
Ş arkadaşlar benim yazdığım yazılar değişiyor çare lütfen
 

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
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
 

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
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
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
İlgili kodları bu olaya atayıp deneyin.
Kod:
Private Sub UserForm_Activate()

End Sub
Yada : Kodları UserFormu açan butona atayıp deneyin.
 

şehiriçi

Altın Üye
Katılım
1 Ağustos 2013
Mesajlar
563
Excel Vers. ve Dili
Ofis 2016 TR 32 Bit
Altın Üyelik Bitiş Tarihi
12-03-2025
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
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Önce manuel olarak korumalı sayfanızı açın, ondan sonra kodlu deneyiniz.
 
Üst