通过在Excel 2007中使用宏创建新表

Question

我只是一个新手，想通过使用Macro创建一个新的spreatsheet。 我有这样的代码。我的代码确实复制了Blank From，但是新工作表的宽度和高度与origianl一个（Blankform）不同，我想要

1. 锁定B6--列和I6--列。

2. 我可以创建一个弹出窗口并询问新工作表的名称并为新电子表格命名吗？

对于这里的大多数人来说，这应该很简单，但是对我来说，我真的很难。 所以请帮忙。

谢谢

Sub CreateNewSheet()

Sheets("Blank form").Select
ActiveWorkbook.Sheets.Add after:=ActiveSheet
Sheets("Blank form").Range("a1:f281").Copy
Range("a1").Select
ActiveSheet.Paste
Range("a1").Select
Application.CutCopyMode = False
Sheets("Blank form").Select
Range("a1").Select
End Sub

Answer 1

尝试这个

Sub CreateNewSheet()
dim sName as string
Sheets("Blank form").copy after:=activesheet

sname=inputbox("Enter new sheet name")
on error resume next
activesheet.name=sname
if err<>0 then msgbox "Name not valid"
err.clear
on error goto 0

End Sub