excel的自杀代码能改么？

lanxiaoj

能不能改成设定的时间到了，自动把工作薄内所有公式变成数值，无公式了。

Private Sub Workbook_Open()

    If Date >= "2019-10-1" Then

        Application.DisplayAlerts = False

        MsgBox "你好" & vbCr & "再见。"

        With ThisWorkbook

            .Saved = True

            .ChangeFileAccess xlReadOnly

            Kill .FullName

            .Close

        End With

    End If

End Sub

lanxiaoj

有没有大神帮帮忙，不需要文件自杀，只要删除工作薄内所有的公式。相当于全选，粘贴为数值这样

ivccav

把那4句改为usedrange=usedrange.value
.close 1

lanxiaoj

ivccav 发表于 2019-1-17 10:34
把那4句改为usedrange=usedrange.value
.close 1

会运行错误，提示要求对象

MOY838840554

拿附件测试。。。。
Private Sub Workbook_Open()
    Dim sh As Worksheet, arr
    For Each sh In Worksheets
        arr = sh.UsedRange
        sh.Range(sh.UsedRange.Address) = arr
    Next
End Sub

MOY838840554

贴代码要审核，拿副本文件测试

ivccav

lanxiaoj 发表于 2019-1-17 10:52
会运行错误，提示要求对象

Book1.zip (10.2 KB, 下载次数: 14)

2019-1-17 11:10 上传

点击文件名下载附件

lanxiaoj

MOY838840554 发表于 2019-1-17 11:09
贴代码要审核，拿副本文件测试

你好哈。请问同个工作薄，有好多个工作表，怎么让每个工作表都执行这个命令，变成数值呢。这个代码，好像只能在第一个工作表执行。后面几个没变化

MOY838840554

lanxiaoj 发表于 2019-1-19 10:26
你好哈。请问同个工作薄，有好多个工作表，怎么让每个工作表都执行这个命令，变成数值呢。这个代码，好像 ...

代码是循环全部工作表啊
usedrange也不会识别少单元格

1055751654

楼主写的啥公式啊？听过清代码的，公式都不让用了啊