| |
VBA初心者です。詳しい方ご教授願います。
社員全員（20名）の日報を一つのブックで管理したいため、各シートにクローズボタンを押すと表が非表示になり、オープンボタンを押すとパスワードを入力するボックスが表示され、入力後表が再表示されるように設定したいです。
作成したのは以下のとおりです。
クローズボタンを押すと表が非表示になり、シートの保護を行う。
オープンボタンを押すとパスワード入力ボックスを表示し、表が再表示されるようにしたいです。
よろしくお願いします。
Sub ボタン3_Click()
End Sub
Sub クローズ()
'
' クローズ Macro
'
'
Columns("A:K").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Macro9()
'
' Macro9 Macro
'
'
ActiveSheet.Unprotect
Selection.EntireColumn.Hidden = False
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
