VBA更改Workbook_Open上工作簿的Excel光标

Question

是否可以更改特定工作簿的Excel光标？找不到任何解决方案。

我的工作簿已被锁定，无法编辑单元格，只有某些单元格可用，我想替换此Excel光标：

通过指针：

我已经经历过了，但是不知道是否可以在Workbook中实现它？ https://docs.microsoft.com/en-us/office/vba/api/excel.application.cursor

Private Sub Workbook_Open()
Application.Cursor = xlDefault
End Sub

Answer 1

在ThisWorkbook代码模块中，您可以执行以下操作。这里的想法是打开工作簿时捕获初始光标样式（Workbook_Open上的changeCursor事件调用将当前光标样式存储在cursor变量中，然后添加一些内容。更多的事件处理程序，以便当工作簿失去焦点（Workbook_Deactivate）并在关闭之前（Workbook_BeforeClose）时，我们可以通过resetCursor方法将该光标恢复为其先前的样式。我没有考虑过的情况，但这是您需要实现的一般想法。

Option Explicit
Private cursor As Long

Private Sub Workbook_Activate()
changeCursor
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
resetCursor
End Sub

Private Sub Workbook_Deactivate()
resetCursor
End Sub

Private Sub Workbook_Open()
changeCursor
End Sub

Private Sub changeCursor()
cursor = Application.cursor
Application.cursor = xlNorthwestArrow
End Sub
Private Sub resetCursor()
On Error Resume Next
Application.cursor = cursor
If Err.Number <> 0 Then
    Application.cursor = xlDefault
End If
End Sub