我想导出我的Razor视图表格的Excel工作表。下面的代码显示了该表:
public ActionResult Show(int id)
{
IEnumerable<GradeSheetViewModel> model = _repGrade.GetList(id);
return View(model);
}
下面是导出到Excel函数的代码
public ActionResult ExportToExcel()
{
var gv = new GridView();
gv.DataSourc
我想通过双击插入从上面的行复制的带有公式的行。当我打开保护工作表时,宏不工作。我尝试了ActiveSheet.Unprotect Password:="1"的方法,但它不起作用。你们谁能告诉我我的错误是什么,解决方案是什么?
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="1"
If [BusinessType] = "Operating Lease (Contract Based)" Then
Range("hi
我正在尝试在VBA中保护Excel工作簿中的工作表(仅可见)。我希望允许用户编辑“工作表2”和“工作表3”上的对象,但不能编辑其他工作表上的对象。
这就是我使用的代码。
Public Sub WBOpen()
Dim sh As Worksheet
Dim allowObjects As Boolean
For Each sh In Sheets
If sh.Visible = xlSheetVisible Then
**If sh.Name = "Sheet 2" Or "Sheet 3" Then**
allo
我有一本由同事使用的excel书,当他们打开它时会受到保护,在测试我正在开发的一个新特性时,我遇到了一个我不懂的Excel奇怪的地方:
单击链接到宏的按钮时,VBA代码首先取消对工作簿的保护,如下所示:
Sub ButtonClick()
Dim userrange As Variant
Dim rrow As Range
Dim teeth As Range
' unprotect sheet
ActiveSheet.Unprotect ("password")
Application.EnableEvents = False
然后宏崩溃(我知道为什么,这不是问题所
嗨,我正在尝试从GridView导出数据到excel工作表,但有此错误。
RegisterForEventValidation只能在Render()过程中调用;
以下是我的代码
Dim attachment As String
attachment = "attachment; filename=Contacts.xls"
Response.ClearContent()
Response.AddHeader("content-disposition", attachment)
Res
我有一个工作簿,其中包含几个要保护的工作表。我没有在保护上使用密码。我有一些与此工作表相关的visual basic代码,用于扩展合并单元格上的行宽。当工作表受到保护时,代码将不起作用。
我确实找到了一些关于在我的代码中添加未保护代码的指导,但我不知道该把它放在哪里,也不知道如何解决没有密码的事实。进一步的指导我们将不胜感激!
下面是我的代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
这是我的问题,当我用未锁定的工作表测试它们时,我有一些子程序工作,但是当我锁定工作表以保护某些单元格不被选中或删除/更改时,subs错误退出。因此,我需要添加一个部件到我的子锁,运行主代码,然后重新锁定工作表。
我在找这样的东西
Sub Example ()
Dim sample as range
set sample as range("A3:Z100")
Application.ScreenUpdating = false
UN-PROTECT CODE
'Existing sub code here
RE-PROTECT CODE
Application.Scre
我知道有很多关于这方面的问题,我已经读过了--但是似乎没有人给我我需要的代码来完成这个工作。
我有许多按钮,我已经放置在我的excel工作表的丝带。例如,这些文件被附加到将工作表复制到另一个工作表的宏上。
通过按下按钮来运行宏:
Sub btnSheet1_onAction(control As IRibbonControl)
mFunction.CopySheet1toSheet2
End Sub
宏包含在我的mFunction模块中,如:
Public Sub CopySheet1toSheet2()
Dim ws As Worksheet
Set ws = ThisWork
孩子们和格尔斯,我又回来了
简单的问题,以获得我的代码尽可能灌木丛。我运行2宏,保护和取消保护,循环通过纸张计数和保护或取消保护所有的床单取决于需要;它是一个全方位的子,我从不同的世界银行在不同的场合,但它还不是所有的防弹。
当我手动运行它并选择多个工作表时,我得到了一个错误(就像它试图在多个选择中的每个工作表运行一个循环一样,多选择不是一个工作表,它会产生一个objet问题)。
是否有方法添加非内存/耗时行以避免此错误?
Sub UnprotectWorksheets()
Dim i As Integer
' Insert line that says "select wha
拜托,谁能帮我处理错误91,我找不到解决办法。第一,相关代码部分:
.......
Application.EnableEvents = False
PrUpr.UJournal 'Protection code for sheet is located in PrUpr module.
Intersect(targetRow, rgRecName) = foundName '!! Here the problem comes out !!
.......
PrUpr.PJournal
.......
其中PrUpr.UJournal包含许多子类,包括:
Sub UJour
我有一个受保护的工作表,其中某些单元格处于解锁状态,无法编辑。我让按钮单击宏运行各种进程,暂时取消对工作表的保护,允许代码运行,然后在完成后再次保护它。示例:
sub macro1()
activesheet.unprotect
' code here
activesheet.protect allowsorting = true
activesheet.protect allowfilter:= true
end sub
由于某些原因,当我现在运行这些宏时,它要求输入一个我从未输入过的密码。工作表不应受密码保护。我运行了一个密码破解宏,它告诉我密码是"AAAAAAA
我有一个excel工作簿,它保护和隐藏所有工作表,但在工作簿关闭之前。在该工作表上,它应该解除对工作表的保护,清除一些单元格值,然后重新保护工作表。
当我关闭工作簿与X在顶部角落,潜艇运行良好。当我尝试使用ThisWorkbook.Close时,子程序实际上并没有解除对工作表的保护,所以当它试图清除单元格值时,我会得到一个运行时错误'1004‘。
我需要.Close方法来处理另一个脚本,它将在x时间之后关闭工作簿。
在关闭脚本之前
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Unprotect Pa
在Google sheet中,我试图从除工作表所有者之外的所有保护中删除使用脚本的编辑器,为此,我使用下面的代码,但是在运行代码之后,整个保护将被删除,但是,代替删除保护,我希望从保护中删除除工作表所有者之外的所有用户。此外,当代码运行时,每次只删除一个保护,我希望将其应用于所有保护。
function remove(e) {
var sheet = SpreadsheetApp.getActiveSheet();
var protection = sheet.getProtections(SpreadsheetApp.ProtectionType.RANGE)[0];
if (protect
一段时间以来,我一直在编写一本可填充的广泛工作簿。我现在已经到了最后,我想保护工作簿。我在堆栈溢出中看到,当使用宏时,最好的锁定工作表的方法是使用UserInterfaceOnly。因此,我添加了以下代码:
Private Sub Lock_cells()
Worksheet("3. Keuze").Range("C3:C5,C7,C9,C13").Locked = False
Worksheet("3. Keuze").Protect UserInterfaceOnly:=True
End Sub
细胞C3:C5,C7,C9和C13必须保持开放
我在所有模块中都使用选项显式,这个模块让我抓狂,也许是在调用方法中丢失了东西。
读取工作表并将特定数据合并到新的工作簿(单工作表)中,变量colData应增加该列,并且它将被更新并在有工作表的情况下多次传回(例如。将某一年的月1-12复制为cols 1-12,然后次年以cols 13-24复制月份1-12 )
对函数的调用返回一个布尔值(这是后面的一个错误检查):
'Attempt to load Total Revenue for the Import Sheet
TotRevLoaded = Application.Run("modGetDataHelpers.lo
我设置了一个工作表,该工作表只有某些单元格处于未锁定状态,以便在其他锁定的工作表上进行编辑。所有这些单元格最初都是黄色的,并且都是空的。我的目标是在输入任何数据时,使单元格的基色从黄色变为绿色,并在包含任何类型的数据时保持绿色,但如果删除了数据,则恢复为黄色。我已经为此编写了代码,但我看不到问题是什么,所以我一定是遗漏了什么,因为代码没有完成我想要它做的事情,而只是得到了一条错误消息。此代码位于我的主工作簿代码中。
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If Target.