vba解除受保护视图
时间: 2023-10-19 09:25:02 浏览: 42
在VBA中,要解除受保护视图,你可以使用以下代码:
```vba
Application.DisplayAlerts = False
ActiveWorkbook.ProtectSharing = False
Application.DisplayAlerts = True
```
这段代码将先禁用显示警告信息,然后取消活动工作簿的共享保护,最后再次启用显示警告信息。这样就可以成功解除受保护视图。
请注意,在执行此代码之前,请确保你有权限修改工作簿的保护设置。
相关问题
Word VBA用代码保护代码
要保护Word VBA代码,可以按照以下步骤操作:
1. 打开Word文档,按下“Alt+F11”进入VBA编辑器。
2. 在VBA编辑器中,选择要保护的代码模块。
3. 在菜单栏中选择“工具” -> “项目属性”。
4. 在弹出的对话框中,选择“保护性质”。
5. 勾选“锁定项目为受保护视图”和“启用受保护视图”。
6. 设置密码(可选),点击“确定”。
7. 关闭VBA编辑器,保存Word文档。
现在,当用户打开Word文档并尝试编辑VBA代码时,会提示需要输入密码才能进行编辑。
Word视图中页宽VBA接口
Word VBA 中有多种方式可以设置页面宽度。以下是其中一些方法:
1. 使用 `ActiveDocument.PageSetup.PageWidth` 属性
```
Sub SetPageWidth()
'设置页面宽度为 21 厘米
ActiveDocument.PageSetup.PageWidth = CentimetersToPoints(21)
End Sub
```
2. 使用 `ActiveWindow.View.Zoom.Percentage` 属性
```
Sub SetZoom()
'设置页面宽度自适应窗口并缩放至 100%
ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit
ActiveWindow.View.Zoom.Percentage = 100
End Sub
```
3. 使用 `ActiveWindow.ActivePane.View.SeekView` 方法
```
Sub SetView()
'设置当前视图为“页面宽度”
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageWide
End Sub
```
以上三种方法都可以用来设置 Word 视图中的页面宽度。具体使用哪种方法取决于你的需求。
相关推荐
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)