VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • excel vba教程之工作表权限 by:fieldsun

 

http://excel.aa.topzj.com/viewthread.php?tid=372297&extra=page%3D1
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim a As Byte
a = ActiveSheet.Index
If a <> 4 Then
If InputBox("密码:", "请确认密码", 4) = a Then
Sheets(a).Select
Else
Sheets(4).Select
End If
End If
End Sub

相关教程