Try This
Sub Combar1()
CommandBars(1).FindControl(ID:=30029, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=522, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30005, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30006, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30011, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30009, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30004, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30007, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30003, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=3, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30095, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=247, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=18, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=23, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=748, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=3823, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=846, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=3655, recursive:=True).Enabled = True
CommandBars(1).FindControl(ID:=30255, recursive:=True).Enabled = True
End Sub