Question

[VBA]怎样让一段完整的代码在工作表中运行？

Const pw = "123456"'数字123456是默认的密码,根据个人修改Const 使用时间 As Date = "2014-7-10 23:59:59"'后面的日期和时间请根据需要修改Private Sub Workbook_SheetActivate(ByVal Sh As Object)If Now > 使用时间 Then For Each sht In ThisWorkbook.Sheets If Not sht.ProtectContents Then sht.Protect Password:=pw, DrawingObjects:=True, Contents:=True, Scenarios:=True sht.EnableSelection = xlNoSelection End If Next If Not ThisWorkbook.Saved Then ThisWorkbook.SaveElse For Each sht In ThisWorkbook.Sheets If sht.ProtectContents Then sht.Unprotect Password:=pw NextEnd IfEnd Sub

Answer 1

亲,这个代码放到Thisworkbook下面!
这段代码复制进去之后!!!就不用去管他了!!!
你要做的就是保存文件!!!
然后就是代码前面的密码和时间,自己根据需要修改一下保存!!!
这个文件在超过时间后就会自动锁定,只能查看不能复制和编辑!

Answer 2

Sub xx()
Dim Sht As Worksheet
Set Sht = ActiveSheet
Dim I As Integer
I = 7
Do
.....

End Sub

Answer 3

这一大段代码像一团浆糊一样搅在一起，看不明白呀。