Tạo biểu tượng cho macro trên toolBar

[manylam]

Kính chào các bác,
Các bác ơi, xin chỉ giúp. Em muốn tạo 1 macro có biểu tượng để khi bấm vào thì nó sẽ trả vế page setup như ban đầu, tại vi công việc của em thì cần như : 1 sheet nhưng khi in đưa cho khách hàng thì cần trang portrait , còn khi in cho kho vật tư thì phải là landscape, đôi lúc in cho " xếp" thi fải nén lai 80%......
Và cho em xin thêm 1 chiêu nữa, cũng là tạo macro biểu tượng sao cho khi bấm vào thì nó sẽ khoá sheet & bấm 1 cái nữa sẽ mở protect sheet.
Xin đa tạ trước

 

[Nguyễn Duy Tuân]

Kính chào các bác,
Các bác ơi, xin chỉ giúp. Em muốn tạo 1 macro có biểu tượng để khi bấm vào thì nó sẽ trả vế page setup như ban đầu, tại vi công việc của em thì cần như : 1 sheet nhưng khi in đưa cho khách hàng thì cần trang portrait , còn khi in cho kho vật tư thì phải là landscape, đôi lúc in cho " xếp" thi fải nén lai 80%......
Và cho em xin thêm 1 chiêu nữa, cũng là tạo macro biểu tượng sao cho khi bấm vào thì nó sẽ khoá sheet & bấm 1 cái nữa sẽ mở protect sheet.
Xin đa tạ trước

Sub ProtectSheet()
Dim WS As Worksheet
Const cMyPass As String = "tuanktcdcn"
'-----Nếu không có sheet thì thoát----
If ActiveSheet is Nothing Then Goto EndSub:
'-------------------------------------
Set WS = ActiveSheet
If WS.ProtectContents Then
  WS.Unprotect cMyPass
Else
  WS.Protect cMyPass
End If
Set WS = Nothing

EndSub:
End Sub

Việc gán ProtectSheet vào nút chọn trên Toolbar bạn làm tiếp.

 

[manylam]

Sub ProtectSheet()
Dim WS As Worksheet
Const cMyPass As String = "tuanktcdcn"
'-----Nếu không có sheet thì thoát----
If ActiveSheet is Nothing Then Goto EndSub:
'-------------------------------------
Set WS = ActiveSheet
If WS.ProtectContents Then
  WS.Unprotect cMyPass
Else
  WS.Protect cMyPass
End If
Set WS = Nothing
 
EndSub:
End Sub

Việc gán ProtectSheet vào nút chọn trên Toolbar bạn làm tiếp.

Xin đa tạ nhiều nhiều
Nhưng bác chưa chỉ cách tạo 1 biểu tượng của macro đó ở trên toolbar
hu .. hu

 

[nvson]

To manylam:

Nhưng bác chưa chỉ cách tạo 1 biểu tượng của macro đó ở trên toolbar
hu .. hu

Bạn thử Code này nhé:
Public Sub CreatMenu()
Dim SubmenuCustom As CommandBarButton
Set SubmenuCustom = Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton, ID:=2950, Before:=16)
SubmenuCustom.OnAction = "Vdu"
SubmenuCustom.Caption = "Vi du"
SubmenuCustom.TooltipText = "Vi du"
SubmenuCustom.FaceId = 283
End Sub

Public Sub VDu()
MsgBox "Hello!"
End Sub

Thuộc tính OnAction chính là Macro (hay một thủ tục) mà bạn đã tạo.
Để tự động được thì bạn nên viết thêm Code sau (Trong Microsoft Visual Basic nháy kép vào ThisWorkbook):
Private Sub Workbook_Open()
Call CreatMenu
End Sub
Sau đó dịch ra *.xla rồi Add-Ins....