[已解决][求助]该工作簿中运行表1时按提交直接转入转2，做完表2直接进入表3，按照顺

shirley0099

工作表密码为：表1为1；表2为2；表3为3；表4为5；主表：4

工作表保护为：456

请大家帮忙看一下这个程序，急啊！！

[em06]

[此贴子已经被作者于2006-7-25 13:14:59编辑过]

最佳答案

月排行榜 / 总排行榜

qee用

2006-7-25 13:30

在相应的按钮中加一句就可以了.比如:
Sub 按钮78_单击()
 
 Dim i As Integer

    
 If [b2] = "" Or [b4] = "" Or [b7] = "" Then
 MsgBox "你的数据不完整,请重新填写", 16
 Else
 i = MsgBox("您是否确认提交？提交后将不能对工作表进行更改！", vbYesNo)
       
    If i = vbYes Then
       ActiveSheet.Protect Password:=456
       Sheets("表3").select
 End If
  End If
End Sub

跳转到最佳答案楼层

qee用

问题1:建议采用隐藏工作表的办法,思路我曾经说过,代码你自己先写写

问题2:可以通过控件enabled属性设置来完成.参考帮助文档.

shirley0099

搞定了，谢谢！

qee用

在相应的按钮中加一句就可以了.比如:
Sub 按钮78_单击()
 
 Dim i As Integer

    
 If [b2] = "" Or [b4] = "" Or [b7] = "" Then
 MsgBox "你的数据不完整,请重新填写", 16
 Else
 i = MsgBox("您是否确认提交？提交后将不能对工作表进行更改！", vbYesNo)
       
    If i = vbYes Then
       ActiveSheet.Protect Password:=456
       Sheets("表3").select
 End If
  End If
End Sub

shirley0099

我的意思没有表达清楚，问题1：当打开工作簿时出现sheet1，完成sheet1时，只能点击sheet2进入，不能进入sheet3/sheet4,完成sheet2时，只能进入sheet3,其它表是灰色的

问题2：在sheet2中,有复选框和单选框，当用户完成后在单击选框，点击提交后将不能对复选框和单选框进行更改。我只能对单元格的内容进行控制不能更改，选框还不会！

SOS！！

MissSun

新手学习学习