2

我在 Visual Basic 中输入了以下代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("$D$10:$S$29")) Is Nothing Then
ActiveWindow.Zoom = 80
Else
ActiveWindow.Zoom = 100
End If
End Sub

It works well to zoom in when a certain range is selected, and to zoom out when anywhere else on the page is selected.

当我去保存工作簿时，出现以下消息：

“以下功能无法保存在无宏作品中： - VB 项目 要保存具有这些功能的文件，请单击否，然后在文件类型列表中选择启用宏的文件类型。继续保存为无宏文件工作簿，单击是。”

保存时，我已将“保存类型”更改为“启用 Excel 宏的工作簿”。这会将文本保存在编辑器中，但是当我重新打开文件时，宏不起作用。

我还保存了没有输入宏的文件作为“启用 Excel 宏的工作簿”，然后将宏复制到工作簿中，检查宏是否有效（它确实有效），然后保存文件，关闭并重新打开.

宏的结果被保存但不工作。

如何保存此工作簿，以便宏与它一起保存并在我每次打开文件时工作？

非常感谢您的帮助。

4

1 回答 1

0

@ user2879835，在您将工作簿保存为“启用 Excel 宏的工作簿”后，打开相同的工作簿后，它是否会询问“宏已被禁用”之类的任何安全警告？...当工作表上的单元格被更改时，也会发生 Worksheet_Change用户或任何链接。

于 2013-10-15T12:24:23.397 回答