excel第一个sheet在指定路径另存为一个新的excel

formoon0424 · 发表于 2018-7-8 22:01

现在在我们工作中有这样一个需求，我有多个类似的excel，在我整理完之后，都会在第一个sheet保存一些相关数据share给别的部门看，我现在希望可以利用一段代码实现在我每个excel用完之后，点击一下按钮，将第一个sheet页在指定路径存储一个以这个sheet页名字命名的excel，并且使用read only加密，这个可以实现吗，非常感谢！！！

不知道为什么 · 发表于 2018-7-8 23:25

可以实现，试试下面的代码

Sub dadfasf()
Dim Sh As Worksheet
Set Sh = Worksheets("sheet1")
Sh.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & Sh.Name & ".xlsx"
ActiveWorkbook.Close True
End Sub

复制代码

formoon0424 · 发表于 2018-7-9 21:29

多谢帮忙，但是我复制这段代码运行提示下标越界，然后我需要将这个新的excel保存在另外一个指定路径，我们部门的盘是不能让其他部门进来的，还得加只读密码，要求是有点多，麻烦你了，谢谢

formoon0424 · 发表于 2018-7-9 21:29

不知道为什么发表于 2018-7-8 23:25
可以实现，试试下面的代码

多谢帮忙，但是我复制这段代码运行提示下标越界，然后我需要将这个新的excel保存在另外一个指定路径，我们部门的盘是不能让其他部门进来的，还得加只读密码，要求是有点多，麻烦你了，谢谢

tudarong · 发表于 2018-7-9 21:42

建议上传附件

不知道为什么 · 发表于 2018-7-9 21:52

formoon0424 发表于 2018-7-9 21:29
多谢帮忙，但是我复制这段代码运行提示下标越界，然后我需要将这个新的excel保存在另外一个指定路径， ...

如图，供参考

formoon0424 · 发表于 2018-7-10 09:38

不知道为什么发表于 2018-7-9 21:52
如图，供参考

hihi，在公司用了很好用，但是有个小问题，我在公司发现我新产生的Excel，有一部分单元格被保护了，一部分还可以修改，这是为什么呀

formoon0424 · 发表于 2018-7-10 21:49

不知道为什么发表于 2018-7-9 21:52
如图，供参考

我知道了，这个表以前有人改过保护

		自动登录	找回密码
密码			免费注册

[求助] excel第一个sheet在指定路径另存为一个新的excel

评分

[求助] excel第一个sheet在指定路径另存 为一个新的excel

评分

[求助] excel第一个sheet在指定路径另存为一个新的excel