解除密码再运行宏

解除密码再运行宏 Private Sub CommandButton1_Click() If ActiveSheet.Name <> "Sheet1" Then MsgBox "此功能需在数据清单模式下运行! ", vbInformation, "收付详单": Exit Sub '指对SHEET1有效 ActiveSheet.Unprotect Password = "123" If Columns("A:C").Hidden = True Then If TextBox1.Text = "" Then MsgBox "对不起,密码不能为空,请重输入!" TextBox1.SetFocus Else If TextBox1.Text = "123" Then '假定口令是123 Columns("A:C").Hidden = False Range("A1").Select MsgBox "^v^ 内容已显示! ", vbInformation, "受权部分" Unload Me Else MsgBox "口令错误～请退出～" End If End If Else Columns("A:C").Hidden = True End If End Sub