Question

我正在尝试制作一个宏，将细胞从选择区域移动到右侧（5个细胞）。它工作正常，直到我分享工作簿，有没有简单的解决方法？

Sub dodaj_akcje()
'
' dodaj_akcje Macro
'

'
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("C1:F1").Select
Selection.Copy
ActiveSheet.Range("c1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

Columns("I:M").Select
With Selection.Validation
    .Delete
    .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
    :=xlBetween
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
End Sub

Answer 1

盲目拍摄，但我认为有一些要求保持表格“交易”。在宏的开头尝试：Sheets("Sheet1").Protect，最后是Sheets("Sheet1").Unprotect。

1004在共享工作簿中不可用

1 个答案: