[求助]关于插入一代码增强所需功能的请求!

lighteds

求助插入一代码增强所需功能的请求!



各位尊敬的高手:

求精:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each Sh In Sheets
        If Sh.Name <> "首页" Then
            Sh.Visible = 2
        End If
    Next
End Sub


Sub UnHidden_Sheets()
    On Error GoTo 100
    Dim mm$
    mm = InputBox("運行宏必需取得權限請!您輸入密碼:", "****")
    If mm = "12345" Then
        For Each Sh In Sheets
            If Not Sh.Visible Then
                Sh.Visible = -1
            End If
        Next
    End If
100:
End Sub

Private Sub Workbook_Open()
Call UnHidden_Sheets
End Sub

能否在代码中插入

    Application.ScreenUpdating = False
    Sheets("首页").Select
    Range("B4").Select

这段代码?

目的是当输入了密码后运行"首页"选择B4单元格,当没有输入密码或密码错误就不运行插入的代码!

还有:

当输入密码错误时再出现一个提示窗口"您输入的密码错误,您将无权使用该功能!"

当输入密码能不能是"******"这样的呢?而不是显示:12345

附件:

http://club.excelhome.net/viewFile.asp?BoardID=2&ID=203941

谢谢!

方漠

Sub UnHidden_Sheets()
    On Error GoTo 100
    Dim mm$
   
    Do
   
    mm = InputBox("運行宏必需取得權限!請您輸入密碼:", "Logon")
    If mm = "12345" Then

       Application.ScreenUpdating = False
            For Each Sh In Sheets
                If Not Sh.Visible Then
                    Sh.Visible = -1
                End If
            Next

     Sheets("首页").Select
      Range("B4").Select  
       Application.ScreenUpdating = true        
        Else
        
            MsgBox "您输入的密码错误,您将无权使用该功能!", vbExclamation
        
    End If
   
    XX = XX + 1
    Loop Until XX > 2
   
100:


End Sub



"当输入密码能不能是"******"这样的呢?而不是显示:12345 "

如果希望达到这种效果，可以使用用户窗体来制作登陆窗体。