- 2008-06-18 (Wed) 17:33
- web
今回作ったマクロのおかげで作業的にはかなり簡素化されました。
あとは入力セルを間違ったり、間違って数式を消したりというミスが出ないようにできないのか、またまた検索。
そこで見つけたのが「シートの保護」、いろいろ調べて早速設定しました。
まずは数値入力セル、日付入力セルを選択し、［セルの書式設定］［保護］で［ロック］を解除。
ついでに数式の組み込んであるセルの、数式バーに収まらないぐらい長々と入れ込んだ数式が表示されないように、［セルの書式設定］［保護］で[表示しない]にチェック。
この作業は、作業グループで各会員シートをまとめて行ったのですぐ済んだのですが、肝心なシートの保護が作業グループではできません。
各会員シートをひとつひとつ設定するのは面倒なので、マクロでパスワードを付けてシート保護することに
手数料表の会員番号欄を選択して実行。
アッという間に終了。
マクロってやっぱり便利ですね(^.^)
(注：Excel2003で作成)
あとは入力セルを間違ったり、間違って数式を消したりというミスが出ないようにできないのか、またまた検索。
そこで見つけたのが「シートの保護」、いろいろ調べて早速設定しました。
まずは数値入力セル、日付入力セルを選択し、［セルの書式設定］［保護］で［ロック］を解除。
ついでに数式の組み込んであるセルの、数式バーに収まらないぐらい長々と入れ込んだ数式が表示されないように、［セルの書式設定］［保護］で[表示しない]にチェック。
この作業は、作業グループで各会員シートをまとめて行ったのですぐ済んだのですが、肝心なシートの保護が作業グループではできません。
各会員シートをひとつひとつ設定するのは面倒なので、マクロでパスワードを付けてシート保護することに
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で作成)
- Newer: シート保護とオートフィルター
- Older: EXCEL マクロ.4
Trackback : No Trackbacks
- TrackBack URL for this entry
- トラックバックの際は上記 URL をクリック、コピーしてご利用ください。
- EXCEL マクロ.5 from ChaBlog