ProgressBar kaydetme yardımı

[muratozmenler]

1) ThisWorkbook modulüne yerleştirilecek kodlar:


Kod:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
UserForm1.Label1.Caption = "Lütfen bekleyiniz....."
UserForm1.Show 0
CheckSave

End Sub

2) UserForm1 modulüne yerleştirilecek kodlar:


Kod:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub

3) Dosyada oluşturulacak yeni bir modül içine yerleştirilecek kodlar:


Kod:
Sub CheckSave()
DoEvents
UserForm1.Label1.Caption = "Dosya kaydedildi....."
Application.OnTime Now + TimeValue("00:00:03"), "RemForm"
End Sub
'
Sub RemForm()
Unload UserForm1
End Sub

kodları gerekli yerlere yazıyorum dosya açıkken çalışıyor problem yok
fakat ben excel açılışına user form oluşturdum oradan bazı bilgi girişleri yapıyorum ve verdiği hata
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
UserForm1.Label1.Caption = "Lütfen bekleyiniz....."
UserForm1.Show 0 --------- (burasını hata gösteriyor)
CheckSave

End Sub

nasıl düzeltebilirim...

 

[ozgretmen]

UserForm1.Show 0 daki 0 ı kaldır.Yine olmaz ise;
Dosyanı ekler misin ?

 

[muratozmenler]

hocam açılışta işlere tıklıyoruz oradaki commandbuttona tıkladığımda bu hatayı veriyor dosya içerisinde kayıt yapıyor

 

[ozgretmen]

Dosyaya bir bakar mısın ?

 

[muratozmenler]

sağolun hocam teşekkür ederim iyi çalışmalar dilerim birde hocam bunu çok geniş bir dosyaya eklesem kayıt etme zamanı kısalırmı hocam.....?