我正在尝试将Access数据库中的%2个查询导出到Excel工作簿的%2个选项卡中。我希望那本工作簿有密码保护。我很难在VBA中对其进行密码保护。到目前为止,这是我的VBA:
Public Function ExportToExcel()
Call DoCmd.TransferSpreadsheet(TransferType:=acExport, _
TableName:="q1_Get_Load_Data", _
FileName
我的宏出了问题,在尝试UnfreezePanes时失败了。文档具有结构保护:视图>保护工作簿>结构和窗口保护(2013年版本)
在2013年之前的excel版本中,我对宏没有问题:
Sub Unfreeze()
ActiveWorkbook.Unprotect
ActiveWindow.FreezePanes = False
End Sub
但在2013年版本中,我遇到了一个问题:执行“ActiveWorkbook.Unprotect”时没有出现错误,但不取消文档中的结构更改限制,因为纽特行ActiveWindow.FreezePanes = False抛出:
错
我正在microsoft excel上构建一个工作表,它将处理合理的业务数据。工作表将被放置在USB驱动器上,并且必须不断地从一个地方移动到另一个地方。因此,我在excel VBA中创建了一个功能来启用/禁用密码保护。下面是它的工作原理。
名为xlVeryHidden的页面是在一个单元格中包含用户密码的设置,页面中的另一个单元格包含单词yes或no。密码保护是否激活取决于天气。当用户第一次打开工作簿时,除了包含要继续的按钮之外,所有的工作表都是xlVeryHidden的,他们单击运行宏的按钮来检查设置工作表中的天气。根据so,系统会提示他们登录或取消隐藏所有工作表。
登录代码如下:
If Pa
其要求是使用Excel保护带有密码的工作簿的VBA项目。
这个是可能的吗?
目前,我们有一个Excel外接程序(xlam),它对打开的每个工作簿执行所有操作。我们通过外接程序实现了工作表的锁定.现在,我们还想保护那些打开的工作簿的VBA。下面是我们从各个论坛找到的代码
With Application
'execute the controls to lock the project
.VBE.CommandBars("Menu Bar").Controls("Tools") _
.Controls("VBAProject Pro
我有以下代码来保护Excel2007中工作簿的工作表
Private Sub password_protectallsheets()
For Each ws In Worksheets
ws.protect Password = "edc1"
Next
End Sub
但是,当我尝试通过Excel2007菜单(查看->取消工作表保护)使用密码来取消对工作表的保护时,系统提示您提供的密码不正确。
任何帮助都是非常感谢的。
是否可以在Ruby中创建一个受密码保护的Excel文件。
下面的Gem:帮助你用密码对单元格进行“写保护”。但是,要求对整个Excel文件进行密码保护,这样用户就不能在没有密码的情况下打开工作簿。就像我们可以从Excel本身做的那样,Excel中的"Encrypt with Password“选项。
任何人都知道有没有宝石。或者任何可以帮助我们加密Excel文件的代码片段或指针,正如微软所期望的那样。
我收到关于VBA “运行时错误'1004':对象'_Application‘失败的方法'OnKey’”的报告,至少在Excel2016中,在此代码中是这样的:
Private Sub Workbook_Deactivate()
Application.OnKey "^x"
End Sub
(当启用VBA的工作簿处于活动状态时,代码会重写某些热键,并在用户切换回其他工作簿时恢复默认行为。)
可能是什么原因?
我正在尝试通过VBA打开Excel (xlsm)文件。它可能使用(已知的)密码保护,也可能不使用。我使用的是以下代码:
On Error Resume Next
Workbooks.Open filename, Password:=user_entered_pw
opened = (Err.Number=0)
On Error Goto 0
现在,如果工作簿有密码,则可以很好地工作。但如果它没有保护,就不能打开。显然,如果还有工作簿结构保护处于活动状态,这是XL2007中的一个错误。()。在旧的XL2003上,提供密码将同时打开未保护和密码保护的文件。
我试过了:
Workbooks.Open
我试着在网上复制一些我从下面找到的代码.
我试图使用一些代码通过我的Excel工作簿中的按钮导入图像,这段代码锁定了我的工作表,当它提示输入密码时,我试着按enter而不占上风。
下面使用的代码
Sub BrowsePicture()
Dim Pict
Dim ImgFileFormat As String
Dim PictCell As Range
Dim Ans As Integer
ActiveSheet.Protect True, True, True, True, True
ImgFileFormat = "Image Files (*.bmp),others, tif (
如果使用像google这样的互联网站点,下面的代码工作得很好。但是,我需要访问一个工作内部网站点。当我这样做时,我得到以下错误,运行时错误'-2147023179 (800706b5)':自动化错误接口未知。
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "INTRANET SITE"
Do While ie.Busy
DoEvents
Loop
ie.Quit
Set ie =