[已解决]求代码解释-非常感谢

coolliangfen

求下面这段代码的具体解释：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet5.Visible = True
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Name <> Sheet5.Name Then
        If sh.Name <> Sheet1.Name Then sh.Protect Password:="123"
        sh.Visible = xlSheetVeryHidden
    End If
Next
ThisWorkbook.Save
End Sub

十分感谢

[此贴子已经被作者于2010-5-1 22:39:41编辑过]

最佳答案

月排行榜 / 总排行榜

爱疯

2010-5-1 23:03

Private Sub Workbook_BeforeClose(Cancel As Boolean) '工作簿退出前时
    Sheet5.Visible = True '显示代码名为sheet5的工作表
    Dim sh As Worksheet '声明变量sh的数据类型为工作表
    For Each sh In Worksheets '在当前工作簿中循环
        If sh.Name <> Sheet5.Name Then '如果循环变量sh的名称不等于sheet5的名称
             '如果循环变量sh的名称不等于sheet1的名称，那么sh设(sh所代表的工作表)密码123
            If sh.Name <> Sheet1.Name Then sh.Protect Password:="123"
            sh.Visible = xlSheetVeryHidden '隐藏sh(sh所代表的工作表)
        End If
    Next
    ThisWorkbook.Save '保存代码所在的工作簿
End Sub

大致这样吧。

[em11]

跳转到最佳答案楼层

coolliangfen

自己顶吧！！

            再不顶顶

[em01]高手更看不见了

爱疯

Private Sub Workbook_BeforeClose(Cancel As Boolean) '工作簿退出前时
    Sheet5.Visible = True '显示代码名为sheet5的工作表
    Dim sh As Worksheet '声明变量sh的数据类型为工作表
    For Each sh In Worksheets '在当前工作簿中循环
        If sh.Name <> Sheet5.Name Then '如果循环变量sh的名称不等于sheet5的名称
             '如果循环变量sh的名称不等于sheet1的名称，那么sh设(sh所代表的工作表)密码123
            If sh.Name <> Sheet1.Name Then sh.Protect Password:="123"
            sh.Visible = xlSheetVeryHidden '隐藏sh(sh所代表的工作表)
        End If
    Next
    ThisWorkbook.Save '保存代码所在的工作簿
End Sub

大致这样吧。

[em11]

coolliangfen

十分感谢“爱疯”哥哥给的解释

你是我学习的榜样

[em05][em17][em17][em05]

fjmxwrs

佩服得不得不学习了，爱

coolliangfen

必须要去学习

有机会的话我一定拜个老师

[em01]