Kaydet,Değiştir Sil İle İlgili(TAm Açıklanamadı)

Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
enteresan bir sorun dostlar onun için başlıkta tam açıklıyamadım.dosya büyük olduğu için gönderemiyorumda ama yinede yardım yada fikir istiyorum.bol sayfalı bir excel dosyam ve bu dosyada kaydet sil değiştir vb birçok düğme atanmış durumda bütün sayfalar korumalı ve bu işlem kodlarında koruma kaldır ve koruma aç kodları mevcut.(ActiveSheet.Unprotect Password:="0",ActiveSheet.Protect Password:="0")
buraya kadar normal.ben user formdan verilerimi kaydettiğim ve user formu kapattığımda manuel olarak korumayı kaldırdığımda excel görsel olarak hala komut sekmelerini kitli gibi gösteriyor sayfa korumasına giriyorum koruma açık ve buna bağlı olarak bazen sayfada manuel işlem yapmamı (silme veya yazı yazma vb)engelliyor günlerdir bununla uğraşıyorum ama çözemiyorum bu konuda bilgisi olan arkadaşlardan yardım taleb ediyorum saygılarımla
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
birazdaha açıklanabilirse sanırım olay sayfada user formun kullanılması(açıp kapanması ile ilgili )kitabı kapatıp açarsak ve hiç user formu açmazsak problem görünmüyor ama user form kullanılırsa sorun oluşuyor saygılarımla
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kod:
ActiveSheet.Unprotect Password:="0"
ActiveSheet.Protect Password:="0"
Yukarıdaki satırları aşağıdaki gibi değiştirin.

Kod:
[LEFT]ActiveSheet.Unprotect "0"
ActiveSheet.Protect "0"[/LEFT]
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Yukarıdaki komutları içeren kodlarınızı yazarmısınız.
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
sorun bu koddan kaynaklanıyor sayın Leventim bu kod user form açılışından sonra probleme neden oluyor bunu silince sorun düzeliyor ama efekt kalmıyor saygılarımla
Private Sub UserForm_Activate()


On Error Resume Next


For a = 0 To 575 Step 0.5
DoEvents
Me.Height = a
Next

Do
DÖNER.Label73 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop



End Sub
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Evet buradaki saat sorun oluşturacaktır. Muhtemelen Userform kapandığında saat çalışmaya devam ediyor. Bu sorunu gidermek için userform QueryClose olayına sadece End satırını ilk satır olarak ilave edin.
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
kasdettiğiniz bu ise

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub


bu formu açıp kapattığımda korumalı sayfanın kodunu tamamen kaldırıyor yada en güzeli ben o saati yokedeyim
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
teşekür ederi Sn Leventim saygı ve sevgiler
 
Üst