Const MyPassWord = "123456"
Private Sub CommandButton1_Click()
Sheet1.Unprotect MyPassWord
Call setOff
Sheet1.Protect MyPassWord
End Sub
Private Sub CommandButton2_Click()
Dim msg As String
msg = InputBox("块?盞絏", "盞絏块??")
If Len(msg) = 0 Then Exit Sub
If msg = MyPassWord Then
Sheet1.Unprotect MyPassWord
Call setOn
Else
MsgBox "盞絏岿粇"
End If
End Sub
Sub setOff()
Sheet1.Range("C:D,F:G,I:J,L:M,O:P,R:S,U:V,X:Y,AA:AB,AD:AE").EntireColumn.Hidden = True
Sheet2.Visible = False
Sheet3.Visible = False
End Sub
Sub setOn()
Sheet1.Range("C:D,F:G,I:J,L:M,O:P,R:S,U:V,X:Y,AA:AB,AD:AE").EntireColumn.Hidden = False
Sheet2.Visible = True
Sheet3.Visible = True
End Sub
excel-sample2.rar
(20.49 KB, 下载次数: 27)