Tạo nút mở và đóng VBA Editor trên bảng tính Excel

[Duong gia]

Có ai làm được nút mở và đóng VBA Editor trực tiếp trên bảng tính Excel không cho mình xin với. Thanks

 

[dat2007]

Bạn tạo 2 Button trên bảng tính rồi gán Macro với Code như sauDùng: Sendkey )
1. Mở VBE:

Sub Open_VBE()
  Application.SendKeys ("%tmv")
End Sub

2. Đóng VBE

Sub Close_VBA()
 Application.SendKeys ("%tmv")
 Application.SendKeys ("%fc")
End Sub

 

[Duong gia]

Cám ơn bác dat2007 nha, bác giỏi thật.
Cám ơn rất nhiều.

 

[digita]

Cách thứ 2 bạn có thể dùng bằng câu lệnh:

Application.VBE.MainWindow.Visible = True 'True = Mở & False = Đóng

Mến

 

[Duong gia]

Cám ơn bạn, bạn hay thật. Thanks you very much.

 

[Duong gia]

Cách thứ 2 bạn có thể dùng bằng câu lệnh: Mến

Digita ơi nó không chạy được trong office 2003. Bạn chỉnh lại giùm nha, Thank for your help.

 

[Duong gia]

Bạn tạo 2 Button trên bảng tính rồi gán Macro với Code như sauDùng: Sendkey )
1. Mở VBE:

Sub Open_VBE()
  Application.SendKeys ("%tmv")
End Sub

Với đoạn code trên, từ một CommandButton trên bảng tính Excel ta vào được cửa sổ VBA Editor.
Nhưng Bạn dat2007 này, giả sử pwd của VBA của tôi là pass123; vậy có cách nào khi tôi click vào CommandButton trên bảng tính Excel nó tự điền pwd và vào thẳng bên trong không chỉ mình với. Thanks

 

[digita]

Digita ơi nó không chạy được trong office 2003. Bạn chỉnh lại giùm nha, Thank for your help.

Bạn copy các code ngắn này vô 1 module nhá:

Sub VBEOn()
Application.VBE.MainWindow.Visible = True
End Sub

Sub VBEOff()
Application.VBE.MainWindow.Visible = False
End Sub

Cả 2 code đều chạy trong XL 2k.

Mến

 

[Duong gia]

Bạn copy các code ngắn này vô 1 module nhá:





Cả 2 code đều chạy trong XL 2k.

Mến

Cám ơn bạn vấn đề đó đã ổn rồi, giờ làm phiến các bạn vấn đề khác :

Với code :
Application.SendKeys ("%tmv")
từ một CommandButton trên bảng tính Excel ta vào được cửa sổ VBA Editor.
Nhưng giả sử pwd của VBA của tôi là pass123; vậy có cách nào khi tôi click vào CommandButton trên bảng tính Excel nó tự điền pwd và vào thẳng bên trong không chỉ mình với. Thanks