excel tasarım modu aktif etmek

[zeybek_efee]

merhaba,
excell tasarım modum pasif ve koyu renkte kullanamıyorum, nasıl aktif edebilirim. Seçeneklerden ekle çıkar vb. herşeyi yaptım ama olmadı, tablo yapmak için kullanacağım.

 

[BG]

Merhaba

Tasarım modundan kasettiğiniz şey, 2010 sürümündeki Geliştirici altında bulunan buton mu acaba ?

 

[zeybek_efee]

Evet o, tasarım modunu seçeneklerden ekledim ama sekmeye tıkladığımda vb. tasarımlar, tablolar koyu şekilde duruyor, aktif olmuyor :S

 

[zeybek_efee]

Yardım rica ediyorum.

 

[ÖmerBey]

Alt+F11 tuş kombinasyonona basıp Visual Basic açtığınızda aktif olması lazım. Sonra VB'yi kapatıp devam edebilirsiniz.

 

[zeybek_efee]

Denedim olmadı, hani tabloları oluşturduğumuz tasarım sekmesi, bende pasif

 

[ÖmerBey]

Tasarım modu ile tasarım sekmesi farklı...
Tablo eklemek için Ekle sekmesinden tablo seçeneğiyle tablo ekliyoruz. Daha sonra tablomuz üzerinde düzenleme yapacağımızda tablomuzu seçtiğimizde tasarım sekmesi aktif oluyor. Ancak sayfada sayfa koruması varsa tasarım sekmesi aktif olmaz. Sayfa korumasını kaldırmamız gerekir.
Başka da çözüm sunamayacağım maalesef.

 

[emograf]

Aynı konuda ben de muzdaribim.
Geliştirici sekmesi tasarım modunu makro ile aktif hale getirmek istiyorum. Aynı şekilde ayrı bir makroda pasif hale getirmek istiyorum. Nasıl yapabilirim yardımcı olur musunuz?

 

[PriveT]

Tasarım modunun hemen yanındaki özellikleri tıkladığınızda "Tasarım modu" aktif hale geliyor.

Düzeltme: 6-7 nolu mesajlara bakılırsa sanırım siz bunu istemiyorsunuz. @ÖmerBey zaten bunun çözümünü yazmış.

 

[emograf]

Evet ben makro içerisinde tasarım modu aktif hale gelsin istiyorum, daha sonra belli işlemler aktif makro ile yapıldıktan sonra tekrar aynı makro içinde tasarım modu pasif hale gelip makroyu sonlandırmak istiyorum.

elimdeki kodda "EnterInDesignMode" makrosunda ".Execute" satırından sonra makroyu sonlandırıyor.

Sub Kaydet()
'
' Kaydet Makro
'

'
    Sheets("Kayıt Sayfası").Select
    ActiveSheet.Unprotect
    Sheets("Kayıt Sayfası").Select
    'Run ("EnterInDesignMode")
    Run ("EnterInDesignMode")
    End Sub
Sub EnterInDesignMode()
    With Application.CommandBars.FindControl(ID:=1605)
.Execute
End With
    Run ("Kaydet1")
End Sub

    
Sub Kaydet1()
    Sheets("Kayıt Döngü").Visible = True
    Sheets("Kayıt Döngü").Select
    Range("A5:AQ5").Select
    Selection.Copy
    Sheets("Veri Tabanı").Select
    Application.Goto Reference:="R1048576C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.Goto Reference:="R1048576C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A745").Select
    Sheets("Kayıt Döngü").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Kayıt Sayfası").Select
    Application.CutCopyMode = False
    Run ("ExitInDesignMode")

End Sub

Sub ExitInDesignMode()
    Dim sTemp As String
    With Application.CommandBars("Exit Design Mode")
        sTemp = .Controls(1).Caption
        Run ("Kaydet2")
    End With
End Sub
    
Sub Kaydet2()
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
    Range("F13").Select
    MsgBox ("Kayıt Başarılı")
End Sub

 

[yerlikayakçı]

Geliştirici--> kod---> sekmesinden makro güvenliğine tıklayarak .vba nesne profilene güvene ve üs kısındaki tüm macroları etkinleştir. seçip tamama bastığımızda sorun çözülüyor