我正在尝试创建一个宏,它可以同时保护一堆excel文件。我已经想好了(请阅读"Frankenstein-from-various-sources-and-old-code"),它应该请求文件路径和密码,然后循环遍历文件夹中的每个文件,密码保护它们)。不幸的是,它请求路径和密码,但在没有密码保护文件的情况下立即结束。我的vba在这一点上基本上是生锈的,所以我很不幸地在努力弄清楚为什么它不起作用。
是的,我知道这不是最好的练习。不幸的是,我有几百个文件要密码保护,而没有时间来做这件事。
有人有什么想法吗?
代码:
Sub ProtectAll()
Dim wBk As Workbo
我想用密码保护所有工作表,同时保留大纲选项。打开工作簿时,我将此代码设置为运行:
Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Protect "password1", , , , True
.EnableOutlining = True
我想连接密码保护的访问文件。使用下面的代码,我得到一个错误的“错误密码”,但是当我用相同的密码手动打开它时,它是打开的。我是否需要在数据库设置中做任何更改。
Dim Acon As New ADODB.Connection
Dim Rs As New ADODB.Recordset
With Acon
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" + "U:\scratch\OK.accdb"
.Properties(
我想有一个在Wordpress页脚的链接出现在一个密码保护的页面,并有一个不同的链接在所有其他页面。到目前为止,我有以下代码:
<?php if ( post_password_required() { ?>
<li><a href="http://link.com/">Link 1</a></li> //Link to appear on all other pages
<? } else { ?>
<li><a href="http://link.com/"&g