|
▼BOTTA さん:
>ろばさん、こんにちは。
>UserInterFaceOnlyは、一度保存してしまうと無効になるようです。
>
>Private Sub Workbook_Open()
> Dim i As Integer
>
> For i = 1 To Sheets.Count
> ' ↓一度解除して
> Sheets(i).Unprotect ("password")
> ' ↓再度、Protect
> Sheets(i).Protect UserInterFaceOnly:=True, Password:="password"
> Next i
>End Sub
>
>としてみては。
通常、ユーザフォーム上のオブジェクトを使って、フォームへの
書き込み等をしますので、
Sub UserForm_Initialize()プロシージャに
Sheets(i).Protect UserInterFaceOnly:=True, Password:="password"
を書きましたら、閉じて開いても、VBAを使っての書き込みができたので
取り合えず、用が足りました。
しかし、本来はPrivate Sub Workbook_Open()に書くべきなのでしょうか...?
|
|