多用户登陆权限设置匹配不同的工作表

zjdh

年轻人·老梦 发表于 2019-6-14 17:04
大神，请教一个问题：我有一个使用PPT进行的大屏展示，其中设置一个文本里写数字，利用vba该怎么设置，使 ...

这个没研究

年轻人·老梦

zjdh 发表于 2018-7-8 20:50
帮你修改一下

大神，为啥我用了破解，打开后却自动消失呢，请帮忙破解一下，学习此代码

whirlyguy

zjdh 发表于 2018-7-14 10:37

请问下大师，加密的代码是如何破解呀。谢谢

zjdh

年轻人·老梦 发表于 2019-7-1 22:47
大神，为啥我用了破解，打开后却自动消失呢，请帮忙破解一下，学习此代码

作者隐藏了部分模块。隐藏内容：
Sub zd()
Dim j As Integer
Dim i As Integer
Dim l As Integer
On Error Resume Next
Range("a5:a6666") = ""
Range("e5:e6666") = ""
   j = 5
   l = 6
With Sheets("坐标展点")
   Do While .Cells(j, 2) Or .Cells(j, 3) Or .Cells(j, 4) <> ""
   .Cells(j, 5) = "_donut 0 " & .Cells(5, "k") & " " & Round(.Cells(j, 4), .Cells(5, "m")) & "," & Round(.Cells(j, 3), .Cells(5, "m")) & " " & " -text j ml " & Round(.Cells(j, 4), .Cells(5, "m")) + .Cells(5, "n") & "," & Round(.Cells(j, 3), .Cells(5, "m")) & " " & .Cells(5, "l") & " " & .Cells(5, "o") & " " & .Cells(j, 2)
      j = j + 1
   Loop

      i = 5
   Do While Cells(i, "E") <> ""
      i = i + 1
   Loop
  Sheets("坐标展点").Range("E5:E" & i - 1).Select
  Selection.Copy
  
   Do While .Cells(l, 2) Or .Cells(l, 3) Or .Cells(l, 4) <> ""
   .Cells(5, 1) = 1
   .Cells(l, 1) = .Cells(l - 1, 1) + 1
   l = l + 1
   Loop
  End With
End Sub

Sub fz()
Dim j As Integer
Dim i As Integer
Dim l As Integer
On Error Resume Next
Range("f5:f6666") = ""
   j = 5
   l = 6
With Sheets("坐标展点")
   Do While .Cells(j, 2) Or .Cells(j, 3) Or .Cells(j, 4) <> ""
   .Cells(j, 6) = "pline " & Round(.Cells(j, 4), .Cells(5, "m")) & "," & Round(.Cells(j, 3), .Cells(5, "m"))
      j = j + 1
   Loop
      
      i = 5
   Do While Cells(i, "F") <> ""
      i = i + 1
   Loop
  Sheets("坐标展点").Range("F5:F" & i - 1).Select
  Selection.Copy
  
   Do While .Cells(l, 2) Or .Cells(l, 3) Or .Cells(l, 4) <> ""
   .Cells(5, 1) = 1
   .Cells(l, 1) = .Cells(l - 1, 1) + 1
   l = l + 1
   Loop
End With
End Sub

Sub Anti_Fake()
Dim sht As Worksheet
    For Each sht In Sheets
        sht.PageSetup.RightHeader = _
          "工程测量博客http://www.fffsky.com/blog" & vbCr & "更多测量相关知识请添加微信号:fffskycom "
    Next
End Sub

zjdh

whirlyguy 发表于 2019-7-2 01:08
请问下大师，加密的代码是如何破解呀。谢谢

网上去找呀，文章很多！

dj635673

zjdh 发表于 2019-7-2 08:47
网上去找呀，文章很多！

大神你好！能帮我编一个这样的工作表吗

dj635673

大神们，帮我编辑一下这个表，谢谢

whirlyguy

zjdh 发表于 2019-7-2 08:47
网上去找呀，文章很多！

大神，我在网上找的方法，也是打开之后没有代码了。
可否请教一下你的方法(方便的话可否发下）
另外，怎么看待隐藏的模块呀，非常感谢

whirlyguy

zjdh 发表于 2019-7-2 08:47
网上去找呀，文章很多！

673345385
QQ 邮 非常感谢

zjdh

whirlyguy 发表于 2019-7-4 20:02
大神，我在网上找的方法，也是打开之后没有代码了。
可否请教一下你的方法(方便的话可否发下）
另外， ...

http://club.excelhome.net/thread-1026277-1-1.html