[已解决]工作表保护以后，是否能够允许宏对工作表内容进行修改？

qjsu

工作表保护以后，是否能够允许宏对工作表内容进行修改？如果可以如何实现呀？？？

最佳答案

月排行榜 / 总排行榜

枯禅

2010-1-30 10:19

以上三句分别是：

1、撤销保护

2、更改数据

3、加上保护

123是密码

跳转到最佳答案楼层

枯禅

    ActiveSheet.Unprotect "123"
    '更改数据
    ActiveSheet.Protect "123"

qjsu

给我详细的解释一下好吗？

qjsu

这段代码加入到宏里面去是吗？？？？？

[此贴子已经被作者于2010-1-30 10:15:50编辑过]

xuexingxiang

[em01]

qjsu

QUOTE:

以下是引用xuexingxiang在2010-1-30 10:14:00的发言：
[em01]

嘿嘿，别笑了，帮帮我呀！！！！！！！

枯禅

以上三句分别是：

1、撤销保护

2、更改数据

3、加上保护

123是密码

qjsu

那把这段代码加到哪里啊？加入到宏里面吗？？？？

qjsu

比如下面这段代码应该怎么修改？

Sub GAIYUAN2()
    Sheets("x").Range("z1") = "建设项目概算总表（汇总表）"
    Sheets("x").Range("z2") = "工程概算总表（表一）"
    Sheets("x").Range("z3") = "建筑安装工程费用概算表（表二）"
    Sheets("x").Range("z4") = "建筑安装工程量概算表（表三）甲"
    Sheets("x").Range("z5") = "建筑安装工程机械使用费概算表（表三）乙"
    Sheets("x").Range("z6") = "建筑安装工程仪器仪表使用费概算表（表三）丙"
    Sheets("x").Range("z7") = "国内器材概算表（表四）甲"
    Sheets("x").Range("z8") = "引进器材概算表（表四）乙"
    Sheets("x").Range("z9") = "工程建设其他费概算表（表五）甲"
    Sheets("x").Range("z10") = "引进设备工程建设其他费用概算表（表五）乙"
    Sheets("1").Range("d17") = "预备费(合计×3%)"
    Sheets("1").Range("j17") = "=k16*0.03"
    Sheets("1").Range("k17") = "=sum(e17:j17)"
    Sheets("x").Range("a1") = "g"
End Sub
Sub yusuan2()
    Sheets("x").Range("z1") = "建设项目预算总表（汇总表）"
    Sheets("x").Range("z2") = "工程预算总表（表一）"
    Sheets("x").Range("z3") = "建筑安装工程费用预算表（表二）"
    Sheets("x").Range("z4") = "建筑安装工程量预算表（表三）甲"
    Sheets("x").Range("z5") = "建筑安装工程机械使用费预算表（表三）乙"
    Sheets("x").Range("z6") = "建筑安装工程仪器仪表使用费预算表（表三）丙"
    Sheets("x").Range("z7") = "国内器材预算表（表四）甲"
    Sheets("x").Range("z8") = "引进器材预算表（表四）乙"
    Sheets("x").Range("z9") = "工程建设其他费预算表（表五）甲"
    Sheets("x").Range("z10") = "引进设备工程建设其他费用预算表（表五）乙"
    Sheets("1").Range("d17") = ""
    Sheets("1").Range("j17") = ""
    Sheets("1").Range("k17") = ""
    Sheets("x").Range("a1") = "y"
End Sub
Sub yusuan1()
    Sheets("x").Range("z1") = "建设项目预算总表（汇总表）"
    Sheets("x").Range("z2") = "工程预算总表（表一）"
    Sheets("x").Range("z3") = "建筑安装工程费用预算表（表二）"
    Sheets("x").Range("z4") = "建筑安装工程量预算表（表三）甲"
    Sheets("x").Range("z5") = "建筑安装工程机械使用费预算表（表三）乙"
    Sheets("x").Range("z6") = "建筑安装工程仪器仪表使用费预算表（表三）丙"
    Sheets("x").Range("z7") = "国内器材预算表（表四）甲"
    Sheets("x").Range("z8") = "引进器材预算表（表四）乙"
    Sheets("x").Range("z9") = "工程建设其他费预算表（表五）甲"
    Sheets("x").Range("z10") = "引进设备工程建设其他费用预算表（表五）乙"
    Sheets("1").Range("d17") = "预备费(合计×3%)"
    Sheets("1").Range("j17") = "=k16*0.03"
    Sheets("1").Range("k17") = "=sum(e17:j17)"
    Sheets("x").Range("a1") = "y"
End Sub
Sub display0()
    Sheets("0").Visible = True
End Sub
Sub hide0()
    Sheets("0").Visible = False
End Sub
Sub display3B()
    Sheets("3B").Visible = True
    Sheets("2").Range("e15") = "=max(3b!k7:k26)"
   End Sub
Sub hide3B()
    Sheets("3B").Visible = False
    Sheets("2").Range("e15") = ""
End Sub
Sub display3C()
    Sheets("3C").Visible = True
    Sheets("2").Range("e16") = "=max(3c!k7:k78)"
   End Sub
Sub hide3C()
    Sheets("3C").Visible = False
    Sheets("2").Range("e16") = ""
End Sub
Sub display4A2()
    Sheets("4A2").Visible = True
    Sheets("1").Range("D10") = "主设备费"
   End Sub
Sub hide4A2()
    Sheets("4A2").Visible = False
    Sheets("1").Range("D10") = ""
    End Sub
Sub display4A3()
    Sheets("4A3").Visible = True
    Sheets("1").Range("D11") = "配套设备费"
    End Sub
Sub hide4A3()
    Sheets("4A3").Visible = False
    Sheets("1").Range("D11") = ""
    End Sub
Sub display4A4()
    Sheets("4A4").Visible = True
    Sheets("1").Range("C12") = Sheets("输入").Range("B21") & "-4A4"
    Sheets("1").Range("D12") = "不需要安装的设备"
    Sheets("4A4").Range("H28") = "=SUM(H7:H27)"
    End Sub
Sub hide4A4()
    Sheets("4A4").Visible = False
    Sheets("1").Range("C12") = ""
    Sheets("1").Range("D12") = ""
    Sheets("4A4").Range("H28") = ""
   End Sub
Sub display4A5()
    Sheets("4A5").Visible = True
    Sheets("1").Range("C23") = Sheets("输入").Range("B21") & "-4A5"
    Sheets("1").Range("D23") = "不需要安装的设备(维护)"
    Sheets("4A5").Range("H28") = "=SUM(H7:H27)"
    End Sub
Sub hide4A5()
    Sheets("4A5").Visible = False
    Sheets("1").Range("c23") = ""
    Sheets("1").Range("D23") = ""
    Sheets("4A5").Range("H28") = ""
    End Sub
Sub display4A6()
    Sheets("4A6").Visible = True
    Sheets("1").Range("C24") = Sheets("输入").Range("B21") & "-4A6"
    Sheets("1").Range("D24") = "利旧设备费"
    Sheets("4A6").Range("H28") = "=SUM(H7:H27)"
    End Sub
Sub hide4A6()
    Sheets("4A6").Visible = False
    Sheets("1").Range("c24") = ""
    Sheets("1").Range("D24") = ""
    Sheets("4A6").Range("H28") = ""
    End Sub
Sub display4B1()
    Sheets("4B1").Visible = True
End Sub
Sub hide4B1()
    Sheets("4B1").Visible = False
End Sub
Sub display4B2()
    Sheets("4B2").Visible = True
End Sub
Sub hide4B2()
    Sheets("4B2").Visible = False
End Sub
Sub display4B3()
    Sheets("4B3").Visible = True
End Sub
Sub hide4B3()
    Sheets("4B3").Visible = False
End Sub
Sub display4B4()
    Sheets("4B4").Visible = True
End Sub
Sub hide4B4()
    Sheets("4B4").Visible = False
End Sub
Sub display4B5()
    Sheets("4B5").Visible = True
End Sub
Sub hide4B5()
    Sheets("4B5").Visible = False
End Sub
Sub display5B()
    Sheets("5B").Visible = True
End Sub
Sub hide5B()
    Sheets("5B").Visible = False
End Sub
Sub zy_dy()
    Sheets("2").Range("d14") = "主材费×5%"
    Sheets("2").Range("e14") = "=e13*0.05"
    Sheets("2").Range("d18") = ""
    Sheets("2").Range("e18") = ""
    Sheets("2").Range("d21") = ""
    Sheets("2").Range("e21") = ""
    Sheets("2").Range("H7") = ""
    Sheets("2").Range("I7") = ""
    Sheets("2").Range("d24") = "人工费×2.6%"
    Sheets("2").Range("e24") = "=e9*0.026"
End Sub
Sub zy_YX()
    Sheets("2").Range("d14") = "主材费×3%"
    Sheets("2").Range("e14") = "=e13*0.03"
    Sheets("2").Range("d18") = ""
    Sheets("2").Range("e18") = ""
    Sheets("2").Range("d21") = ""
    Sheets("2").Range("e21") = ""
    Sheets("2").Range("H7") = ""
    Sheets("2").Range("I7") = ""
    Sheets("2").Range("d24") = "人工费×2.6%"
    Sheets("2").Range("e24") = "=e9*0.026"
End Sub
Sub zy_WX()
    Sheets("2").Range("d14") = "主材费×3%"
    Sheets("2").Range("e14") = "=e13*0.03"
    Sheets("2").Range("d18") = "人工费×1.2%"
    Sheets("2").Range("e18") = "=e9*0.012"
     Sheets("2").Range("d21") = ""
    Sheets("2").Range("e21") = ""
    Sheets("2").Range("H7") = ""
    Sheets("2").Range("I7") = ""
    Sheets("2").Range("d24") = "人工费×6.0%"
    Sheets("2").Range("e24") = "=e9*0.06"
End Sub
Sub zy_WX_SW()
    Sheets("2").Range("d14") = "主材费×3%"
    Sheets("2").Range("e14") = "=e13*0.03"
    Sheets("2").Range("d18") = "人工费×1.2%"
    Sheets("2").Range("e18") = "=e9*0.012"
    Sheets("2").Range("d21") = "人工费×4.0%"
    Sheets("2").Range("e21") = "＝e9*0.04"
    Sheets("2").Range("H7") = "人工费×2.0%"
    Sheets("2").Range("I7") = "＝e9*0.02"
    Sheets("2").Range("d24") = "人工费×6.0%"
    Sheets("2").Range("e24") = "=e9*0.06"
End Sub
Sub xiaoxingjianzhu_y()
   Sheets("1").Range("d19") = "小型建筑工程费"
   Sheets("1").Range("k19") = "=sum(e19:j19)"
   Sheets("6").Range("H27") = ""
End Sub
Sub xiaoxingjianzhu_n()
   Sheets("1").Range("d19") = ""
   Sheets("1").Range("k19") = ""
   Sheets("6").Range("H27") = ""
End Sub
Sub display6()
    Sheets("6").Visible = True
    Sheets("1").Range("C19") = Sheets("输入").Range("B21") & "-6"
    Sheets("1").Range("D19") = "小型建筑工程费"
    Sheets("6").Range("H27") = "=SUM(H6:H26)"
    Sheets("1").Range("k19") = "=sum(e19:j19)"
End Sub
Sub hide6()
    Sheets("6").Visible = False
    Sheets("1").Range("C19") = ""
    Sheets("6").Range("H27") = ""
   End Sub
Function b(M, Xmax, Xmin, Ymax, Ymin As Single)
    Dim P As Single
    P = (Xmax - Xmin) * M / (Ymax - Ymin) + (Xmin * Ymax - Xmax * Ymin) / (Ymax - Ymin)
    b = P
End Function
Sub auto_Open()
    Application.Caption = "111111111111111111111"
End Sub

a15299330049

dingding