0

ワークシートの1つを非表示/非表示にするために、Excelシートの1つにコマンドボタンがあります。以下のコードを参照してください。

ただし、管理者がシートを再表示するためにパスワードを入力する機能を追加したいと考えています。そうしないと、誰でもボタンをクリックしてデータシートを再表示できます。

通常のパスワード入力プロンプトを再表示するようにExcelに強制する方法はありますか?

ありがとう

Sub myButton()

ActiveWorkbook.Unprotect

If (Sheets("Sheet2").Visible) Then 
    Sheets("Sheet2").Visible = False 
    Sheets("Sheet1").Select          
Else
    Sheets("Sheet2").Visible = True  
    Sheets("Sheet2").Select          
End If

ActiveWorkbook.Protect Password:="password", structure:=True, Windows:=False

End Sub
4

2 に答える 2