sadece bu çalışma sayfasına uygula

[Sezar]

Sub MenuPasif()
CommandBars(1).Controls(1).Enabled = False 'Dosya menüsü pasif
CommandBars(1).Controls(6).Enabled = False 'Araçlar menüsü pasif
Sub MenuAktif()
CommandBars(1).Controls(1).Enabled = True 'Dosya menüsü aktif
CommandBars(1).Controls(2).Enabled = True 'Araçlar menüsü aktif
sevgili arkadaşlar yukardaki makroyu bir programda kullanıyorum sorunum bu program Bütün excel sayfalarını etkilemesi yeni excel sayfası açınca menüler pasif konumda açılıyor her seferinde programı açıp menü aktif ve run komutu vermek zorunda kalıyorum.sizden ricam bu programı bozmadan sadece programdaki excel sayfasında çalışsın diğerlerinde çalışmasın istiyorum.yardım ederseniz sevinirim (ofis 2003 kullanmaktayım)

 

[Korhan Ayhan]

Merhaba,

Çalışmanızın ThisWorkbook bölümüne aşağıdaki kodu uygulayın.

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    CommandBars(1).Controls(1).Enabled = True 'Dosya menüsü aktif
    CommandBars(1).Controls(2).Enabled = True 'Araçlar menüsü aktif
End Sub
 
Private Sub Workbook_Deactivate()
    CommandBars(1).Controls(1).Enabled = True 'Dosya menüsü aktif
    CommandBars(1).Controls(2).Enabled = True 'Araçlar menüsü aktif
End Sub

 

[Sezar]

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
CommandBars(1).Controls(1).Enabled = True 'Dosya menüsü aktif
CommandBars(1).Controls(2).Enabled = True 'Araçlar menüsü aktif
End Sub

Private Sub Workbook_Deactivate()
CommandBars(1).Controls(1).Enabled = True 'Dosya menüsü aktif
CommandBars(1).Controls(2).Enabled = True 'Araçlar menüsü aktif
End Sub
Arkadaşım çok teşekkür ederim ama malesef bu general code sayfasındaki kodların ThisWorkbook sayfasına aktardım ama programda sorun veriyor.sanırım ben beceremedim excele çok yabancıyım

Sub MenuPasif()
CommandBars(1).Controls(1).Enabled = False 'Dosya menüsü pasif
CommandBars(1).Controls(2).Enabled = False 'Düzen menüsü pasif
CommandBars(1).Controls(3).Enabled = False 'Görünüm menüsü pasif
CommandBars(1).Controls(4).Enabled = False 'Ekle menüsü pasif
CommandBars(1).Controls(5).Enabled = False 'Biçim menüsü pasif
CommandBars(1).Controls(6).Enabled = False 'Araçlar menüsü pasif
CommandBars(1).Controls(7).Enabled = False 'Veri menüsü pasif
CommandBars(1).Controls(9).Enabled = False 'Pencere menüsü pasif
CommandBars(1).Controls(10).Enabled = False 'Yardım menüsü pasif
End Sub

Sub MenuAktif()
CommandBars(1).Controls(1).Enabled = True 'Dosya menüsü aktif
CommandBars(1).Controls(2).Enabled = True 'Düzen menüsü aktif
CommandBars(1).Controls(3).Enabled = True 'Görünüm menüsü aktif
CommandBars(1).Controls(4).Enabled = True 'Ekle menüsü aktif
CommandBars(1).Controls(5).Enabled = True 'Biçim menüsü aktif
CommandBars(1).Controls(6).Enabled = True 'Araçlar menüsü aktif
CommandBars(1).Controls(7).Enabled = True 'Veri menüsü aktif
CommandBars(1).Controls(9).Enabled = True 'Pencere menüsü aktif
CommandBars(1).Controls(10).Enabled = True 'Yardım menüsü aktif
End Sub

Sub SuruklemeyiEngelle()
Application.CellDragAndDrop = False
End Sub
Sub sürüklemeyiaktifyap()
Application.CellDragAndDrop = True
End Sub
ve bunlardan başka diğer komutlarda var hepsini kopyalamadım.bu general code sayfasından diğer Thisworkbook sayfasına aktardım programı açıp kapatırken error 91 sorun uyarısı alıyorum

 

[Korhan Ayhan]

Merhaba,

Dosyanızı eklerseniz deneme şansımız olabilir.