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

[mustafa7691]

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

 

[mustafa7691]

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]

ActiveSheet.Unprotect Password:="0"
ActiveSheet.Protect Password:="0"

Yukarıdaki satırları aşağıdaki gibi değiştirin.

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

 

[mustafa7691]

Sn leventim yaptım ama çözülmedi teşekkürler

 

[Levent Menteşoğlu]

Yukarıdaki komutları içeren kodlarınızı yazarmısınız.

 

[mustafa7691]

mevcut kodları ekledi sn leventim teşekkürlerimle

 

[mustafa7691]

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]

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.

 

[mustafa7691]

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

 

[Levent Menteşoğlu]

.........yada en güzeli ben o saati yokedeyim

Bencede en güzeli bu, eğer saat istiyorsanız ve saniye önemli değilse statusbar kullanabilirsiniz.

 

[mustafa7691]

teşekür ederi Sn Leventim saygı ve sevgiler