シート全体を保護し、任意のセルだけ保護解除する for VBA

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

2009-04-08 シート全体を保護し、任意のセルだけ保護解除する for VBA

Excelのシートで入力項目のセル以外は、ユーザに変更されたくない・・・というケースは結構ありますね。

Excelには、「シートの保護」という機能があります。


普通の発想としては、ユーザに変更されたくないセルをロックするということになりますが・・・。

Excelでは、逆発想で、まずシート全体をロックし、ユーザに変更してもらいたいところだけロックを外すのです。


もう少し詳しく言うと、すべてのセルにはロックするかしないかのプロパティ『Locked』があり、Protectメソッドが実行されると、『Locked』の値がTrueのセルはロックされ、Falseだとロックされないのです。


◆サンプルソース
Private Sub Worksheet_Activate()
    If ActiveSheet.ProtectContents = False Then
        Cells.Locked = True
        ActiveSheet.Range("A1:B10").Locked = False
        ActiveSheet.Protect Password:="0708", UserInterfaceOnly:=True
    End If
End Sub

◆ソース解説

◆留意点

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。

人のよいところをどんどん見つけよう