[推荐] 我说“启用宏”，就得启用宏，管你什么安全级

abcd321abcd

zez

谢谢分享

plzqnet

先学习学习，哈哈，要亲试一下，这个东东不错，我做好的表格如果有宏，就不用通知他们去启用宏了。

antsh3

QUOTE:

以下是引用BobPan在2007-12-8 15:47:52的发言：

有两个用户分别用两台电脑使用我的文件,第二个用户只能用只读的形式打开,当第一个用户退出,第二个用户就会接到通知:现在可以编辑了,并有个对话框,选择"读<-->写",再弹出个对话框,选择"放弃",就会出现错误.改怎么解决呢.(在一台电脑上多次打开那个"VBS"文件也可以多次打开Excel文件,相当于在多台电脑上打开,也是一样出错)???

BobPan

QUOTE:

以下是引用antsh3在2007-12-10 15:35:54的发言：

有两个用户分别用两台电脑使用我的文件,第二个用户只能用只读的形式打开,当第一个用户退出,第二个用户就会接到通知:现在可以编辑了,并有个对话框,选择"读<-->写",再弹出个对话框,选择"放弃",就会出现错误.改怎么解决呢.(在一台电脑上多次打开那个"VBS"文件也可以多次打开Excel文件,相当于在多台电脑上打开,也是一样出错)???

1。多用户操作，建议使用“共享工作薄”

2。下面代码禁止重复打开文件：

MACROFILE = "Macro Book.xls"

On Error Resume Next

Set objXL = GetObject(, "Excel.Application")

If Err = 0 Then

    If Not objXL.Workbooks(MACROFILE) Is Nothing Then Wscript.Quit

End If

Set objXL = Wscript.CreateObject("Excel.Application")

objXL.Workbooks.Open "D:\" & MACROFILE

objXL.Visible = True

Set objXL = Nothing

antsh3

QUOTE:

以下是引用BobPan在2007-12-10 16:32:30的发言：

1。多用户操作，建议使用“共享工作薄”

2。下面代码禁止重复打开文件：

在一台电脑上是不能多重打开了,但是在多台电脑上还是能多重打开,而且我说的:(有两个用户分别用两台电脑使用我的文件,第二个用户只能用只读的形式打开,当第一个用户退出,第二个用户就会接到通知:现在可以编辑了,并有个对话框,选择"读<-->写",再弹出个对话框,选择"放弃",就会出现运行错误.)这个问题还是存在的,请问改怎么解决呢??谢谢!!!!

BobPan

QUOTE:

以下是引用antsh3在2007-12-10 17:16:30的发言：

在一台电脑上是不能多重打开了,但是在多台电脑上还是能多重打开,而且我说的:(有两个用户分别用两台电脑使用我的文件,第二个用户只能用只读的形式打开,当第一个用户退出,第二个用户就会接到通知:现在可以编辑了,并有个对话框,选择"读<-->写",再弹出个对话框,选择"放弃",就会出现运行错误.)这个问题还是存在的,请问改怎么解决呢??谢谢!!!!

这个问题就是多用户操作，当你共享工作薄后此问题将不会存在（可以在“工具”--“共享工作薄”中设置）

antsh3

QUOTE:

以下是引用BobPan在2007-12-10 17:25:58的发言：

这个问题就是多用户操作，当你共享工作薄后此问题将不会存在（可以在“工具”--“共享工作薄”中设置）

我共享工作簿后，关闭的时候出现（ 运行时错误，方法‘password'作用于对象‘_workbook'时失败。）
再次打开时候，出现（运行时错误,应用程序定义或对象定义错误）
我的Thisworkbook 的代码是：
Private Sub Workbook_Open()
    Sheets("工作表").Protect Password:="12345", userInterFaceonly:=True
    Sheets("工作表").EnableAutoFilter = True
    Sheets("工作表").Select
    解密 "12345"
    Columns("a:s").EntireColumn.Hidden = True
    加密 "12345"
    UserForm1.Show
    On Error Resume Next
    Sheets("用户信息").SelectedSheets.Visible = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Password <> "" Then
       ActiveWorkbook.Password = ""
End If
    If ThisWorkbook.WritePassword <> "" Then
       ActiveWorkbook.WritePassword = ""
 End If
End Sub

BobPan

共享后保护功能无效，所以导致错误！

另有SelectedSheets属性是用于窗口的，所以你的代码有误（Windows(1).SelectedSheets.Visible = False）

如果方便的话，上传附件供分析！

antsh3

QUOTE:

以下是引用BobPan在2007-12-11 8:16:53的发言：

共享后保护功能无效，所以导致错误！

另有SelectedSheets属性是用于窗口的，所以你的代码有误（Windows(1).SelectedSheets.Visible = False）

如果方便的话，上传附件供分析！

因原文件有好多重要数据,不便上传,特做了这个和原文件一样错误的文件,请谅解,请指教!谢谢!!1 t4W1gciF.rar (13.66 KB, 下载次数: 72)

2007-12-11 09:03 上传

点击文件名下载附件
[推荐] 我说“启用宏”，就得启用宏，管你什么安全级