Question

我在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

在选择特定范围时可以放大，在选择页面上的任何其他位置时可以缩小。

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

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

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

我还保存了文件而没有输入宏作为＆＃34; Excel启用宏的工作簿＆＃34;然后将宏复制到工作簿中，检查宏是否正常工作（确实如此），然后保存文件，关闭并重新打开。

宏的结果被保存但不起作用。

如何保存此工作簿以便宏随之保存并在每次打开文件时都有效？

非常感谢您的帮助。

Answer 1

@ user2879835，将工作簿保存为“Excel启用了宏的工作簿”并在打开工作簿时，它是否会询问任何安全警告，例如“宏已被禁用”？...并且工作表上的单元格也会出现Worksheet_Change由用户或任何链接更改。

用宏保存文件

1 个答案: