如何控制文件打开的次数？

cofe2000

用这个方法做的都在这个里面，你可以看一下，具体的我也不是很明白

HKEY_USERS\S-1-5-21-1085031214-1078081533-1801674531-1000\Software\VB and VBA Program Settings

wuxingch

如何直接退出，不要提出对话框 Private Sub Workbook_Open() Dim Rtime As Long Rtime = GetSetting("mytime", "set", "times", 0) Rtime = Rtime + 1 SaveSetting "mytime", "set", "times", Rtime If Rtime > 3 Then ThisWorkbook.Close Application.Quit End If End Sub

[此贴子已经被作者于2004-10-16 6:40:26编辑过]

hyq125

以下是引用cofe2000在2004-10-14 11:44:00的发言：

用这个方法做的都在这个里面，你可以看一下，具体的我也不是很明白

HKEY_USERS\S-1-5-21-1085031214-1078081533-1801674531-1000\Software\VB and VBA Program Settings

你给的是注册表的东西吗？

怎么我没找到？

baomaboy

To hyq125

HKEY_USERS\S-1-5-21-1085031214-1078081533-1801674531-1000\Software\VB and VBA Program Settings

鉴于所用系统版本不同和所登陆用户不同此注册表键值位置会相应不同！

开始---运行---REGEDIT---确定---编辑---查找；将VB and VBA Program Settings作为注册表主键查找！！！

兰色幻想

GetSetting 函数

从 Windows 注册表中 或 (Macintosh中)应用程序初始化文件中的信息的应用程序项目返回注册表项设置值。

语法

GetSetting(appname, section, key[, default])

GetSetting 函数的语法具有下列命名参数：

部分		描述
appname	必要。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。 在Macintosh中，这是System文件夹中Preferences文件夹中初始化文件的文件名。
section	必要。字符串表达式，包含区域名称，要求该区域有注册表项设置。
key	必要。字符串表达式，返回注册表项设置的名称。
default	可选。表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略，则 default 取值为长度为零的字符串 ("")。

xiaog

或：

Private Sub Workbook_Open() With Worksheets("Sheet1") If .Cells(1, 1) > 3 Then MsgBox "超过使用次数" Application.Quit Else .Cells(1, 1) = .Cells(1, 1) + 1 End If End With End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Application.DisplayAlerts = False

End Sub

xiaog

Private Sub Workbook_Open() Dim Rtime As Long Rtime = GetSetting("mytime", "set", "times", 0) Rtime = Rtime + 1 SaveSetting "mytime", "set", "times", Rtime If Rtime > 3 Then ThisWorkbook.Close Application.Quit End If

End Sub