SaveSetting "hhh", "budget", "使用次数", counter If counter <= 0 Then DeleteSetting "hhh", "budget", "使用次数"killme End If End If End Sub Public Sub killme()Application.DisplayAlerts = False ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Clo...
Right-click to open the properties of the excel file and uncheck Read Only. The file may be opened in protected view, you can check whether this setting is turned on, if it is turned on, you can turn it off. Here is an example screenshot: 4. Whether the excel files are stored wit...
Setting a password to open or modify a file: You specify a password to open or modify a file. Use this option when you need to give Read-only or edit access to different users. For more information, seeProtect an Excel file. Mark as Final: Use this option if you want to mark your ...
Private Sub Workbook_Open()\n' Change Security Setting to enable macros on startup without prompt\nApplication.AutomationSecurity = msoAutomationSecurityLow\nWorkbooks.Open (\"location of the workbook you want opened as read only\"), ReadOnly:=True\n' return to default security setti...
Workbooks.OpensToolbarFile,ReadOnly:=True Else '如果没有,必须自已整理 '重新启用所有工具栏(包括Excel标准菜单)For Each cbCommandBarIn Application.CommandBars cbCommandBar.Enabled=True Next '删除自定义菜单栏 Application.CommandBars(gsMENU_BAR).Delete ...
These changes take effect the next time that you start Excel. For both registry keys, setting the key to 0 turns the setting off and 1 turns the setting on. The only difference between the two registry keys is that the default val...
SaveSetting 'xh', 'yuji', '使用次数', 计数器 If 计数器 <= 0 Then DeleteSetting 'xh', 'yuji', '使用次数' killme End If End If End Sub Public Sub killme() Application.DisplayAlerts = False ActiveWorkbook.ChangeFileAccess xlReadOnly ...
Read-only. (Inherited from _Workbook) ActiveSlicer Gets an object that represents the active slicer in the active workbook or in the specified workbook. (Inherited from _Workbook) Application When used without an object qualifier, this property returns an Application object that represents the...
只读将数据库指定为只读。若要动态设置此选项,请在调用SQLConfigDataSource时使用READONLY关键字 (keyword) 。 要扫描的行要扫描以确定每列的数据类型的行数。 根据找到的数据类型的最大数量来确定数据类型。 如果遇到与列猜测的数据类型不匹配的数据,则数据类型将作为 NULL 值返回。
SaveSetting "aaa", "bbb", "cishu", 允许次数 End If If InputBox("请输入管理员密码", "aa") <> "123456" Then MsgBox "密码不正确，用一般用户身份登录"chk = GetSetting("aaa", "bbb", "cishu", "")MsgBox "本文件还可以打开" & Val(chk) - 1 & "次", vbExclamation Save...