第一篇：VBA技巧29 防止更改工作表的名称
技巧1 防止更改工作表的名称
工作表的名称显示在工作表标签上，除了在相应的功能菜单中可以对其进行重命名操作外，在工作表标签上双击鼠标也能修改工作表名称。一旦修改了工作表名称，可能就会产生一连串的问题，例如在其他工作簿中对该工作表的引用将会失效，通过工作表名称引用工作表的代码也将出错。
Excel没有提供修改工作表名称的相关事件，要禁止用户修改工作表名称，需采取其他一些技巧。比如在工作表BeforeClose事件中检验工作表名称，如果工作表名称不是指定的字符串，则将其修改为指定字符串，即保持工作表名称不变，代码如下。
#001 Private Sub Workbook_BeforeClose(Cancel As Boolean)#002 If Sheet1.Name <> “Excel Home” Then Sheet1.Name = “Excel Home” #003 ThisWorkbook.Save #004 End Sub 代码解析：
工作簿的BeforeClose事件过程，在关闭当前工作簿时判断Sheet1工作表名称，如果不是指定的字符串“Excel Home”，则将其恢复为“Excel Home”后保存工作簿，从而避免更改Sheet1工作表名称。
第二篇：商业银行更改名称案例
商业银行更改名称案例
姓名：汪海伦
金融1403
1403010323
商业银行更改名称案例
中信银行成立于1987年，是中国改革开放中最早成立的新兴商业银行之一，也是中国最早参与国内外金融市场融资的商业银行。中国国际信托投资公司（简称中信公司）董事长荣毅仁先生向中央专函要求在中信公司系统下成立一个银行，全面经营外汇银行业务。即中信实业银行。改名去掉“实业”意味着中信银行不再是原来的定位；它成为了新一家真正的公司。以中国中信集团和中信国际金融控股有限公司为股东，正式成立中信银行股份有限公司。同年，成功引进战略投资者，与欧洲领先的西班牙对外银行（BBVA）建立了优势互补的战略合作关系。2007年4月27日，中信银行在上海交易所和香港联合交易所成功同步上市。2009年，中信银行成功收购中信国际金融控股有限公司（简称：中信国金）70.32%股权。经过二十多年的发展，中信银行已成为国内资本实力最雄厚的商业银行之一，是一家快速增长并具有强大综合竞争力的全国性商业银行。改名体现了中信银行走向国际资本市场的姿态。
原注册名称“广东发展银行股份有限公司”更改为“广发银行股份有限公司”1988年9月，经国务院和中国人民银行批准，广东发展银行作为中国金融体制改革的试点银行而成立，为广东经济特区的发展做出了巨大贡献。随着改革开放的深化，中部经济崛起，为摆脱地域银行形象，经过股份制改革的它更名为广发银行。体现了它迈向全国，一流商业银行‟的品牌形象和定位。现在的它与全球83个国家和地区的917家银行建立了代理行关系，初步形成了城市化大商业银行的格局。根据英国《银行家》杂志对全球1000家大银行排定的位次，广东发展银行连续四年入选全球银行500强。
同广发银行类似，2003年3月4日福建兴业银行正式更名为兴业银行。这标志着福建兴业银行已经从福建走向全国；从形式上和实质上都实现从地方银行、区域银行、全国银行到上市银行的四级跨越。
更名以求地域突破。上世纪90年代，除上海银行外，城市商业银行均采用“所在城市名称”+“市商业银行”的命名模式，这一命名充分显现出城商行的地方银行色彩。基于突破经营地域的考虑，直接去掉“市商业”三个字，如宁波银行；联合成为省级城商行后，以省份名称命名，如江苏银行；引入 外资仍在持续。借此加快向现代商业银行转变的步伐。同时，外资银行对快速进入中国市场又有着强烈冲动，而参股投资现有中小金融机构无疑是最佳选择。如2007年青岛市商业银行成功引入意大利联合圣保罗银行资本，成都市商业银行引入马来西亚丰隆银行资本，而从目前情况来看，城商行引入外资态势仍将延续。
由此可见，经济形势发展状况可以从银行改名中窥见一二。事实上，我国银行的发展也反映了改革开放以来经济的稳步增长。
第三篇：(参考样本)工会更改名称批文
（工会更改名称批文参考样本）
工会文件
工字„200 ‟号
关于公司工会更改名称的批复
公司工会委员会：
《关于厂工会更名为公司工会的报告》（工„200‟ 号）收悉。鉴于“厂”已更名为“公司”，经研究，批复如下：
一、同意“厂工会委员会”更名为“公司工会委员会”。
二、同意“厂工会经费审查委员会”更名为“公司工会经费审查委员会”。
更名后，原工会委员会主席、副主席、委员和原经费审查委员会主任、副主任、委员也随之更改称谓。
此复。
集团公司工会委员会
年月日
主题词：工会名称更改批复
抄送：公司党委
第四篇：EXCEL VBA工作表操作全能方法小结
EXCEL VBA工作表操作全能方法小结
[示例04-01]增加工作表(Add方法)Sub AddWorksheet()MsgBox “在当前工作簿中添加一个工作表” Worksheets.Add MsgBox “在当前工作簿中的工作表sheet2之前添加一个工作表” Worksheets.Add before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中的工作表sheet2之后添加一个工作表” Worksheets.Add after:=Worksheets(“sheet2”)MsgBox “在当前工作簿中添加3个工作表” Worksheets.Add Count:=3 End Sub 示例说明：Add方法带有4个可选的参数，其中参数Before和参数After指定所增加的工作表的位置，但两个参数只能选一；参数Count用来指定增加的工作表数目。
------------------[示例04-02]复制工作表(Copy方法)Sub CopyWorksheet()MsgBox “在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前” Worksheets(“sheet1”).Copy Before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后” Worksheets(“sheet2”).Copy After:=Worksheets(“sheet3”)End Sub 示例说明：Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。
------------------[示例04-03]移动工作表(Move方法)Sub MoveWorksheet()MsgBox “在当前工作簿中将工作表sheet3移至工作表sheet2之前” Worksheets(“sheet3”).Move Before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中将工作表sheet1移至最后” Worksheets(“sheet1”).Move After:=Worksheets(Worksheets.Count)End Sub 示例说明：Move方法与Copy方法的参数相同，作用也一样。
------------------[示例04-04]隐藏和显示工作表(Visible属性)[示例04-04-01] Sub testHide()MsgBox “第一次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = False MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第二次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第三次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVisible MsgBox “第四隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVeryHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第五隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVeryHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVisible End Sub 示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。
------------------[示例04-04-02] Sub ShowAllSheets()MsgBox “使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)” Dim ws As Worksheet For Each ws In Sheets ws.Visible = True Next ws End Sub
------------------[示例04-05]获取工作表数(Count属性)[示例04-05-01] Sub WorksheetNum()Dim i As Long i = Worksheets.Count MsgBox “当前工作簿的工作表数为：” & Chr(10)& i End Sub
------------------[示例04-05-02] Sub WorksheetNum()Dim i As Long i = Sheets.Count MsgBox “当前工作簿的工作表数为：” & Chr(10)& i End Sub 示例说明：在一个包含图表工作表的工作簿中运行上述两段代码，将会得出不同的结果，原因是对于Sheets集合来讲，工作表包含图表工作表。应注意Worksheets集合与Sheets集合的区别，下同。
------------------[示例04-06]获取或设置工作表名称(Name属性)[示例04-06-01] Sub NameWorksheet()Dim sName As String, sChangeName As String sName = Worksheets(2).Name MsgBox “当前工作簿中第2个工作表的名字为：” & sName sChangeName = “我的工作表” MsgBox “将当前工作簿中的第3个工作表名改为：” & sChangeName Worksheets(3).Name = sChangeName End Sub 示例说明：使用Name属性可以获取指定工作表的名称，也可以设置工作表的名称。
------------------[示例04-06-02]重命名工作表 Sub ReNameSheet()Dim xStr As String Retry: Err.Clear xStr = InputBox(“请输入工作表的新名称:” _ , “重命名工作表”, ActiveSheet.Name)If xStr = “" Then Exit Sub On Error Resume Next ActiveSheet.Name = xStr If Err.Number <> 0 Then MsgBox Err.Number & ” “ & Err.Description Err.Clear GoTo Retry End If On Error GoTo 0 '.........End Sub
------------------[NextPage][示例04-07]激活/选择工作表(Activate方法和Select方法)[示例04-07-01] Sub SelectWorksheet()MsgBox ”激活当前工作簿中的工作表sheet2“ Worksheets(”sheet2“).Activate MsgBox ”激活当前工作簿中的工作表sheet3“ Worksheets(”sheet3“).Select MsgBox ”同时选择工作簿中的工作表sheet2和sheet3“ Worksheets(Array(”sheet2“, ”sheet3“)).Select End Sub 示例说明：Activate方法只能激活一个工作表，而Select方法可以同时选择多个工作表。
------------------[示例04-07-02] Sub SelectManySheet()MsgBox ”选取第一个和第三个工作表.“ Worksheets(1).Select Worksheets(3).Select False End Sub
------------------[示例04-08]获取当前工作表的索引号(Index属性)Sub GetSheetIndex()Dim i As Long i = ActiveSheet.Index MsgBox ”您正使用的工作表索引号为“ & i End Sub
------------------[示例04-09]选取前一个工作表(Previous属性)Sub PreviousSheet()If ActiveSheet.Index <> 1 Then MsgBox ”选取当前工作簿中当前工作表的前一个工作表“ ActiveSheet.Previous.Activate Else MsgBox ”已到第一个工作表“ End If End Sub 示例说明：如果当前工作表是第一个工作表，则使用Previous属性会出错。
------------------[示例04-10]选取下一个工作表(Next属性)Sub NextSheet()If ActiveSheet.Index <> Worksheets.Count Then MsgBox ”选取当前工作簿中当前工作表的下一个工作表“ ActiveSheet.Next.Activate Else MsgBox “已到最后一个工作表” End If End Sub 示例说明：如果当前工作表是最后一个工作表，则使用Next属性会出错。
------------------[示例04-11]工作表行和列的操作 [示例04-11-01]隐藏行 Sub HideRow()Dim iRow As Long MsgBox ”隐藏当前单元格所在的行“ iRow = ActiveCell.Row ActiveSheet.Rows(iRow).Hidden = True MsgBox ”取消隐藏“ ActiveSheet.Rows(iRow).Hidden = False End Sub
------------------[示例04-11-02]隐藏列 Sub HideColumn()Dim iColumn As Long MsgBox ”隐藏当前单元格所在列“ iColumn = ActiveCell.Column ActiveSheet.Columns(iColumn).Hidden = True MsgBox ”取消隐藏“ ActiveSheet.Columns(iColumn).Hidden = False End Sub
------------------[示例04-11-03]插入行 Sub InsertRow()Dim rRow As Long MsgBox ”在当前单元格上方插入一行“ rRow = Selection.Row ActiveSheet.Rows(rRow).Insert End Sub
------------------[示例04-11-04]插入列 Sub InsertColumn()Dim cColumn As Long MsgBox ”在当前单元格所在行的左边插入一行“ cColumn = Selection.Column ActiveSheet.Columns(cColumn).Insert End Sub
------------------[示例04-11-05]插入多行 Sub InsertManyRow()MsgBox ”在当前单元格所在行上方插入三行“ Dim rRow As Long, i As Long For i = 1 To 3 rRow = Selection.Row ActiveSheet.Rows(rRow).Insert Next i End Sub
------------------[示例04-11-06]设置行高 Sub SetRowHeight()MsgBox ”将当前单元格所在的行高设置为25“ Dim rRow As Long, iRow As Long rRow = ActiveCell.Row iRow = ActiveSheet.Rows(rRow).RowHeight ActiveSheet.Rows(rRow).RowHeight = 25 MsgBox ”恢复到原来的行高“ ActiveSheet.Rows(rRow).RowHeight = iRow End Sub
------------------[示例04-11-07]设置列宽 Sub SetColumnWidth()MsgBox ”将当前单元格所在列的列宽设置为20“ Dim cColumn As Long, iColumn As Long cColumn = ActiveCell.Column iColumn = ActiveSheet.Columns(cColumn).ColumnWidth ActiveSheet.Columns(cColumn).ColumnWidth = 20 MsgBox ”恢复至原来的列宽“ ActiveSheet.Columns(cColumn).ColumnWidth = iColumn End Sub
------------------[示例04-11-08]恢复行高列宽至标准值 Sub ReSetRowHeightAndColumnWidth()MsgBox ”将当前单元格所在的行高和列宽恢复为标准值“ Selection.UseStandardHeight = True Selection.UseStandardWidth = True End Sub
------------------[示例04-12]工作表标签
[示例04-12-01] 设置工作表标签的颜色 Sub SetSheetTabColor()MsgBox ”设置当前工作表标签的颜色“ ActiveSheet.Tab.ColorIndex = 7 End Sub
------------------[示例04-12-01]恢复工作表标签颜色 Sub SetSheetTabColorDefault()MsgBox ”将当前工作表标签颜色设置为默认值“ ActiveSheet.Tab.ColorIndex =-4142 End Sub
------------------[示例04-12-03]交替隐藏或显示工作表标签 Sub HideOrShowSheetTab()MsgBox ”隐藏/显示工作表标签“ ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub------------------[NextPage][示例04-13]确定打印的页数(HPageBreaks属性与VPageBreaks属性)Sub PageCount()Dim i As Long i =(ActiveSheet.HPageBreaks.Count + 1)*(ActiveSheet.VPageBreaks.Count + 1)MsgBox ”当前工作表共“ & i & ”页.“ End Sub
------------------[示例04-14]保护/撤销保护工作表 [示例04-14-01] Sub ProtectSheet()MsgBox ”保护当前工作表并设定密码“ ActiveSheet.Protect Password:=”fanjy“ End Sub 示例说明：运行代码后，当前工作表中将不允许编辑，除非撤销工作表保护。
------------------[示例04-14-02] Sub UnprotectSheet()MsgBox ”撤销当前工作表保护“ ActiveSheet.Unprotect End Sub 示例说明：运行代码后，如果原保护的工作表设置有密码，则要求输入密码。
------------------[示例04-14-03]保护当前工作簿中的所有工作表 Sub ProtectAllWorkSheets()On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox(”请输入您的密码“ & vbCrLf & _ ”(不输入表明无密码)“ & vbCrLf & vbCrLf & _ ”确保您没有忘记密码！“, ”输入密码“)For Each ws In ThisWorkbook.Worksheets ws.Protect(myPassword)Next ws End Sub
------------------[示例04-14-04]撤销对当前工作簿中所有工作表的保护 Sub UnprotectAllWorkSheets()On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox(”请输入您的密码“ & vbCrLf & _ ”(不输入表示无密码)“, ”输入密码“)For Each ws In ThisWorkbook.Worksheets ws.Unprotect(myPassword)Next ws End Sub
------------------[示例04-14-05]仅能编辑未锁定的单元格 Sub OnlyEditUnlockedCells()Sheets(”Sheet1“).EnableSelection = xlUnlockedCells ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub 示例说明：运行本代码后，在当前工作表中将只能对未锁定的单元格进行编辑，而其它单元格将不能编辑。未锁定的单元格是指在选择菜单“格式——单元格”命令后所弹出的对话框中的“保护”选项卡中，未选中“锁定”复选框的单元格或单元格区域。
------------------[示例04-15]删除工作表(Delete方法)Sub DeleteWorksheet()MsgBox ”删除当前工作簿中的工作表sheet2“ Application.DisplayAlerts = False Worksheets(”sheet2").Delete Application.DisplayAlerts = True End Sub
第五篇：EXCEL VBA工作表操作全能方法小结
EXCELVBA工作表操作全能方法小结
[示例04-01]增加工作表(Add方法)SubAddWorksheet()MsgBox“在当前工作簿中添加一个工作表” Worksheets.Add MsgBox“在当前工作簿中的工作表sheet2之前添加一个工作表” Worksheets.Addbefore:=Worksheets(“sheet2”)MsgBox“在当前工作簿中的工作表sheet2之后添加一个工作表” Worksheets.Addafter:=Worksheets(“sheet2”)MsgBox“在当前工作簿中添加3个工作表” Worksheets.AddCount:=3 EndSub
示例说明：Add方法带有4个可选的参数，其中参数Before和参数After 指定所增加的工作表的位置，但两个参数只能选一；参数Count用来指定增加的工作表数目。
[示例04-02]复制工作表(Copy方法)SubCopyWorksheet()MsgBox“在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前” Worksheets(“sheet1”).CopyBefore:=Worksheets(“sheet2”)MsgBox“在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后” Worksheets(“sheet2”).CopyAfter:=Worksheets(“sheet3”)EndSub
示例说明：
Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。
[示例04-03]移动工作表(Move方法)SubMoveWorksheet()MsgBox“在当前工作簿中将工作表sheet3移至工作表sheet2之前” Worksheets(“sheet3”).MoveBefore:=Worksheets(“sheet2”)MsgBox“在当前工作簿中将工作表sheet1移至最后” Worksheets(“sheet1”).MoveAfter:=Worksheets(Worksheets.Count)End Sub
示例说明：
Move方法与Copy方法的参数相同，作用也一样。
示例【04-04】隐藏和显示工作表(Visible属性)[示例04-04-01] SubtestHide()MsgBox“第一次隐藏工作表sheet1” Worksheets(“sheet1”).Visible=False MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第二次隐藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetHidden MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第三次隐藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetHidden MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVisible MsgBox“第四隐藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVeryHidden MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第五隐藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVeryHidden MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVisible EndSub 示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用
xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。[示例04-04-02] SubShowAllSheets()MsgBox“使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)” DimwsAsWorksheet For Each wsIn Sheets ws.Visible=True Next ws End Sub
[示例04-05] 获取工作表数(Count属性)[示例04-05-01] SubWorksheetNum()Dim IAs Long i=Worksheets.Count MsgBox“当前工作簿的工作表数为：”&Chr(10)&i EndSub
[示例04-05-02] Sub WorksheetNum()Dim IAs Long i=Sheets.Count MsgBox“当前工作簿的工作表数为：”&Chr(10)&i End Sub
示例说明：在一个包含图表工作表的工作簿中运行上述两段代码，将会得出不同的结果，原因是对于Sheets集合来讲，工作表包含图表工作表。应注意Worksheets集合与Sheets集合的区别，下同。
示例04-06]获取或设置工作表名称(Name属性)[示例04-06-01] SubNameWorksheet()DimsNameAsString,sChangeNameAsString sName=Worksheets(2).Name MsgBox“ 当前工作簿中第
2个工作表的名字为：”&sNamesChangeName=“我的工作表 ”MsgBox“将当前工作簿中的第3个工作表名改为：”&sChangeName Worksheets(3).Name=sChangeName EndSub 示例说明：使用Name属性可以获取指定工作表的名称，也可以设置工作表的名称。
点击咨询 