advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 4268 for オートフィルタ (0.004 sec.)
[[20081224132611]]
#score: 4243
@digest: 0b64f1fbe4728573aca96eac6970034f
@id: 41428
@mdate: 2008-12-24T04:54:28Z
@size: 1154
@type: text/plain
#keywords: 歴探 (7748), password (7278), 去履 (5492), ト保 (3181), 示() (3016), showalldata (2618), 保護 (1751), 除→ (1684), unprotect (1620), protect (1467), トフ (1350), 護解 (1195), オー (1154), 示→ (950), フィ (811), aaaa (784), 護し (773), ィル (771), ロボ (730), activeworkbook (713), て表 (619), 履歴 (582), 、オ (551), 解除 (490), cutcopymode (478), 本日 (469), 示」 (464), ート (460), 状態 (355), activesheet (344), ルタ (276), 表示 (275)
『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
Powered by Hyper Estraier 1.4.13, with 97057 documents and 608302 words.

訪問者:カウンタValid HTML 4.01 Transitional