Tag: 密码保护

Excel VBA密码保护检查

我有一个项目，我必须在一个文件夹中超过1000多个excel文件，看看哪些是密码保护，哪些不是。 为了节省时间，我写了一个macros来做到这一点，如下： Sub CheckWbook() Dim Value As String, a As Single, myfolder as string With Application.FileDialog(msoFileDialogFolderPicker) .Show myfolder = .SelectedItems(1) & "\" End With Range("C4") = myfolder Range("B7:C" & Rows.Count) = "" a = 0 Value = Dir(myfolder) Do Until Value = "" If Value = "." Or Value = ".." Then Else If Right(Value, […]

创build受密码保护的备份

我想创build一个用密码encryption的备份excel工作簿，每当我点击一个button保存。 到目前为止，我有这个，但仍然不知道如何保护所有新的.xlsm文件与密码，所以没有人不能做一个不知道密码备份文件的变化。 在不同的文件夹中保存和创build备份文件。 谢谢。 Private Sub Workbook_AfterSave(ByVal Success As Boolean) Dim DestinationFolder As String Dim WbName As String Dim WbExtension As String Dim WbNewPath As String Dim sHostName As String sHostName = Environ$("computername") DestinationFolder = "C:\Users\An\Dropbox\Orders – backup" If DestinationFolder = "" Or Dir(DestinationFolder, vbDirectory) = vbNullString Then MsgBox "The destination folder's path is incorect!", […]

Excel VBA：保护我的工作表显着减慢我的vba代码

我对VBA非常陌生，在build立我现在的Excel'合同'的同时，基本上已经自学了。 我的目标是根据代表checkbox显示或隐藏合同选项列表。 我有4个工作表显示/删除范围，共有12个选项。 在组织方面，我已经根据每个行动利用模块。 我也命名了所有的范围 在保护我的工作表之前，当我select一个checkbox时，所有4个工作表中的所有4个范围立即显示。 当我不选时，他们立即清除他们的内容并隐藏起来。 好极了！ 一旦我保护我的工作表，但是，事情要么放慢速度爬行，要么出现错误。 在下面的ProtectWorksheet模块中，注释掉的行可以工作，但是从阅读其他堆栈溢出的文章，它更好地使用我所拥有的代码。 不受保护的，它工作得很好。 受保护我得到“错误1004”：无法设置范围类的隐藏属性“。 如果我使用我的注释掉的代码，同时保护，它的工作原理，但速度超慢。 从技术上讲，我可以让一切工作…但从用户界面的立场是可怕的。 以下是我已经testing的第一份合约选项。 请和任何和所有的帮助谢谢你！ 在Excel对象下 – sheet2（数据input） Private Sub chkDomesticHotWater_Click() ProtectOFF Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If chkDomesticHotWater = True Then AddDomesticHotWater Else 'Remove the lines, clear the data, and move the mouse to the top RemoveDomesticHotWater ClearDomesticHotWater Range("A1").Select End If Application.ScreenUpdating […]

ezPyCrypto来encryptionMS Excel文件

我正尝试通过Python密码保护MS Excel文件。 到目前为止，我发现这不可能通过普通的Excel库（如openPyXL和XLSX Writer）来实现。 我想这意味着我首先需要encryption它。 如果我错了，或者如果有更好的方法，请纠正我。 密码保护位是最重要的，这在下面没有提到，除非很容易为此添加代码。 到目前为止，这里是我的encryption： from ezPyCrypto import key file_in = r'P:\Data\sample_file.xlsx' file_out = file_in[:-5]+'_enc.xlsx' f_in = open(file_in, 'rb') f_out = open(file_out,'wb') in_str = f_in.read() out_str = key(in_str) f_out.write(out_str) f_in.close() f_out.close() 但是，我不断收到这个错误： ImportError Traceback (most recent call last) <ipython-input-36-ed5218b0d47c> in <module>() 2 #https://github.com/sfbahr/PyCrypto-Wheels —-> 3 from ezPyCrypto import key 4 file_in = […]

excel电子表格保护

我lockingExcel表格（2016年）甚至密码保护他们。 刚刚工作正常。 然后我用Numbers打开我的文件，我保护的所有东西都可见。 这怎么可能？ 我能做些什么来完全保护我的电子表格？

受保护的表单警告任何编辑

希望能得到一些Excel 2010的帮助。 我有三个可见的表。 在打开工作簿时，vba密码可以保护三张表中的每一张。 现在，无论何时我对任何表格中的任何未locking的单元格进行更改，都会得到4个受保护的表格警告popup窗口。 那个说单元格被locking，你必须取消保护编辑？ 这一切都很好，除了我不编辑locking的单元格。 我正在编辑其他工作表中的解锁单元格！ 有没有人有这个经验？ 我已经玩了，其中两个可以归因于两个表中的每一个。 也就是说，当我只保护第一张纸时，我没有popup窗口，当我只保护第二张时，我得到2，当我只保护第三张时，我得到2。 取出配方没有什么区别。 这里是locking的代码： For Each wSheet In Worksheets wSheet.Unprotect Password:="JMP_DST_Lock" If wSheet.Visible = True Then wSheet.Protect Password:="JMP_DST_Lock", UserInterFaceOnly:=True wSheet.EnableOutlining = True End If Next wSheet ThisWorkbook.Protect Password:="JMP_DST_Lock" 非常感谢您的帮助。 编辑：原来的combobox是错误的原因。 如果链接的单元格被locking，则在任何时候工作表计算（在自动计算时会发生变化）会导致警告。 现在，我有代码保护每个comboboxGotFocus上的工作表，但除此之外，这些正在出现。 有一个中间地带吗？ 一种方法来保持链接的单元格locking没有这些警告popup？ 一种方法来确保combobox正在击中链接的单元格，除了select？ 谢谢！

隔离Excel VBA脚本来运行aginst特定的工作表？

我有一个包含7个工作表的Excel电子表格。 只要保存文档，我就需要将下面的脚本应用于一些工作表 （ Sheet6和Sheet7 ）。 我已经花了几个小时尝试不同的修改，其中的一些根本不起作用。 VBAdebugging器不会抛出任何错误，当我testing脚本时，它永远不会运行。 每当我从任何工作表选项卡中保存文档时，如何修改下面的脚本以针对特定的工作表运行？ 谢谢 VBA – locking单元格和保存表保存 下面的脚本将locking包含值的单元格，然后在保存之前用密码保护表单。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) On Error Resume Next Dim Cell As Range With ActiveSheet .Unprotect Password:="" .Cells.Locked = False For Each Cell In Application.ActiveSheet.UsedRange If Cell.Value = "" Then Cell.Locked = False Else Cell.Locked = True End […]

VBA Excel：表单保护：UserInterFace只剩下了

在VBA Excel中，如果使用UserInterFaceOnly：= True选项保护工作表，然后closures并再次打开文件，则UserInterFaceOnly模式不处于活动状态，只有密码保护。 代码： ActiveSheet.Protect Password:="myPassword", UserInterfaceOnly:=True 为什么？

在PowerShell中打开密码保护的Excel

我试图在PowerShell中打开一个密码保护的Excel工作表，并输出一个报表中有多less行。 该脚本工作绝对好，如果工作表没有密码保护，但我似乎无法得到powershell打开它，如果有一个密码设置。 我目前的脚本是 $Report = "S:\Business Support\excel tests\MI Tool – Live.csv" $path = "S:\Business Support\excel tests" [Array]$Results = $null $excelSheets = Get-Childitem -Path $path -Include "MI Tool – Live.xlsm" -Recurse $excel = New-Object -comobject Excel.Application $excel.visible = $false $password = "blablabla" $updatelinks = 0 foreach($excelSheet in $excelSheets) { $workbook = $excel.Workbooks.Open($excelSheet,$updatelinks,$password) $rowCount = $null $worksheet […]

表保护解锁VBA

我试图用密码保存工作表，但我不能用相同的密码解锁它，有人可以帮我解决这个问题。 Sub ClearData() ActiveSheet.Unprotect Password = "Kiran123" Sheets("Filter").Select Range("A11").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Clear Sheets("Filter").Select Range("C3").Select Selection.Clear ActiveSheet.Protect Password = "Kiran123" End Sub 感谢您检查这一点，但是当我已经尝试使用上面的代码（我的代码）不起作用。 但是，当你只用下面的sub试一下它的工作原理时，为什么这样的代码中含糊不清。 这是为什么发生的具体原因？ 如果我可以得到一个代码来locking工作表的密码将是很好的。 Sub test() ActiveSheet.Protect Password:="Kiran123" ActiveSheet.Unprotect Password:="Kiran123" End Sub