シートの保護と隠蔽

Question

私はスプレッドシートを取得し、すべてのシートを隠して保護するマクロを持っています。隠れている部分は完全に動作しています。しかし、保護部分はありません。私のコードは以下の通りです：

Dim sh As Worksheet 

    For Each sh In Worksheets 

    If sh.Name <> "Simulador" Then sh.Visible = xlSheetHidden 
    sh.Protect Password:="123" 

    Next 

どこが間違っているかも知れませんか？

Answer 1

は隠しシートを非表示解除からユーザーを防ぐために、あなたが必要としますワークブックの構造に

を保護するために、これを試してみてください：

Sub TEST() 
     With ThisWorkbook 
      .Sheets("Simulador").Visible = xlSheetVeryHidden 
      .Protect Password:="PassKey", Structure:=True 
     End With 
     End Sub 

のみをまだ使用して元に戻すことができxlSheetVeryHiddenにシートの可視性を設定しますvba。 StackOverflowのに
Workbook.Protect Method (Excel)

Answer 2

あなたのコードは、右クリックしてシートを隠すのに相当します。これは、再度右クリックして元に戻すと元に戻すことができます。代わりに、あなたが使用することができます。

Dim sh As Worksheet 

    For Each sh In Worksheets 

    If sh.Name <> "Simulador" Then sh.Visible = xlVeryHidden 
    sh.Protect Password:="123" 

    Next 

VeryHiddenシートを元に戻すために心に留めてください、あなたはVBAでそれを行う必要があります：sh.Visible = True