Şerit Menüye Ekleme Yapma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
Kodlar açıldığı zaman menüye iki alan ekler, kapanırken de eklediği bu alanları siler.
Faydalanılması temennisiyle
[*]Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
Hazır Kod
VBA:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("XD Kolay Erişim").Delete
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars.Add(Name:="XD Kolay Erişim").Visible = True
Set myControl1 = Application.CommandBars("XD Kolay Erişim").Controls.Add(msoControlButton)
With myControl1
.FaceId = 71
.OnAction = "ED1"
.Caption = "ExcelDepo"
End With
Set myControl2 = Application.CommandBars("XD Kolay Erişim").Controls.Add(msoControlButton)
With myControl2
.FaceId = 72
.OnAction = "ED2"
.Caption = "ExcelDestek"
End With
End Sub
Sub ED1()
MsgBox "https://www.exceldepo.com"
End Sub
Sub ED2()
MsgBox "http://www.exceldestek.com"
End SubAçıklama
Eğer özel bir Excel dosyanız olsun, açtığınızda o dosyaya özel hususların Şerit Menü üzerinden işlem yapılmasını istiyorsanız, bu kodlar tam size göre olacaktır.Kodlar açıldığı zaman menüye iki alan ekler, kapanırken de eklediği bu alanları siler.
Faydalanılması temennisiyle
