Курсор не активен

[segail]

Здравствуйте.
Можно ли как то на время сделать курсор мыши не видимым или не активным.

Private Sub CommandButton1_Click()
	 ‘. . . 
	a=1 ‘ Курсор не активен
	‘. . .
	a=2 ‘ Курсор активен
End Sub

[EducatedFool]

Не поленился спросить у Яндекса: VB скрыть курсор
В первой же ссылке нашёл готовое решение:

Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)

Private Sub CommandButton1_Click()
    ShowCursor& 0    'Скрыть курсор
End Sub

Private Sub UserForm_Terminate()
    ShowCursor& 1    'Показать курсор
End Sub

[segail]

А активность клика мыши блокировать можно?

[EducatedFool]

Надо не "активность клика" невидимого курсора блокировать, а просто делать некоторые кнопки недоступными.

Достигается это изменением значения свойства Locked (или, ещё лучше, свойства Enabled)

Программно это выглядит так:

Private Sub CommandButton2_Click()
    Me.CommandButton1.Enabled = False
End Sub

[segail]

Например если при запуске с приложения VBA файла ехе. произвести клик мышью в любом месте приложения VBA, то при открытие окна файла ехе. оно окажется на заднем плане приложения VBA.
Для этого и хотел блокировать клик мышью. Но походу дела, это тоже не поможет, потому что блокировать надо в ОС…