メインコンテンツへスキップ

Excelの保護されたワークシートでオブジェクトの編集を許可するにはどうすればよいですか?

デフォルトでは、図形やテキストボックスなどの挿入されたオブジェクトは、ワークシートを保護した後で編集できません。 保護されたワークシートのオブジェクトを編集する必要がある場合は、この記事のメソッドを試してください。

[オブジェクトの編集]オプションをオンにして、保護されたワークシートでオブジェクトの編集を許可する
VBAコードで保護されたワークシートのオブジェクトの編集を許可する


[オブジェクトの編集]オプションをオンにして、保護されたワークシートでオブジェクトの編集を許可する

ワークシートを保護する前に、[オブジェクトの編集]オプションをオンにして、オブジェクトの編集を許可してください。 次のようにしてください。

1。 クリック レビュー > 保護シート.

2。 の中に 保護シート ダイアログボックスで、パスワードを指定します 保護されていないシートのパスワード ボックスにチェックを入れ、 オブジェクトを編集する [このワークシートのすべてのユーザーに許可する]ボックスのボックスをクリックし、[ OK ボタン。 でパスワードを確認してください パスワードの確認 ダイアログボックス。 スクリーンショットを参照してください:

これでワークシートが保護され、この保護されたワークシート内のすべてのオブジェクトが編集可能になりました。


VBAコードで保護されたワークシートのオブジェクトの編集を許可する

ワークシートがすでに保護されている場合は、以下のVBAスクリプトを試して、オブジェクトの編集を許可できます。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このワークブック 左側で プロジェクト ペイン。 次に、以下のVBAコードをコピーしてに貼り付けます ThisWorkbook(コード) 窓。

VBAコード:保護されたワークシートでオブジェクトの編集を許可する

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

Note:コードでは、Sheet3は、編集する必要のあるオブジェクトを含む保護されたワークシートです。 また、番号「123」は保護されたシートのパスワードです。 必要に応じて変更してください。

3。 プレス F5 コードを実行するためのキー、およびこの保護されたワークシート内のすべてのオブジェクトはすぐに編集可能です。


関連記事:

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations