Soru (System Error &80004005 (-2147467250). Belirtilmemiş Hata )Bu hatanın sebebi ne olabilir ?

[MOZCELİK53]

Workbook açılışta bu hatayı veriyor kodlardamı sıkıntı var

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

Private Sub Workbook_Open()

Worksheets("ANA MENÜ").Activate
ActiveSheet.SetBackgroundPicture Filename:=""
ActiveSheet.SetBackgroundPicture Filename:=Environ("UserProfile") & "\Desktop\NEWSS\BACKROUND.png"
Worksheets("Sayfa2").Visible = xlSheetHidden
Worksheets("YERLEŞİM PLAN").Visible = xlSheetHidden
Worksheets("KATLAR LİST").Visible = xlSheetHidden
Worksheets("MAİL GÖNDER").Visible = xlSheetHidden
Worksheets("İMZA LİST").Visible = xlSheetHidden
Worksheets("RAPORLAR").Visible = xlSheetHidden
Worksheets("20-21-22 AYRILAN").Visible = xlSheetHidden
Worksheets("TAM LİSTE").Visible = xlSheetHidden
Worksheets("BİLGİ SORGULA").Visible = xlSheetHidden
Worksheets("TAHAKKUK LİST").Visible = xlSheetHidden
Worksheets("Pivot Tablo").Visible = xlSheetHidden
Worksheets("GELECEKLER").Visible = xlSheetHidden
Worksheets("YERLEŞİM ŞABLON").Visible = xlSheetHidden
Worksheets("MUTFAK MESAİ").Visible = xlSheetHidden
Worksheets("YAPILACAK LİSTE").Visible = xlSheetHidden
Worksheets("TEMİZLİK ÇİZELGE").Visible = xlSheetHidden

Range("F9").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
ActiveWindow.Zoom = 100

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Call NewTest
Call userformkapa

MsgBox "ERKEK ÖĞRENCİ YURDU PROGRAMINA HOŞGELDİNİZ", , "www.besiktas.bel.tr"

End Sub

Sub kapan_EXCEL()

Application.Quit
MsgBox "ÇIKIŞ PROTOKOLÜ BAŞLATILIYOR KEMERLERİ BAĞLAYIN", , "www.besiktas.bel.tr"



End Sub

Sub NewTest()
With New UserForm1
Set MoviePlayer = .WindowsMediaPlayer1


MoviePlayer.URL = Environ("UserProfile") & "\Desktop\NEWSS\intro1.mp4"

MoviePlayer.uiMode = "None"
MoviePlayer.stretchToFit = False
MoviePlayer.Top = .Top + 1
MoviePlayer.Left = .Left + 1
MoviePlayer.Height = .InsideHeight - 2
MoviePlayer.Width = .InsideWidth - 2
MoviePlayer.Controls.Play
.Show


End With
End Sub

Sub userformkapa()
UserForm1.Hide
End Sub

 

[ÖmerFaruk]

Kodlarınızı F8 ile adımlayarak hangi satırda hata verdiğini bulabilirsiniz.

 

[MOZCELİK53]

Kodlarınızı F8 ile adımlayarak hangi satırda hata verdiğini bulabilirsiniz.

İşlem yapmama fırsat vermeden sürekli bu hata çıkıyor. Görev yöneticisinden kapatabiliyorum sadece malesef :/

 

[ÖmerFaruk]

Kodları siz yazmadınız mı? Hiç mi yedeği yok?

 

[FERAZ]

Excel adını değiştirip açın ve makroları etkinleştir çıkmaı gerek.Ona tıklamadan açılış kodları iptal edebilirsiniz.

 

[MOZCELİK53]

Kodları siz yazmadınız mı? Hiç mi yedeği yok?
[/QUY

Yedeği var evet birebir aynı dosya şimdi fark ettim ofise gelince sorun yok dosya açılıyor evde bu hatayı veriyor. iki bilgisayarda ofis 2010

 

[Merhum İdris SERDAR]

.

Günaydın.

Sizin Excel'i hobi veya ne şekilde kullandığınızı kimse merak etmiyor. Bu nedenle, sorularınıza daha hızlı ve sorunuza cevap yazacak olanları zahmete sokmamak için profiliniz olan:

Excel Vers. ve Dili
excell hobi

durumunu uygun şekilde düzeltmeniz gerekir. Hatta birkaç versiyon kullanıyorsanız bunları da belirtmenizde yararvar.

İyi günler.

.

 

[Muzaffer Ali]

Merhaba.

Kodların en üst satırına Stop yazın, kaydedip kapatın.
Dosyayı açtığınızda Stop satırı sarı renk olacak ve kodların çalışması durdurulacaktır..
Şimdi kodlarınızı F8 tuşuna basarak ilerletin, hata veren satırı bulun.

Eğer dosyanızı eklerseniz daha hızlı çözüm bulunabilir.

 

[MOZCELİK53]

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Evde hazırladığım (32 bit ofis 2010 Windows 7) makro içeren excell dosyam iş yerindeki bilgisayarda 64 bit ofis 2010 Windows 10) sorunsuz kullanıyorum eve dönünce bozuluyor . Aynı bozuk dosya iş yerinde tekrar açınca sorunsuz çalışıyor. Oluşturduğum intro_form adında ki userformu silmeden hiçbirşekilde düzelmiyor. Userformu Export file yedekledim her seferinde silip eskisini yedek olan userformu import ediyorum düzgün çalışıyor. Umarım anlatabilmişimdir bu sefer sorunumu .

 

[FERAZ]

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

Merhaba.
mediaPlayerModul modül ve userMediaPlayer adında form ekledim açılışta birini aktif yaptım bir deneyiniz.

 

[MOZCELİK53]

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

Merhaba.
mediaPlayerModul modül ve userMediaPlayer adında form ekledim açılışta birini aktif yaptım bir deneyiniz.

Çok teşekkür ederim . Bugün deneme şansım işyerinde ve evde sorun çıkmadı çalıştı sorunsuz.

 

[FERAZ]

Rica ederim,kolay gelsin.