Netten dosya indirdim excelim gitti

[yener11]

Merhaba

İnternetten bir excel dosyası indirdim daha sonrasında excelde üstte yer alan araçlar seçenekler gibi alan gitti ve şu an açtığım bütün excellerde mouse sağ klik yaptığımda hiçbişey olmuyor yardımcı olun lütfen...

ekte bir örnek excel gönderiyorum.

 

[S.Yiğit]

Merhaba,

Bizde normal açılıyor yolladığınız dosya.. Ctrl + F1 yapın bakalım düzelecek mi?

 

[yener11]

dediğinizi yaptım düzelmedi.netten indirdiğim dosyayı ekliyorum.yanlız düzeltmeye çalışırken ekli dosyadaki makroların tamamını sildim acaba makrolardanmı kaynaklanıyor diye ama düzelmedi ekli dosyası indirdikten sonra bu sıkıntıyı yaşamaya başladım.

 

[Bogachank]

dediğinizi yaptım düzelmedi.netten indirdiğim dosyayı ekliyorum.yanlız düzeltmeye çalışırken ekli dosyadaki makroların tamamını sildim acaba makrolardanmı kaynaklanıyor diye ama düzelmedi ekli dosyası indirdikten sonra bu sıkıntıyı yaşamaya başladım.

Merhaba,

dosyanın orjinalini eklermisin(makrolar silinmemiş halini)

Birde ofice 2003 kullanıyorsun sanırım, görev çubuğunu hide etmiş olabilirmisin?

 

[yener11]

evet 2003 kullanıyorum görev çubuğunu hide etmişsem nasıl düzeltebilirim

Makrolar silinmemiş haldeki excelide ekte gönderiyorum.

 

[Merhum İdris SERDAR]

.

Ekteki dosyayı açın. Düzelecek.

.

 

[yener11]

teşekkür ederim sorunum çözüldü ama bu problemi neden yaşadım onu merak ediyorum..bu netten indirdiğim dosyadan dolayımı?

 

[Merhum İdris SERDAR]

teşekkür ederim sorunum çözüldü ama bu problemi neden yaşadım onu merak ediyorum..bu netten indirdiğim dosyadan dolayımı?

.

İndiriğiniz dosyadan kaynaklanmış olabilir.

Bazı makrolar dosya açılırken menüleri gizleyen kodlar taşıyabilir. Ancak dosya çıkışında menüleri eski haline getiren bir makronun da eklenmesi gerekir.

.

 

[yener11]

Çok teşekkür ederim emeğine sağlık Allah Razı Olsun...

 

[Bogachank]

.

İndiriğiniz dosyadan kaynaklanmış olabilir.

Bazı makrolar dosya açılırken menüleri gizleyen kodlar taşıyabilir. Ancak dosya çıkışında menüleri eski haline getiren bir makronun da eklenmesi gerekir.

.

Sevgili Yener,

aynen yurttas üstadın dediği gibi olmuş, makrolu halini o yüzden istemiştim bende. sorununun kaynağı olan kodları aşağıda renkli olarak gösterdim. Ayrıca hide özelliğini kapatarak ta dosyanı yolluyorum, sanırsam senin daha işine yarıyacak.sorununun çözülmesine sevindim. Üstadımızın ellerine, aklına sağlık.

iyi akşamlar.

Sub verigir()
'
' verigir Makro
' Makro casper tarafından 04.03.2011 tarihinde kaydedildi.
'

'
    Sheets("VERİ").Select
End Sub
Sub menkulveri()
'
' menkulveri Makro
' Makro casper tarafından 04.03.2011 tarihinde kaydedildi.
'

'
    Sheets("GMENKUL").Select
End Sub
Sub beyanon()
'
' beyanon Makro
' Makro casper tarafından 04.03.2011 tarihinde kaydedildi.
'

'
    Sheets("ON").Select
    ActiveWindow.SmallScroll Down:=-72
End Sub
Sub ÖNCEKİ_SAYFA()
If ActiveSheet.Index = 1 Then
Sheets(Sheets.Count).Select
Else
ActiveSheet.Previous.Select
End If
End Sub

Sub SONRAKİ_SAYFA()
If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Select
Else
ActiveSheet.Next.Select
End If
End Sub
Sub BEYANARKA()
'
' BEYANARKA Makro
' Makro casper tarafından 04.03.2011 tarihinde kaydedildi.
'

'
    Sheets("ARKA").Select
    ActiveWindow.SmallScroll Down:=-18
End Sub
Sub onyaz()
'
' onyaz Makro
' Makro casper tarafından 04.03.2011 tarihinde kaydedildi.
'

'
End Sub
Sub onnyaz()
'
' onnyaz Makro
' Makro casper tarafından 04.03.2011 tarihinde kaydedildi.
'

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
Sub ONYAZDIRR()
Sheets("ON").PrintOut
End Sub
Sub ARKAYAZDIRR()
Sheets("ARKA").PrintOut
End Sub

Sub Auto_Open()
   With Application
.ScreenUpdating = False
.[COLOR=Red]CommandBars("toolbar list").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Cell").Enabled = False[/COLOR]
.DisplayFormulaBar = True
.DisplayStatusBar = True
.DisplayFullScreen = [COLOR=Red]True[/COLOR]
End With
[COLOR=Red]With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False[/COLOR]
.WindowState = xlMaximized
End With
End Sub