Home > Archives > 18 June 2008

18 June 2008

EXCEL マクロ.5

2008-06-18 (Wed)
web

今回作ったマクロのおかげで作業的にはかなり簡素化されました。

あとは入力セルを間違ったり、間違って数式を消したりというミスが出ないようにできないのか、またまた検索。
そこで見つけたのが「シートの保護」、いろいろ調べて早速設定しました。

まずは数値入力セル、日付入力セルを選択し、［セルの書式設定］［保護］で［ロック］を解除。
ついでに数式の組み込んであるセルの、数式バーに収まらないぐらい長々と入れ込んだ数式が表示されないように、［セルの書式設定］［保護］で[表示しない]にチェック。

この作業は、作業グループで各会員シートをまとめて行ったのですぐ済んだのですが、肝心なシートの保護が作業グループではできません。
各会員シートをひとつひとつ設定するのは面倒なので、マクロでパスワードを付けてシート保護することに

Sub シート保護()
'変数の宣言
Dim r As Range
Dim MySheetName As String

MySheetName = ActiveSheet.Name
For Each r In Selection

Sheets(CStr(r)).Select
ActiveSheet.Protect　Password:="*****"
Next

Sheets(MySheetName).Select
End Sub

手数料表の会員番号欄を選択して実行。
アッという間に終了。
マクロってやっぱり便利ですね(^.^)
(注：Excel2003で作成)