エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4265 for オートフィルタ (0.004 sec.)

[[20081224132611]]: #score: 4241; @digest: 0b64f1fbe4728573aca96eac6970034f; @id: 41428; @mdate: 2008-12-24T04:54:28Z; @size: 1154; @type: text/plain; #keywords: 歴探 (7748), password (7287), 去履 (5492), ト保 (3181), 示() (3026), showalldata (2618), 保護 (1752), 除→ (1684), unprotect (1620), protect (1467), トフ (1351), 護解 (1195), オー (1154), 示→ (950), フィ (811), aaaa (784), 護し (773), ィル (771), ロボ (731), activeworkbook (714), て表 (619), 履歴 (583), 、オ (551), 解除 (490), cutcopymode (478), 本日 (469), 示」 (464), ート (461), 状態 (355), activesheet (345), 表示 (276), ルタ (276); 『VBA:シート保護した状態で、オートフィルのすべて表示を使用したい』（うめ）
こんにちは、いつもお世話になっています。過去履歴探したのですが、うまく見つかりません。本日は、シート保護した状態で、オートフィルの「すべて表示」をマクロボタンで使用する方法を教えてください。 1.シート保護した状態では、オートフィルの「すべて表示」がしようできない。 2.マクロで「保護解除→すべて表示→保護」を設定しようとしました。（以下） Sub オートフィルすべて表示() Dim Password As String Password = "AAAA" ActiveWorkbook.Unprotect Password:=Password Application.CutCopyMode = False ActiveSheet.ShowAllData ActiveWorkbook.Protect Password:=Password End Sub シート保護が解除されないのはなぜですか? Private sub に設定しないといけないのでしょうか? 宜しくお願いします。 ---- オートフィルではなく、オートフィルタですね。シート保護のコードではないからだと思います。 Sub オートフィルタすべて表示() Const PW As String = "AAAA" With ActiveSheet .Unprotect Password:=PW .ShowAllData .Protect Password:=PW End With End Sub (ROUGE) ---- Rougeさん、ありがとうございました。出来ました!! ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200812/20081224132611.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ