' [065.xls]



' [Module1] のコード
'★★☆　数式を非表示にする　☆★★

Option Explicit

Sub start()

    '保護の状態でもマクロからの書き換えは可能にする
    ActiveSheet.Protect UserInterfaceOnly:=True

        '数式が表示されているときは非表示にする
        'そうでない時は表示する
        If Cells.FormulaHidden = True Then
            Cells.FormulaHidden = False
        Else
            Cells.FormulaHidden = True
        End If
        
End Sub