|
宜しくおねがいします
パスワードでロックされているセルに、
コマンドボタン、普通のボタンでの処理は下記の書き方でいいんですよね?
Sub 保護パス()
With Sheets("Sheet1")
.Unprotect Password:="1111"
' 処理
.Protect Password:="1111", DrawingObjects:=True, _
Contents:=False, Scenarios:=True
End With
End Sub
例えば
Private Sub CommandButton1_Click()
With Sheets("注文書") '注文書シートロック解除
.Unprotect Password:="111" '注文書シートロック解除パス
Dim lRow As Long, i As Long
Dim ListNo As Long
Dim TextNo As Long
ListNo = ListBox1.ListIndex + 2
If ListNo = 0 Then
MsgBox "いずれかの行を選択して、数量を入力してください"
Exit Sub
End If
Worksheets("注文書").Range("E2").Value = Worksheets("詳細").Cells(ListNo, 5)
Worksheets("注文書").Range("E3").Value = Worksheets("詳細").Cells(ListNo, 6)
Unload Me
.Protect Password:="111", DrawingObjects:=True, _
Contents:=False, Scenarios:=True '注文書シートロック
End With
End Sub
ですが、処理が終わった後、パスワードがあかからないのです。
なんででしょうか
宜しくおねがいします
|
|