excel - 共享工作簿中的自动填充条件格式

Question

我编写了一个代码，它将使用 range.autofill 来扩展工作表，直到它到达“DO”列。代码运行良好，但仅在文件被共享时（这意味着）。条件格式不起作用。不知何故，VBA 中的自动填充功能在共享工作簿时忘记了条件格式。

禁用共享工作簿不是一个选项，因为其他人可以在文件中，并且文件在文件中时不能被覆盖（我认为？）

有人知道解决方法吗？

这是我的代码：

    Dim lColumn As Long
Dim iCntr As Long

    lColumn = 20
    For iCntr = lColumn To 13 Step -1 '12 is de eerste kolom in dit geval kolom M
        If Cells(3, iCntr) = 0 Then '3 is de rij waar de 0 of 1 wordt gepresenteerd
        Columns(iCntr).Delete
End If
Next

With Workbooks("Bureauplanning.xlsm").Worksheets("Planning")
Dim rngStart As Range
Set rngStart = .Cells(2, .Columns.Count).End(xlToLeft).Offset(, -3).EntireColumn

Dim rngEnd As Range
Set rngEnd = .Cells(2, .Columns.Count).End(xlToLeft).EntireColumn

Dim rng As Range
Set rng = .Range(rngStart, .Columns("DO"))

Dim rngX As Range
Set rngX = .Range(rngStart, rngEnd)

End With

If Range("DO3") <> 0 Then GoTo volgende
rngX.AutoFill rng, Type:=xlFillDefault

标签： excelvba