엑셀 파일을 열 때 계산 모드를 수동으로 설정하는 방법은 무엇입니까?

엑셀 파일을 열 때 계산 모드를 수동으로 설정하는 방법은 무엇입니까?

제 엑셀 파일은 수식이 많아서 열리면 바로 계산 모드를 수동으로 설정했으면 합니다.그렇지 않으면 계산이 자동으로 시작되어 몇 시간 동안 기다려야 합니다.이 페이지를 찾았습니다.

http://excel.tips.net/T001988_Forcing_Manual_Calculation_For_a_Workbook.html

속임수를 쓸 수 있을 겁니다하지만 제 엑셀 파일에는 작동하지 않습니다.VBA 코드의 "이 워크북" 섹션에 다음 코드를 입력해야 한다고 명시되어 있습니다.

Private Sub Workbook_Open()
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = False
End Sub

지적했듯이, 제 경우에는 작동하지 않습니다.누군가 다른 해결책을 가지고 있습니까?

이 문제를 해결하는 가장 좋은 방법은 'launcher'라는 Excel을 만드는 것입니다.열려는 파일과 동일한 폴더에 xlsm'이 있습니다.'launcher' 파일에서 'Workbook' 개체에 다음 코드를 입력하지만 상수를 설정합니다.TargetWBName열려는 파일의 이름입니다.

Private Const TargetWBName As String = "myworkbook.xlsx"

'// First, a function to tell us if the workbook is already open...
Function WorkbookOpen(WorkBookName As String) As Boolean
' returns TRUE if the workbook is open
    WorkbookOpen = False
    On Error GoTo WorkBookNotOpen
    If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
        WorkbookOpen = True
        Exit Function
    End If
WorkBookNotOpen:
End Function

Private Sub Workbook_Open()
    'Check if our target workbook is open
    If WorkbookOpen(TargetWBName) = False Then
        'set calculation to manual
        Application.Calculation = xlCalculationManual
        Workbooks.Open ThisWorkbook.Path & "\" & TargetWBName
        DoEvents
        Me.Close False
    End If
End Sub

상수 'Target' 설정'WBName'은 열려는 워크북의 이름입니다.이 코드는 계산을 수동으로 전환한 다음 파일을 엽니다.그러면 시작 프로그램 파일이 자동으로 닫힙니다.*참고: (보안 설정에 따라) 이 파일을 열 때마다 'Enable Content(콘텐츠 활성화)'라는 메시지를 표시하지 않으려면 'me.close(me.close)'를 일시적으로 제거하여 파일을 저장하고 신뢰할 수 있도록 설정한 다음 다시 저장하기 전에 'me.close' 호출을 다시 활성화해야 합니다.또는 False를 다음으로 설정할 수 있습니다.True끝나고Me.Close

언급URL : https://stackoverflow.com/questions/17106544/how-to-set-calculation-mode-to-manual-when-opening-an-excel-file