EXCEL VBA 計算式の保護・計算式の非表示・数式を隠す・数式バーに表示させない（FormulaHiddenプロパティ・Lockedプロパティ）

EXCEL VBA 計算式の保護・計算式の非表示・数式を隠す・数式バーに表示させない（FormulaHiddenプロパティ・Lockedプロパティ・Protectメゾット）

'
'
'
Sub FormulaHidden01() '数式を隠す（非表示）


    Range("B5:D5").FormulaHidden = True  '数式を非表示にする。

    ActiveSheet.Protect 'アクティブシートを保護します。




End Sub
'
'
'
Sub FormulaHidden02()  '数式を表示


    ActiveSheet.Unprotect  'アクティブシートの保護を解除します。

    Range("B5:D5").FormulaHidden = False  '数式の表示

    

End Sub
'

EXCEL VBA ワークシートに登録されている数式・計算式（関数）を全て非表示にする。数値の部分は入力可能（FormulaHiddenプロパティ）

'
'
Sub FormulaHidden10() '数式を隠すして、数値部分は入力可能とする。

    Dim Num As Range
    
    With ActiveSheet
        .Unprotect  'アクティブシートの保護を解除します。
        .Cells.Locked = True  'アクティブシートの全セルに保護ロックのチェックを付けます。

     For Each Num In ActiveSheet.UsedRange  'アクティブシートで使用しているセルに対して順番に繰り返します。
  
         If Not Num.HasFormula And IsNumeric(Num.Value) Then  '使用しているセル内で数式及び文字列以外は、
                Num.Locked = False  'セルの保護ロックのチェックを外します。
         End If
     Next Num
    
        .UsedRange.SpecialCells(Type:=xlCellTypeFormulas).FormulaHidden = True
        '使用しているセル内の数式が入力されている箇所は、数式を隠します。
        
        .Protect 'アクティブシートを保護します。

    End With

End Sub
'

EXCEL VBA ワークシートに登録されている数式・計算式（数式）を全て非表示にする。数値の部分は入力可（ブック全体・全ワークシートを対象）（FormulaHiddenプロパティ）

'
'
'
Sub FormulaHidden20() '数式を隠すして、数値部分は入力可能とする。（全てのワークシートが対象）


    Dim Ws As Worksheet
    Dim Num As Range
    
    For Each Ws In ThisWorkbook.Worksheets '全てのワークシートを繰り返します。
    
        With Ws
            .Unprotect '現在のワークシートの保護を解除します。
            .Cells.Locked = True  '現在のワークシートの全セルに保護ロックのチェックを付けます。
    
         For Each Num In Ws.UsedRange  '現在のワークシートで使用しているセルに対して順番に繰り返します。
      
             If Not Num.HasFormula And IsNumeric(Num.Value) Then  '使用しているセル内で数式かつ文字列以外は、
                    Num.Locked = False  'セルの保護ロックのチェックを外します。
             End If
         Next Num
        
            .UsedRange.SpecialCells(Type:=xlCellTypeFormulas).FormulaHidden = True
            '使用しているセル内の数式が入力されている箇所は、数式を隠します。
            
            .Protect '現在のワークシートを保護します。
    
        End With
    
    Next Ws

End Sub
'