|
INA さん
こんにちは。
VBAヘルプPasswordでためしましたが、上手くいきません。
マクロでパスワードをかけても、マクロ作動中にパスワードを
要求されたりです。
シートはパスワード付きで保護したい、一部のセルは入力できるように
(C5,C7)です。
Win98、Winxpどちらでも作動させたいのですが。
良い方法がありますか。
下記のように記述しています。
Sub 点滅()
Dim I As Integer
Dim Ck As Boolean
With ActiveSheet
If .ProtectContents Then
Ck = True: .Unprotect
End If
End With
If (ActiveCell.Value <> "") And (ActiveCell.Address = "$C$7") Then
For I = 1 To 2
With Range("C9,C18").Font
.ColorIndex = 2
Sleep 300
.ColorIndex = 0
Sleep 300
End With
Next
ActiveCell.Offset(-4, 0).Select
ElseIf ActiveCell.Address <> "$C$5" Then
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Offset(2, 0).Select
If Ck = True Then ActiveSheet.Protect
End Sub
|
|