【EXCEL_VBA_实战】利用VBA批量解除工作表保护，并调整页面设置

南工说焊接

已于 2024-05-23 20:17:46 修改

阅读量2.1k

点赞数 5

分类专栏：软件应用文章标签： excel

于 2024-05-01 10:55:34 首次发布

本文链接：https://blog.csdn.net/jimmy33777/article/details/138367234

版权

本文介绍了如何使用VBA在Excel中编写宏，批量处理大量Excel文件，包括解除工作表保护、调整页面设置，以确保文件处理的一致性和效率。作者提供了解除单个工作表保护和调整页面设置的VBA代码片段，以及一个用于遍历并执行这些操作的批处理框架。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. 工作需求：

大量Excel文件需要处理，包括但不限于文件筛选、数据清洗、公式计算等。
对这些Excel文件的处理过程应保持一致，避免重复操作。

2. 基本原理：

借鉴其他大神，得到解除单个工作表保护代码（代码块1）及调整页面设置代码（代码块2）
将代码填写至构建好的批处理框架中（代码块3）
运行。（代码块1 + 代码块2 + 代码块3）

3. 代码块说明：

3.1 代码块1：解除单个工作表保护

sub remove_ActiveSheet_pw()
 
ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True
ActiveSheet.Unprotect
 
end remove_ActiveSheet_pw

3.2 代码块2：调整页面设置

ActiveSheet.PageSetup.Orientation = xlPortrait '将 活动sheet 设置为纵向打印

ActiveSheet.PageSetup.FitToPagesWide = 1 '按照一页的宽度打印 活动sheet

' 设置页

最低0.47元/天解锁文章