Tag: locking

如何解决在试图解锁一些单元格的VBA Excel中的错误1004？

我知道在错误1004中已经有一堆线程了，但是在挖掘完毕后我还没有发现类似于我的情况。 我试图locking工作簿，除了一系列的单元格，使用我在这里find的信息和下面的代码： If SecurityActive= "yes" Then Worksheets("Invullen").Range("D7, D9, D11, D15, D17, D19, D23, J12, J14:J16").Locked = False 'INVULLEN Worksheets("Invullen").Protect UserInterfaceOnly:=True 'AFDRUKKEN Worksheets("Afdrukken").Protect UserInterfaceOnly:=True 'AFDRUKKENBEFR Worksheets("AfdrukkenBEfr").Protect UserInterfaceOnly:=True 'BENL Worksheets("BEnl").Protect UserInterfaceOnly:=True 'BEFR Worksheets("BEfr").Protect UserInterfaceOnly:=True 'NL Worksheets("NL").Protect UserInterfaceOnly:=True 'FR Worksheets("FR").Protect UserInterfaceOnly:=True 'UK Worksheets("UK").Protect UserInterfaceOnly:=True 'DE Worksheets("DE").Protect UserInterfaceOnly:=True 'TECHNISCH Worksheets("Technisch").Protect UserInterfaceOnly:=True End If SecurityActive是我用来快速更改的variables，我希望保证工作簿的安全。 该错误突出显示了代码的第二行。 有没有人如何解决这个错误？

值是一个variables，但用作一种方法

这里的错误是“范围是一个variables，但作为一种方法” 我添加了“Microsoft.Office.Interop.Excel”并使用它当前作为 Microsoft.Office.Interop.Excel.Workbook SelWorkBook = excelappln1.Workbooks.Open(curfile, 0, false, 5, "", "", false, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "", true, false, 0, false, false, false); Microsoft.Office.Interop.Excel.Sheets excelSheets = SelWorkBook.Worksheets; Microsoft.Office.Interop.Excel.Worksheet excelworksheet = (Microsoft.Office.Interop.Excel.Worksheet)excelSheets.get_Item(CurSheetName); Microsoft.Office.Interop.Excel.Range excelRange = excelworksheet.UsedRange; object[,] value; excelRange = excelworksheet.get_Range(CurTaskNode.DATA_MIN_ROW, CurTaskNode.DATA_MIN_COL); value = (object[,])excelRange.Cells.Value2; and using the Value to check the cell is locked or not…. if (!value […]

在vba运行时冻结excel编辑

我有一个Excel表，我想编辑通过VB脚本，但我需要用户不能编辑任何单元格或在脚本运行时单击任何button。 由于在excelbutton单击后我popup一个程序，在此VBA子运行期间启用了编辑。 我需要的是一种编程方式，用VBA来locking所有的单元格进行编辑。 我怎样才能做到这一点？ Psuedo_Code： Shell _ "PROGRAM1" Shell _ "PROGRAM2" Dim shellobject As PROGRAM2 shellobject.Connect "PROGRAM1" shellobject.dothings if(shellobject.success) then Cells(1,1).Value = "HUZZAH!" Else Cells(1,1).Value = "OH NO MR BILL!" End If shellobject.dootherthings etc…..

locking/解锁单元格VBA

我一直在寻找一个代码来locking工作表中的所有单元格，但是我发现这个代码： Worksheets("SW").Range("D2").Locked = False Worksheets("SW").Protect UserInterfaceOnly:=True 它真的很好，直到我保存它，再次closures/打开文件，然后我运行的任何macros。 我想这是因为在该表中，我有不同的macros，我也有macros单元格更改时运行： Private Sub Worksheet_Change(ByVal Target As Range) 你有什么想法如何使其工作？ 还有一件事，这个工作簿将被共享，所以我不知道会影响macros。 对不起，也许我太模棱两可了。 是的，我想阻止他人改变细胞的价值。 我想只有一个单元格可以改变，所以其他所有的单元格都随着macros而改变。 再次感谢你的帮助 PS：是的艾哈迈德·穆塔瓦（Ahmad Al-Mutawa），即使在项目被保存，closures和打开后，我也不可能改变这张纸。 如果你需要更多的信息只是告诉我，我会尽量做到更具体。

Excel与vba共享工作表和工作button

我试图共享一个button，打开一个新的窗口（在VB中），但当我分享指导到另一个窗口锁简单的button不起作用（是的，我没有检查锁），我需要的东西做共享那个button和另一个窗口？ 这个窗口的工作是编辑单元格。 这是来自窗口的代码，有： private Sub CommandButton1_Click() Dim i, a, b, c, d Dim prio As String i = CInt(Sheets("Sheet1").Cells(6, 17)) a = CInt(Sheets("Sheet1").Cells(7, 17)) Sheets("Sheet1").Cells(i, 1) = a Sheets("Sheet1").Cells(i, 2) = Peca.Text Sheets("Sheet1").Cells(i, 3) = Qt.Text Sheets("Sheet1").Cells(i, 4) = ComboBox1.Value Sheets("Sheet1").Cells(i, 5) = Responsavel.Text Sheets("Sheet1").Cells(i, 6) = Cliente.Text Sheets("Sheet1").Cells(i, 7) = Maquina.Text Sheets("Sheet1").Cells(i, 8) = […]

使用locking属性时Excel表单列表框问题

我有问题的方式列表框的行为在Excel表单上。 重现问题的步骤： 用一个列表框控件创build一个用户窗体 使用此用户表单使用以下代码： Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.ListBox1.Locked = True Me.ListBox1.Locked = False End Sub Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To 10 Me.ListBox1.AddItem i Next i End Sub 首先显示表单时，我可以使用箭头键和页面键正常浏览列表框。 但是，在双击事件触发后，所有键盘导航都不起作用，包括对其他控件（如果它们在表单上）的Tab键。 单击列表框似乎工作，焦点大纲显示正确，但是在列表框被locking，然后解锁之后处理焦点的方式有些问题。 到底是怎么回事？ 使用Office 2013 32位版本。

locking编辑 – VBA只读

我有一个macros，打开多个文件，并在其上运行代码。 然而，如果涉及到一个文件“locking编辑”，它会给我一个错误说 FileName目前正在使用中。 稍后再试。 我怎样才能打开所说的文件为只读？ 我试过了： Workbooks.Open FileName:=Selected_EOS_Report_File, ReadOnly:=True 和 Workbooks.Open FileName:=Selected_EOS_Report_File, ReadOnly:=True, IgnoreReadOnlyRecommended:=True 任何帮助表示赞赏！ 更新：第一种方法实际上工作。 我的较大的代码运行在通过“Selected_EOS_Report_File”variables的多个文件上。 在某个时候，一个文件通过的是一个Excel临时文件（开头文件名为“〜$”。）代码不能读取temp，所以我创build了一个if / then语句跳过任何这样的文件，只读取保存Excel文件。

检查excel单元格是否被locking的方法是什么？

如何检查该范围内的特定单元格是否被locking， 我张贴我的代码的小片段，请build议，如果单元格未locking，写入单元格的更好方法。 if（reader.HasRows）{minRow = 0; minCol = 0; // Process each result in the result set while (reader.Read()) { // Create an array big enough to hold the column values object[] values = new object[reader.FieldCount]; // Add the array to the ArrayList rowList.Add(values); // Get the column values into the array reader.GetValues(values); int iValueIndex = […]

在VBA中切换locking和解锁的工具箱元素

我正在尝试切换“locking”元素，以便在执行检查后不再locking它。 在button的属性中，我将默认值设置为“locking”，以便用户不能使用它的function。 当另一个button被点击时，我的macros运行一个进程，如果过程返回true，那么另一个“locking”button应该是“解锁”，包含名称的文本框应该被locking，以防止改变。 这个处理是在一个名为“PNC_Module2”的模块中完成的，而我希望locking和解锁元素的表单称为“folder_creator_window”。 我目前使用以下几行来尝试实现“locking和解锁”，但它似乎没有做任何事情： 'This is supposed to unlock the create_folders_button folder_creator_window.create_folders_button.Locked = False 'This is supposed to lock the p_name_textbox textbox folder_creator_window.p_name_textbox.Locked = True 我还没有包括其余的代码，因为它没有真正禁止在这里发生的事情。

VBA基于列中的单词locking整行

我似乎无法解决这个问题，即使是所有的论坛post。 如果单词“locking”出现在其中一列中，我只需要locking整个表（Table1）的一行。 Sub Accounts_Row_Fixed() ' ' Accounts_Row_Fixed Macro ' Dim rng As Range Set rng = Sheet2.Range("Table1[Accounts Row Fixed]") ActiveSheet.Unprotect "JP" rng.Select ActiveCell.FormulaR1C1 = "=IF([@Claim]=""Settled"",""Locked"","""")" Dim cel As Range, drng As Range Set drng = Range("Table1[Accounts Row Fixed]") For Each cel In drng If cel.Value = Settled Then cel.EntireRow.Locked = True End If Next cel […]